Microsoft Access 2003 - Várias caixas de seleção para preencher um campo de texto

Question

Estou usando o Access 2003, estou procurando ajuda para usar caixas de seleção em um formulário para preencher um campo de texto.

Estou usando o código a seguir para obter a caixa de seleção para preencher um campo de texto.

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

Eu tenho aproximadamente 20 caixas de seleção para gravar uma variedade de serviços diferentes e várias opções podem ser selecionadas. O código acima funciona bem quando uma caixa de seleção é selecionada e transfere o texto necessário para o campo de texto, mas quando outra caixa de seleção é selecionada a entrada na caixa de texto é sobrescrita.

Como posso atualizar a caixa de texto com várias entradas?

    

Answer 1

Em vez de Me.[Subdirectorate Services] = "Community Adult Nursing"
você pode usar o Me.[Subdirectorate Services] = Me.[Subdirectorate Services] & ", " & "Community Adult Nursing" concatenar vários valores.

Para toda a sua lógica de código (não o código correto) seria:

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)

A última linha é remover , do final da string.