[Resolvido]Ajuda com caixas de combinação e texto

Boa tarde.
Tenho uma caixa de combinação A e duas caixa de texto (B) e (C).
A A é multi seleção que joga as opções escolhidas na caixa de texto B.
O que não sei fazer e preciso da ajuda.
É como fazer as opções não escolhidas nessa caixa de combinação serem visualizadas na caixa de Texto C?
Alguém poderia ajudar por favor.
Obrigado.

Boa tarde.
Fiz um exemplo do que desejo.
Existem 2 tabelas (teste e teste1) e 1 form (frmListBox).
A tabela teste é sobre frutas.
no form frmListBox (multiseleção) e no campo origem criei uma consulta com
SELECT Teste.Código, Teste.Campo1 FROM Teste ORDER BY Teste.Campo1;
Ao escolhermos as frutas e apos confirmar a escolhas, as escolhidas são visualizadas na caixa texto B.
O que precisava era que as frutas não escolhidas fossem visualizadas na caixa texto C.

Obrigado.

Mylton

Experimente isso:

Renomeie as caixas de texto

CaixaDeTexto_B
CaixaDeTexto_C

Código:


Sub BoundData()

    Dim frm As Form, ctl As Control
    
    Dim linhaAtual As Integer
    Set frm = Forms!frmListBox
    Set ctl = frm!CaixaDeListagem
    
   Me.CaixaDeTexto_B = Null
   Me.CaixaDeTexto_C = Null

    For linhaAtual = 0 To ctl.ListCount - 1
    
       If ctl.Selected(linhaAtual) Then
          If linhaAtual = 0 Then
             Me.CaixaDeTexto_B = ctl.ItemData(linhaAtual)
          Else
             Me.CaixaDeTexto_B = Me.CaixaDeTexto_B & ", " & ctl.ItemData(linhaAtual)
          End If
       Else
          If Len(Me.CaixaDeTexto_C & "") = 0 Then
      
             Me.CaixaDeTexto_C = ctl.ItemData(linhaAtual)
          Else
             Me.CaixaDeTexto_C = Me.CaixaDeTexto_C & ", " & ctl.ItemData(linhaAtual)
          End If
          
      
       End If
    
    Next
    DoCmd.RunCommand acCmdSave
End Sub

{ }'s

Balem

Obrigado.
Noobezinho. Valeu mesmo.
Funcionou.
Acrescentei a rotina para desmarcar as escolhas na listBox...

Dim n As Integer
'------------------------------------------------------
'Percorre a lista do último item para o primeiro item
'------------------------------------------------------
For n = (Me!CaixaDeListagem.ListCount - 1) To 0 Step -1
'------------------------------
'Vai desmarcando item por item
'------------------------------
Me!CaixaDeListagem.Selected(n) = False
Next


E funcionou.
Mais uma vez obrigado mesmo.

Resolvido.
Abs a todos.

Eu encontrei essa mesma rotina na net, depois que postei.
Fiquei aguardando tua resposta, caso não conseguisse,
eu postava.
Acredito que tenha colocado o comando:
DoCmd.RunCommand acCmdSave
Entre o next e o End Sub da função BoundData()
para salvar na tabela.
Não precisa responder  

Boa sorte!


Balem