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

    [Resolvido]Auto preenchimento com 2 parametros

    avatar
    RafaelSPereira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/10/2012

    [Resolvido]Auto preenchimento com 2 parametros Empty Auto preenchimento com 2 parametros

    Mensagem  RafaelSPereira 5/11/2012, 16:43

    Boa tarde caros,

    A dúvida parece ser simples, mas não consegui fazer rodar direito, talvez eu esteja errando na formatação.
    Eu tenho formulário no qual eu entro com um código do cliente e os dados do cliente são preenchidos
    automaticamente através do comando DLookup.
    Até agora deu tudo certo, porém tem um campo "responsável" que é necessário 2 valores de validação, "Logradouro" e "Numero" (que estão na mesma tabela)e eu não consigo fazer fazer o comando para validar os dois campos.
    os campos Responsavel, Logradouro e Numero estão na tabela "tbEnderecos",

    Segue uma amostra de como estão os códigos.

    "
    Me.EndereçoDeInstalacao = DLookup("Logradouro", "tbClienteEndereco", "CodigoClienteEndereco = " & "[Formulários]![FormularioCadastral2]![CodLocalInstalacao]")

    Me.N = DLookup("Numero", "tbClienteEndereco", "CodigoClienteEndereco = " & "[Formulários]![FormularioCadastral2]![CodLocalInstalacao]")

    Me.Bairro = DLookup("Bairro", "tbEnderecos", "Logradouro = " & "[Formulários]![FormularioCadastral2]![EndereçoDeInstalacao]")

    Me.CEP = DLookup("CEP", "tbEnderecos", "Logradouro = " & "[Formulários]![FormularioCadastral2]![EndereçoDeInstalacao]")

    Me.Cidade = DLookup("Cidade", "tbEnderecos", "Logradouro = " & "[Formulários]![FormularioCadastral2]![EndereçoDeInstalacao]")

    Me.UF = DLookup("UF", "tbEnderecos", "Logradouro = " & "[Formulários]![FormularioCadastral2]![EndereçoDeInstalacao]")

    Me.Responsavel = DLookup("Responsavel", "tbEnderecos", "Numero = " & " [Formulários]![FormularioCadastral2]![N]")
    "

    eu tentei colocar

    Me.Responsavel = DLookup("Responsavel", "tbEnderecos", "Logradouro = " & "[Formulários]![FormularioCadastral2]![EndereçoDeInstalacao]" And "Numero = " & " [Formulários]![FormularioCadastral2]![N]")

    mas deu erro de tipos incompatíveis.

    Desde já agradeço a grande ajuda.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  criquio 5/11/2012, 16:47

    Talvez assim:

    Código:
    Me.Responsavel = DLookup("Responsavel", "tbEnderecos", "Logradouro='" & Formulários!FormularioCadastral2!EndereçoDeInstalacao & "' And Numero=" & Formulários!FormularioCadastral2!N & "")


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    RafaelSPereira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/10/2012

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  RafaelSPereira 5/11/2012, 17:06

    Boa tarde criquio,

    Rodei aqui, e está dando o erro "424" ' O objeto é obrigatório'

    Tentei dar uma mexida no código mas não deu muito certo não
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  criquio 5/11/2012, 17:07

    Troque Formulários por Forms. No VBA, você deve usar os termos em inglês. Agora que prestei atenção a isso. Talvez resolva.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    RafaelSPereira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/10/2012

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  RafaelSPereira 5/11/2012, 17:13

    Troquei e agora deu o erro 3464 "tipo de dados incompatíveis na expressão de critério"

    Achei estranho o formulários por forms, por que os outros estão formulários mesmo e estão funcionando direito.

    Todos os campos estão com o mesmo tipo de dados "texto"
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  criquio 5/11/2012, 17:18

    Se todos são tipo texto, precisa usar aspas simples junto com as duplas. Veja assim:

    Código:
    Me.Responsavel = DLookup("Responsavel", "tbEnderecos", "Logradouro='" & Forms!FormularioCadastral2!EndereçoDeInstalacao & "' And Numero='" & Forms!FormularioCadastral2!N & "'")


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    RafaelSPereira
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 10
    Registrado : 24/10/2012

    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  RafaelSPereira 5/11/2012, 17:30

    Agora sim, rodou perfeitamente.

    Muito obrigado pela ajuda.

    Conteúdo patrocinado


    [Resolvido]Auto preenchimento com 2 parametros Empty Re: [Resolvido]Auto preenchimento com 2 parametros

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 14:55