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


3 participantes

    Buscar dados de uma tabela com o campo texto

    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 03/07/2011

    Buscar dados de uma tabela com o campo texto Empty Buscar dados de uma tabela com o campo texto

    Mensagem  Helder Milhome 5/3/2014, 14:51

    Tenho 2 tabela que contem o mesmo campo

    tabela 1
    idcliente
    nome
    endereço
    cpf - (campo texto)
    .... etc..


    tabela 2
    idcompras
    produto
    quant
    cpf (campo texto)
    ... etc ...
    bem.. o que eu quero é quando colocar o cpf ele traga
    da tabela 1 os dados do cliente
    pelo campo ID é facil
    como fazer como um campo texto... eis questão??

    Grato
    Heler


    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  JPaulo 5/3/2014, 14:53

    Utilize a função interna DLookup()

    Dê uma pesquisada pelo fórum.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Buscar dados de uma tabela com o campo texto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Buscar dados de uma tabela com o campo texto Folder_announce_new 102 Códigos VBA Gratuitos...
    Buscar dados de uma tabela com o campo texto Folder_announce_new Instruções SQL como utilizar...
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 03/07/2011

    Buscar dados de uma tabela com o campo texto Empty Buscar dados de uma tabela com o campo texto

    Mensagem  Helder Milhome 5/3/2014, 17:17

    Obrigado Amigo JPaulo vou olhar agora
    Helder Milhome
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 03/07/2011

    Buscar dados de uma tabela com o campo texto Empty buscar dados de uma tabela com o campo texto

    Mensagem  Helder Milhome 5/3/2014, 19:07

    Desculpe
    mais nao consequi nada com dlooup.. nao deu certo
    usando com o AfterUpdate
    olhei os exemplo nao consegui nada para adaptar pra minha solução..

    Grato

    avatar
    Convidado
    Convidado


    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  Convidado 5/3/2014, 23:03

    Amigo, como teu campo é texto tens que usar a aspas simples, como o colega João Paulo citou, faz a busca digitando somente Dlookup e verás vários tópicos com instrução de como usar a função quando o campo for número ou texto.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  Avelino Sampaio 6/3/2014, 07:33

    Helder,

    cole aqui o código utilizado com o campo ID, para que agente possa te ajudar a adaptar para o CPF

    Aguardamos


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 03/07/2011

    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  Helder Milhome 13/3/2014, 00:46

    Private Sub txtCodigoBarras_AfterUpdate()
    Me.txtdescricao = DLookup("descricao_produtos", "compra_produtos", "codigobarras =" & txtCodigoBarras)

    End Sub

    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  JPaulo 13/3/2014, 09:03

    Ola;

    'se numerico está correto
    Me.txtdescricao = Nz(DLookup("descricao_produtos", "compra_produtos", "codigobarras =" & txtCodigoBarras), 0)

    'se texto será
    Me.txtdescricao = Nz(DLookup("descricao_produtos", "compra_produtos", "codigobarras ='" & txtCodigoBarras & "'"), 0)




    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Buscar dados de uma tabela com o campo texto Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Buscar dados de uma tabela com o campo texto Folder_announce_new 102 Códigos VBA Gratuitos...
    Buscar dados de uma tabela com o campo texto Folder_announce_new Instruções SQL como utilizar...
    Helder Milhome
    Helder Milhome
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 03/07/2011

    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  Helder Milhome 15/3/2014, 23:33

    Boa noite Amigão.
    estou usando o exemplo que voce faz pra mim deu certo
    Private Sub txtCodigoBarras_AfterUpdate()
    Me.txtdescricao = DLookup("descricao_produtos", "compras", "codigobarras =" & txtCodigoBarras)
    End Sub
    com a função dlookup, o sistema me manda uma mensagem informando o erro 2001
    e dizendo que "Você cancelou a operação anterior"!!!
    vou tentar aqui até ter um resultado satisfatorio ...
    minha sql na consulta
    SELECT SYSPDVIMP.SYSDPV, SYSPDVIMP.Data, SYSPDVIMP.CódProduto_Compras, SYSPDVIMP.QUANTIDADE, SYSPDVIMP.DESCONTO, SYSPDVIMP.SYSDPVR, Compras.PreçoDeVenda_Compras, Produtos.Descrição_Produto, Produtos.IDTipo_Tipo, Produtos.Superficie, Produtos.Adicao, Produtos.Diametro, Produtos.AlturaMimina, Produtos.Disponidilidade, Compras.codigobarras, Compras.CódProdProgramado
    FROM Produtos INNER JOIN (SYSPDVIMP INNER JOIN Compras ON SYSPDVIMP.CódProduto_Compras = Compras.CódProduto_Compras) ON Produtos.IDProdutosDesc_Produtos = Compras.CódProdDesc_Compras
    ORDER BY SYSPDVIMP.SYSDPV;
    agora ele diz que não encontra o indice CódProduto_Compras entre as tabela de compra e produtos...(Agora deu certo !!!rsrsrsrs mim lasquei vou olhar a copia do sistema pra ver onde errei)
    depois retorno
    At+ abraços

    Conteúdo patrocinado


    Buscar dados de uma tabela com o campo texto Empty Re: Buscar dados de uma tabela com o campo texto

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 27/4/2024, 21:50