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 : 1013
    Registrado : 01/07/2011

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

    Mensagem  Connekta Informatica em Ter 15 Maio 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.





      Data/hora atual: Ter 22 Maio 2018, 16:52