How do you want to display multiple departments on the form?
Maybe using a subform instead of all those check boxes??

Seems like you need a many-many junction table to keep track
of which students are in which departments.

I don't understand what you are saying about adding a field
to tblIncriptionTable??
--
Marsh
MVP [MS Access]


Telesphore wrote:
I learn something new with the instruction "Select Case True".

But I think the rest of the code will not work, since you have already said
"it appears that only one of the check boxes can be selected"..
Because a student can be registered in more than one program, so 2 or 3
check boxes, we will have to introduce a new field [Department] in the table
[tblIncriptionTable] so the that the secretary will have to type only one
department for each student.

"Marshall Barton" écrit
Telesphore wrote:
I am trying the following code in a TextBox of a Report.
We need to type the "Department of... " according to the different program
a student is registered.

Function EquivalenceDepartment(strTypeDepartment As Variant) As String
Select Case strTypeDepartment

Case ProgBPh = Yes
...

It sort of looks like the Prog... are check boxes and you
want to translate them to text. If so, try using:

Select Case True
Case ProgBPh, ProgMPh, ProgCPh, ProgBA
EquivalenceDepartment = "Department of philosophy"
Case ProgBThIFTM, ProgBThLatran, ProgCTh,
EquivalenceDepartment = "Department of theology"
Case ProgMThP, ProgDESS, ProgMDiv, ProgCPF, ProgCSPI
EquivalenceDepartment = "Department of pastoral"
Case ProgAU
EquivalenceDepartment = "Other"
End Select


BUT, since you only have one text box, it appears that only
one of the check boxes can be selected. If that's correct,
you should be using an OptionGroup so more than one can not
be selected. In this case, the code would be very
different.

A warning is appropriate here. The text you are inserting
into the text box is data and data should not be hidden away
in code. Instead, it should be stored in a table so it can
be changed without having to modify the cade.