Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação

Prezados, bom dia.

Preciso de ajuda para montar uma lógica.

Tenho em um Frm Contínuo uma caixa de combinação de produtos (frutas) onde posso selecionar as frutas vendidas.

Também tenho uma Caixa de texto onde gostaria que estas frutas fossem lançadas de acordo com as escolhas feitas na caixa de combinação.

Fiz algumas experiências mas o resultado não foi satisfatório.

Tentei utilizar o comando do mestre JPaulo mas ele replica a informação se eu trocar a fruta escolhida:

Me.SuaCaixaTexto.Value = Me.SuaCaixaTexto.Value & Me.SuaListBox.Column(1) & ";" & ""
Me.SuaCaixaTexto.Requery

Desde já agraço

Boa tarde ARGONZALE,

Tente assim:

Após actualizar a sua ComboBox coloque o código:

Código:

If Len(Trim(Me.SuaCaixaTexto) & "") = 0 Then
    Me.SuaCaixaTexto = Me.SuaCombox
    Me.SuaCombox = Null
Else
    Me.SuaCaixaTexto = Me.SuaCaixaTexto & "; " & Me.SuaCombox
    Me.SuaCombox = Null
End If

Substitua SuaCaixaTexto pelo nome da sua txtBox e SuaCombox pela sua cboBox

zcarloslopes. bom dia.

seu código retornou um erro:

Qual a linha que fica vermelha?

Veja o Exemplo.

Esta:  

Código:

If Len(Trim(Me.txt_adic) & "") = 0 Then
    Me.txt_adic = Me.ID_Adicionais
    Me.ID_Adicionais = Null
Else
    Me.txt_adic = Me.txt_adic & "; " & Me.ID_Adicionais
    Me.ID_Adicionais = Null
End If
Me.txt_adic.Requery

Veja o exemplo que coloquei.

Pode também retirar as linhas:

Código:

If Len(Trim(Me.txt_adic) & "") = 0 Then
    Me.txt_adic = Me.ID_Adicionais
    Me.ID_Adicionais = Null '<--- Esta
Else
    Me.txt_adic = Me.txt_adic & "; " & Me.ID_Adicionais
    Me.ID_Adicionais = Null '<--- e Esta
End If
Me.txt_adic.Requery

zcarloslopes,

Seu código funcionou mas não totalmente da forma que preciso. Veja que ele insere os dados no campo mas não totaliza:

Exemplo: Se lanço dois produtos (cada um em uma caixa de combinação):


Perceba que ele não agrupa os dois na mesma caixa de texto:
Ele mostra o produto lançado apenas quando coloco em foco. E se troco por produto na caixa de combinação ele duplica a informação na textbox, veja:

Não será difícil fazer o que você pretende, o problema eu acho que ainda não consegui entender o que realmente pretende.

Se apenas pretende que a sua txtBox mostre o valor da sua cboBox ao receber foco bastaria colocar:

Código:

Me.txt_adic = Me.ID_Adicionais

É isso?

zcarloslopes,

O que pretendo que que minha Textbox obtenha todos os produtos escolhidos na minha Combobox.

Não quero que minha Texbox mostre o resultado apenas quando receber foco. Minha Textbox vai mostrar todos os produtos escolhidos. ok.

zcarloslopes,

Agora que consegui baixar seu exemplo e tem uma diferença e acho é aí que mora o problema.

No seE exemplo de BD seu frm não é contínuo. Quando você seleciona o produto, ele lança no textbox um a um.

No meu caso o frm é um subformulário e é contínuo e está acoplado a uma caixa de combinação que registra o ID do produto na Tabela.

Por ser frm contínuo, posso escolher mais de uma fruta por pedido e se o cliente fizer mais de um pedido preciso que ele agrupe todas as frutas escolhidas.

Espero que tenha entendido o caminho que estou percorrendo.

zcarloslopes,

veja este print:


Lancei dois produtos no Subform e no rodapé aparece somente um ( que esta com foco Mussarela). Minha intenção seria agrupar dentro de uma TextBox todos os produtos escolhidos na ComboBox: Mussarela; Cheddar assim por diante.

Essa talvez seja minha melhor explicação para o que preciso.

Bom dia ARGONZALE,

O código da msg nº 6 vai adicionando à sua txtBox os items que vai seleccionando nas suas cboBoxs.

No caso de você querer fazer isso por por cada linha, aí a abordagem terá que ser diferente. O que me ocorre de momento passaria por armazenar por cada linha essas dados num novo campo da mesma tabela.

É esse o caso?

Acho que finalmente entendi o seu propósito.

Tente o seguinte:

No topo do código:

Código:

Option Compare Database

Dim ChkCboBox As Boolean
Dim CboValue As String

Ao receber foco da combobox:

Código:

Private Sub ID_Adicionais_GotFocus()
If Len(Trim(Me.ID_Adicionais) & "") = 0 Then

    ChkCboBox = False
    CboValue = ""
Else

    ChkCboBox = True
    CboValue = Me.ID_Adicionais.Value
    
End If

End Sub

Depois de atualizar a combobox:

Código:

Private Sub ID_Adicionais_AfterUpdate()

If Len(Trim(Me.ID_Adicionais) & "") = 0 Then Exit Sub

If ChkCboBox = False Then

    If Len(Trim(Me.txt_adic) & "") = 0 Then
        Me.txt_adic = Me.ID_Adicionais
        Me.txt_adic.SetFocus

    Else
        Me.txt_adic = Me.txt_adic & "; " & Me.ID_Adicionais
        Me.txt_adic.SetFocus

    
    End If
Else

    If Len(Trim(Me.txt_adic) & "") = 0 Then
        Me.txt_adic = Me.ID_Adicionais
        Me.txt_adic.SetFocus

    Else
        Me.txt_adic = Replace(Me.txt_adic, CboValue, Nz(Me.ID_Adicionais, ""))
        Me.txt_adic.SetFocus
    
    End If
    
End If
End Sub

Bom dia zcarloslopes,

Ainda não funcionou.

Segue um BD de exemplo que criei para você analisar melhor propósito:

Abra o Form DetAdicionais e nele você vai ver os produtos lançados e no rodapé o campo que deveria agrupar os produtos.

Boa tarde,

Veja se é isto que pretende.

zcarloslopes, boa tarde.

Você conseguiu chegar ao resultado esperado mas ele não salva na tabela.

Fiz alguns testes aqui e quando ele salva na tabela o resultado não fica agrupado.

Porque será?