Microsoft Access 2003 - несколько флажков для заполнения текстового поля

Question

Я использую Access 2003, я ищу помощь с использованием флажков в форме для заполнения текстового поля.

Я использую следующий код, чтобы получить флажок для заполнения текстового поля.

Private Sub CAN_Click()
If Me.CAN = -1 Then
    Me.[Subdirectorate Services] = "Community Adult Nursing"
    Else
    Me.[Subdirectorate Services] = ""
    End If
    Exit Sub
End Sub

У меня есть около 20 флажков для записи различных услуг, и можно выбрать несколько вариантов.Приведенный выше код прекрасно работает, когда установлен флажок, и передает требуемый текст в текстовое поле, но при выборе другого флажка предыдущая запись в текстовом поле перезаписывается.

Как я могу получить текстовое поле для обновления с несколькими записями?

Answer 1

Вместо
Me.[Subdirectorate Services] = "Community Adult Nursing"
ты можешь использовать
Me.[Subdirectorate Services] = Me.[Subdirectorate Services] & ", " & "Community Adult Nursing" для объединения нескольких значений.

Для всего вашего кода логика (не правильный код) будет:

Me.[Subdirectorate Services]=""  
If Me.CAN = -1 Then _ 
   Me.[Subdirectorate Services] = Me.[Subdirectorate Services] & ", " & "Community Adult Nursing"
If Me.CAN2 = -1 Then _  
   Me.[Subdirectorate Services] = Me.[Subdirectorate Services] & ", " & "text 2"
...
If Me.[Subdirectorate Services] <> "" then _  
   Me.[Subdirectorate Services] = Left(Me.[Subdirectorate Services]="",Len(Me.[Subdirectorate Services]="")-2)

Последняя строка для , с конца строки.