@tamcgly33
if I am reading you right then do the following:
1) Place an unbound textbox on your form and name it txtValues
Paste the following code in the
OnCurrent code event for the
form between the Sub and End sub lines
On Error Resume Next
- Dim ctl As Access.Control
-
Dim myfield As String
-
myfield = ""
-
For Each ctl In Me.Controls
-
Select Case ctl.ControlType
-
Case acCheckBox
-
If (ctl.Value = True) Then
-
myfield = myfield & ctl.ControlSource & ";"
-
'concatenate each yes value only and strip trailing semi colon
-
Me!txtValues = Left(myfield, Len(myfield) - 1)
-
End If
-
End Select
-
Next ctl
3) Save and open your form you should see a concatenated string of those controlsource names for each checkbox where there exists only the datavalue "Yes"
You can of course use this concatenated string to set a Valuelist for any listbox you might want to populate but I dont know what you have there or the defined method for presentation of these return values