[Resolvido]Preencher campo ao clicar múltiplas vezes na caixa de seleção

Boa noite Senhores.

Primeiramente, venho agradecer aos amigos pela ajuda aqui no fórum.
Estou com a seguinte dúvida:

Alguém poderia me informar ou ensinar como fazer um controle com uma caixa de seleção alimentando um campo no formulário.
Selecionando na caixa de seleção e os dados ir caindo no campo desejado.

O problema é que eu terei que clicar nesta caixa de seleção varias vezes e o campos teria que ser alimentado cada vez que um registro fosse selecionado.
Espero ter explanado bem a ideia.

Boa noite.
Não entendi muito bem!
você quer um conjunto de seleção cada seleção tem seu valor , ao clicar em qualquer um que o campo do formulário seja alimentado?

Bom dia crysostomo, grato pela atenção.

Na caixa de seleção tenho vários exames cadastrados ok, e eu tenho um campo que vai receber os exames.

Quando eu selecionar o primeiro exame, esse campo deve receber o que tiver na caixa de seleção, se eu quiser colocar mais exames, vou na caixa de seleção e seleciono outro exame pra jogar no campo que dever receber esses dados.


Se eu selecionar 1 ou mais exames na caixa de seleção, que esses exames sejam guardando em um campo único.
Vou postar um ex. vou preparar.

Montei um exemplo, se alguém tiver uma ideia mais adequada agradeço muito.
Gostaria de quebras as linhas a cada campo concatenado

pelas 4 formas de quebra linha , não esta funcionando qubra-las no seu campo "exames_total",, fica nessa esperando os feras.
mas para guarda em uma tabela

Código:

Dim db      As DAO.Database
Dim sSQL    As String
Set db = CurrentDb

sSQL = "INSERT INTO suaTabela"
    'CAMPOS----------------------------------------
   sSQL = sSQL & "("
    sSQL = sSQL & "  campoDaTabela"
    sSQL = sSQL & ")"
  
     sSQL = sSQL & " VALUES"
    sSQL = sSQL & "("
    sSQL = sSQL & "  '" & Trim(Me.CampoDoFormulario) & "'"
 
    sSQL = sSQL & ")"
MsgBox " Exames guardados",vbinformation
    db.Execute sSQL

crysostomo, Obrigado pela atenção.

Meu maior desafio agora é conseguir quebrar essas linhas para que o relatório e formulário fiquem de forma legível.

Confesso que não sei onde inserir o código que você criou pra juntas os dados.
Criei 3 caixas diferentes e destas caixas fiz uma concatenação pra juntar tudo em um campo só, porém ainda preciso resolver a quebra de linhas.

Vamos aguardar os mestres, sei que aqui tem muita gente que pode me ajudar nesse código.

Quebrar as linhas em um campo concatenado por 3 campos:

=[FRM_EXAMES1].[Formulário]![DSEXAME1] & [FRM_EXAMES2].[Formulário]![DSEXAME2] & [FRM_EXAMES3].[Formulário]![DSEXAME3]
Gostaria de quebrar após o &.

para colocar do jeito que quer , pelo fato de não saber quebrar linha com campoconcatenado, ei faria o sequinte:
no campo exames totais eu colocaria ex1 ,ex2 ex3 concatenando e quebrando no relatório . uma ideia que eu não mexi ainda nisso

para colocar do jeito que quer , pelo fato de não saber quebrar linha com campo concatenado, faria o sequinte:
no campo exames totais eu colocaria ex1 ,ex2 ex3 e colocava um embaixo do outro. Mas fico nessa tbm sobre quebrar linhas com campo concatenado

Pensei em fazer assim, porem no relatório eu teria 3 campos pra concatenar também, por que não posso definir um tamanho padrão para 3 caixa, tem seleção que terá 30 caracteres e tem seleção que terá 200, por isso o ideal era concatenar e quebrar as linhas em um campo único.

Estou tentando outras ideias, muito obrigado pela ideia.

também  fiquei pensando isso , ma seu fico de gaiato nesse tópico , pois as 4 formas de quebrar linhas não está funcionando para quebrar linha com campo concatenada
o arquivo de guarda exames ai.

Muito Obrigado pela ajuda, conseguir resolver as duas coisas no mesmo código, veja:
Funcionou legal, utilizando apenas uma caixa de seleção.



Private Sub COMBO_AfterUpdate()
If Me.EXAME = Null Then
Me.EXAME = Me.COMBO.Column(1)
Else
Me.EXAME = Me.EXAME & vbNewLine & vbNewLine & Me.COMBO.Column(1)
End If

DoCmd.Save
DoCmd.RefreshRecord

End Sub

Crysostomo.

Sua sugestão também funcionou perfeitamente, valeu ajuda, precisando estou a disposição.

Até mais!

Eu fiz essa VbNewLine aqui não tinha dado certo.
Vkwwwww