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

    Preencher Caixa de Combinação ao clicar na Caixa de Listagem

    Compartilhe
    avatar
    Connekta Informatica
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1016
    Registrado : 01/07/2011

    Preencher Caixa de Combinação ao clicar na Caixa de Listagem

    Mensagem  Connekta Informatica em 15/5/2018, 18:34

    Boa Tarde

    Tenho um formulário aonde tem todos os dados do produto e outro aonde eu altero e cadastro os produtos.

    Quando eu clico na Caixa de Listagem abre o formulário com os dados do produto, ai as caixas de textos preenche mais as caixa de combinação não.

    Estou utilizando o seguinte código:
    Código:

    Private Sub lstProdutos_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm_CadProdutos"
    ...
    Forms!frm_CadProdutos!Fornecedor = DLookup("Fornecedor", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(0))
    ...
    Forms!frm_CadProdutos!Setor = DLookup("Setor", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(0))
    Forms!frm_CadProdutos!Marca = DLookup("Marca", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(0))
    ...

    End Sub

    Os campos do código são caixa de combinação e estão preenchido na tabela, só porque quando eu clico ele abre em branco.


    .................................................................................




    Untitled Document





    Connekta Informática Apoia:


    Chapada dos Veadeiros - Alto Paraíso de Goiás
    Venha conhecer as belezas naturais desta cidade.


    Clique Aqui


    Lembrete: Desfrutar e Preservar é um direito de Todos.





    Ricardo Monteiro
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 46
    Registrado : 27/11/2017

    Re: Preencher Caixa de Combinação ao clicar na Caixa de Listagem

    Mensagem  Ricardo Monteiro em 1/8/2018, 20:39

    Tente alterar no código o índice da coluna do campo me.lstProdutos.column(0) de "0" para 1, 2, 3, etc. Lembrando de fazer a correspondencia.

    Código:

    Private Sub lstProdutos_DblClick(Cancel As Integer)
    DoCmd.OpenForm "frm_CadProdutos"
    ...
    Forms!frm_CadProdutos!Fornecedor = DLookup("Fornecedor", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(1))
    ...
    Forms!frm_CadProdutos!Setor = DLookup("Setor", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(2))
    Forms!frm_CadProdutos!Marca = DLookup("Marca", "tbl_CadProdutos", "CodItem=" & Me.lstProdutos.Column(3))

      Data/hora atual: 16/10/2018, 11:34