MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 13:22

    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


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 18/6/2020, 13:57

    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
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 14:16

    zcarloslopes. bom dia.

    seu código retornou um erro:
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação Captur10


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 18/6/2020, 14:42

    Qual a linha que fica vermelha?

    Veja o Exemplo.
    Anexos
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação AttachmentcboBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (16 Kb) Baixado 4 vez(es)
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 14:52

    Esta:  

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

    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


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 18/6/2020, 14:56

    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
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 15:07

    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):
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação Captur13

    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:
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação Captur14


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 18/6/2020, 15:16

    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?
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 15:28

    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.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 20:39

    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.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 18/6/2020, 21:32

    zcarloslopes,

    veja este print:
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação Captur15

    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.


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 19/6/2020, 08:46

    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?
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 19/6/2020, 09:34

    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
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 19/6/2020, 14:02

    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.
    Anexos
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (276 Kb) Baixado 2 vez(es)


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales
    avatar
    zcarloslopes
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 295
    Registrado : 28/10/2010

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

    Mensagem  zcarloslopes em 19/6/2020, 15:00

    Boa tarde,

    Veja se é isto que pretende.
    Anexos
    Caixa de Texto recebe todos os produtos selecionados em uma Caixa de Combinação AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (224 Kb) Baixado 2 vez(es)
    avatar
    ARGONZALE
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 187
    Registrado : 21/05/2015

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

    Mensagem  ARGONZALE em 19/6/2020, 17:14

    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á?


    .................................................................................
    Obrigado.

    Att.

    Alexandre Gonzales

      Data/hora atual: 8/7/2020, 09:07