MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    Buscar automaticamente de uma tabela para outra

    avatar
    Mbarnei
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 07/01/2016

    Buscar automaticamente de uma tabela para outra Empty Buscar automaticamente de uma tabela para outra

    Mensagem  Mbarnei 7/1/2016, 18:23

    Galera, boa tarde !

    Me registrei agora no site e acredito vou aprender muito aqui !!!!

    Procurei bastante mas não achei o que preciso, então vamos lá...

    Tenho uma tabela CLIENTE, onde preencho "nome, telefone e e-mail", e tenho um formulário que se chama VENDA, porem o campo nome deste formulário a é uma caixa de listagem que vem da tabela CLIENTE, porém ao lançar por exemplo o nome JOÃO DA SILVA na tabela VENDA ( que esta cadastrado na tabela CLIENTE ), os campos telefone e e-mail venham automaticamente para a tabela VENDA.

    Espero que eu tenha conseguido explicar sem bagunçar ...
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    Buscar automaticamente de uma tabela para outra Empty Re: Buscar automaticamente de uma tabela para outra

    Mensagem  FabioPaes 7/1/2016, 19:44

    Bom na sua Caixa de seleção, na propriedade apos atualizar vc coloca esse código: (adapta pros seus campos)
    Código:
    Private Sub CbCli_AfterUpdate()
    Me.CpfCNPJ = Me.CbCli.Column(1)
    Me.End_Cli = Me.CbCli.Column(2)
    End Sub

    Repitas as linhas para preencher todos os campos....

    CbCli é a minha caixa de seleção, que busca o Código e Nome do cliente.
    CpfCNPJ É o campo que receberá automaticamente o CPF ou CNPJ do Cliente (Me.CpfCNPJ)
    CbCli É a Caixa de pesquisa , Column(1) É a coluna onde esta o nome dos clientes da minha caixa de seleção (Me.CbCli.Column(1).

    End_Cli É o campo onde receberá automaticamente o Endereço do cliente.

    Para saber em qual coluna estão os dados na sua caixa de pesquisa, ou ate incluir novos campo, clique na propriedade da Caixa de Seleção, va ate a guia "Dados", no Item "Origem da Linha" (tem algo parecido com isso "Select ...), La você clica nos três pontinhos e abre no modo design da consulta e adiciona todos os campos que preencherão automaticamente os campos da tabela VENDAS....

      Data/hora atual: 20/1/2022, 10:22