MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Como alterar um valor de um combo?

    Compartilhe
    avatar
    Ximenes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/05/2017

    Como alterar um valor de um combo?

    Mensagem  Ximenes em Dom 07 Maio 2017, 17:46

    Estou reforçando meu aprendizado em access e tenho a seguinte dúvida:
    Estou com um form que há 8 componentes: Três Caixas de texto (TXTQTE, TXTVUNIT e TXTTOTAL), uma Caixa de combinações (CBXLISTAFRUTAS) e Uma caixa de listagem (LSTLISTATOTAL) todos desacoplados e dois botões (CMDADDFRUTA e CMDDELFRUTA)
    A sequência de preenchimento é a seguinte ao carregar do form é preenchido a caixa de listagem com todas as frutas exemplo :mamão, abacaxi, pera, etc
    quando clico no CMDADDFRUTA é adicionado na caixa de listagem a descrição da fruta a descrição da fruta a qte o valor unitário e o valor total (qte x valor unitario)
    Até o preenchimento de todos os itens via VBA está tudo correto
    mas quando eu clico na lista (LSTLISTATOTAL) para selecionar uma fruta para excluir a única coisa que não conseguir fazer foi alterar o texto da caixa de combinação mas o resto eu consegui...


    bom tentei os seguintes procedimentos no evento click do LSTLISTATOTAL :
    OBS: A minha caixa de listagem possui 2 colunas código e nome da fruta
    1 - CBXLISTAFRUTAS.Text = LSTLISTATOTAL.column(2) OBS.: minha Caixa de listagem tem 5 colunas e a que se refere ao nome da fruta é a coluna número 2
    2 - CBXLISTAFRUTAS.value = LSTLISTATOTAL.column(2)
    3 - CBXLISTAFRUTAS.Column(1) = LSTLISTATOTAL.column(2)

    Nenhum desses deu certo.
    Desde já agradeço a todos que puderem ajudar
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Como alterar um valor de um combo?

    Mensagem  Alexandre Neves em Dom 11 Jun 2017, 22:02

    Boa noite, e bem-vindo ao fórum
    Disponibilize pequeno exemplo significativo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3672
    Registrado : 20/04/2011

    Re: Como alterar um valor de um combo?

    Mensagem  Silvio em Dom 11 Jun 2017, 23:09

    Boas...um pitaco.

    Experimente no comando de excluir.

    me.nomesuacombo.requery


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    [Você precisa estar registrado e conectado para ver este link.]
    avatar
    Ximenes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/05/2017

    Re: Como alterar um valor de um combo?

    Mensagem  Ximenes em Qua 14 Jun 2017, 17:36

    Conforme o pedido do amigo Alexandre Neves estou anexando o Arquivo
    Anexos
    Frutas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (144 Kb) Baixado 4 vez(es)
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Como alterar um valor de um combo?

    Mensagem  Alexandre Neves em Qua 14 Jun 2017, 21:23

    Boa noite,
    Está a misturar a dúvida das frutas com a dúvida do relatório?
    Não entendi o que pretende fazer e quer que aconteça na bd das frutas
    Dê todos os detalhes: o que faço, o que devia acontecer e não acontece, ...


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    Ximenes
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5
    Registrado : 02/05/2017

    Re: Como alterar um valor de um combo?

    Mensagem  Ximenes em Qui 15 Jun 2017, 13:41

    Caro Alexandre Neves Desculpe pela segunda dúvida (eu pensei que estava editando um novo post...)
    mas tenho 2 dúvidas separadas
    1 - É a questão do combo do sistema da frutas no anexo frutas.zip adicionei um png com o detalhamento do que estou com dúvida.
    2 - Como montar relatórios via vba (poderá ser qualquer relatório eu apenas citei um exemplo clássico de listagem de clientes).
    Obrigado por me alertar sobre tópicos diferentes no mesmo post irei ser mais atento no futuro.
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6505
    Registrado : 05/11/2009

    Re: Como alterar um valor de um combo?

    Mensagem  Alexandre Neves em Qui 15 Jun 2017, 15:51

    Boa tarde,
    Código:
        If LSTLISTATOTAL.ListCount > 1 Then
            Fruta_Selecionada = LSTLISTATOTAL.ListIndex
            TXTVUNIT = LSTLISTATOTAL.Column(2)
            TXTQTE = LSTLISTATOTAL.Column(3)
            vlParcial = LSTLISTATOTAL.Column(4)
            TXTTOTAL = vlParcial
            CBXLISTAFRUTAS.Value = LSTLISTATOTAL.Column(0)
        End If
    Nomeie de forma normalizada, fica visual mais leve e leitura mais intuitiva
    LSTLISTATOTAL->LstListaTotal
    TXTVUNIT->TxtVUnit
    TXTQTE->TxtQte
    TXTTOTAL->TxtTotal
    CBXLISTAFRUTAS->CbxListaFrutas


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: Qua 22 Nov 2017, 20:18