[Resolvido]#Erro DPesquisa

Olá pessoal!

Estou tentando utilizar a função DPesquisa em um formulário mas ela está retornando um valor "#Erro".

Quero digitar um número de pedido, ele procurar na consulta "consultaZY02" e ele me retornar o número do "Elemento PEP".

Mas está acontecendo isso:


O código que está na Fonte de Controle do campo texto Elemento PEP é este:

Código:

=DPesquisa("Elemento PEP";"consultaZY02";"Pedido=" & [txtPedido])

Não sei se está faltando algum argumento especial que deve ser usado para consultas diferentes de tabelas ou se a posição do elemento que está errada.

Alguém pode me ajudar?

Luiz Gabriel. Boa tarde.

Veja se atende suas necessidades.

Olá a todos,

Luiz Gabriel a questão do seu não funcionar deve-se a dois factores.

a) Nomes com espaço (colocar entre [], pode ser todos)
b) O campo txtPedido é do tipo Texto, então deve-se colocar entre Aspas duplas ou simples. Se fosse numerico não é necessário.

Teste assim:

Código:

=DPesquisar("[Elemento PEP]";"[consultaZY02]";"[Pedido] = '" & [txtPedido] & "'")

Abraço a todos

Deu certo!!!!

Carlao2 escreveu:
Luiz Gabriel. Boa tarde.

Veja se atende suas necessidades.

Muito obrigado pela sua colaboração Carlao2, vocês aqui do fórum são de grande valia e ajuda!

ahteixeira escreveu:
Olá a todos,

Luiz Gabriel a questão do seu não funcionar deve-se a dois factores.

a) Nomes com espaço (colocar entre [], pode ser todos)
b) O campo txtPedido é do tipo Texto, então deve-se colocar entre Aspas duplas ou simples. Se fosse numerico não é necessário.

Teste assim:
CÓDIGO:

Código:

=DPesquisar("[Elemento PEP]";"[consultaZY02]";"[Pedido] = '" & [txtPedido] & "'")

Abraço a todos

ahteixeira
Você ter explicado o passo a passo e ter mostrado o erro no meu código ajudou MUITO!

Eu assistia alguns vídeos no YouTube e via as pessoas colocando colchetes e outras não. Nunca tinha conseguido entender o que ele fazia exatamente.

Eu apenas fiquei com duas dúvidas:

b) O campo txtPedido é do tipo Texto, então deve-se colocar entre Aspas duplas ou simples. Se fosse numerico não é necessário."]

Isto é configuração da minha tabela, correto? Se eu quiser mudar para tipo numérico eu devo fazer isto em minha tabela, né?


Segunda dúvida: Eu não consegui entender este trecho do seu código:

Código:

'" & [txtPedido] & "'")

Não entendi o porque a quantidade de aspas e o porque do apóstrofo (') no meio delas. Consegue me mostrar o por que preciso usar isso? É sempre que devo fazer desta forma?

Muito obrigado por toda a ajuda.

Bom dia LuizGabriel

De nada, precisando estamos às ordens.


Grande abraço

Bom dia Carlao2, aproveitando mais um pouquinho seu conhecimento e boa vontade de eninsar posso tirar mais uma dúvida?

Eu quero copiar o valor que o DPesquisa me retornou no campo "Validação PEP" para o campo "PEP a ser adicionado" e salva-lo na tabela "Base zy02". Desta forma (copiei e colei manualmente):


Você sabe como eu faço isso?

Fui "remendando" alguns códigos que achei na Web mas e criei isso:

Código:

Private Sub txtAdicaoPEP_Click()
'Verifica se o campo Validação PEP está vazio para não salvar valores em branco na tabela BasePEP
If Not IsEmpty(Me.txtValidPEP) Then
        Me.txtAdicaoPEP = txtValidPEP
    Else
    End If
End Sub

Não está funcionando muito bem. Ele não atualiza o campo "PEP à ser adicionado" conforme o "Validação PEP" é atualizado.

Poderia me ajudar?

tente assim:


Private Sub txtAdicaoPEP_Click()
If Not IsEmpty(Me.txtValidPEP) Then
Me.txtAdicaoPEP = txtValidPEP
End If
End Sub

Olá a todos,
Luiz Gabriel, estou no celular, mas vou tentar explicar a dúvida da mensagem n. 4.

Imagine que quer pesquisar o código A001, tendo o A é um campo texto (String).
Se fosse colocar diretamente, tinha que colocar entre plicas, porque é texto:

Código:

=DPesquisar("[Elemento PEP]";"[consultaZY02]";"[Pedido] = 'A001'")

Se fosse 121, numerico, então não coloca as plicas:

Código:

=DPesquisar("[Elemento PEP]";"[consultaZY02]";"[Pedido] = 121")

Então é esta a diferença de colocar ou não as plicas.

Como você tem no seu form um campo txtPedido, foi incluído na instrução.

Código:

=DPesquisar("[Elemento PEP]";"[consultaZY02]";"[Pedido] = '" & [txtPedido] &"'")

Estamos a concatenar a instrução usando para isso o &
Abraço

Obrigado amigo, grande esclarecimento!  Em partes estes "&" me lembra uma forma usada para concatenar no Excel onde já estou mais familiarizado.

Olá Luiz Gabriel, obrigado pelo retorno, é mesmo isso.

Se está resolvido, não se esqueça de:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço

Valeu tauron, eu por puro acidente consegui fazer funcionar a função que copia o número de PEP para um outro campo.

-------------------------------

Para finalizar o meu formulário só preciso fazer algo aparentemente simples:



Quero armazenas os 13 primeiros caracteres do campo "Validação" na caixa de texto "PEP Nível 1".

Isso no Excel é facinho, é só fazer um =ESQUERDA([célula];13).  No Access eu tentei fazer algo parecido nas propriedades de fonte de controle. Visualmente funcionou, mas se torna algo inutíl porque não consigo salvar esta informação na minha tabela.

Como eu faço isso? É através de VBA?

Olá no Access é:

Código:

=left([campo];13)

Abraço

Olá, desculpe a ignorância mas onde eu adiciono isso? É no fomulário? Na tabela que armazena os dados do formulário? Estou perdido.

Olá, tente assim:

Abraço

Olá amigo, infelizmente não é funcional amigo.

Além dele não atualizar quando o Elemento PEP é alterado eu não consigo salvar esta sentença de 13 caracteres na tabela, já que a origem de controle foi alterada.

A aparência até que "funciona" no formulário, mas na tabela a célula fica em branco.

Olá, então reponha a origem do campo como estava.
Para isso temos que usar o VBA num Evento, tente assim:

Código:

Private Sub txtPedido_AfterUpdate()
'Verifica se o campo Validação PEP está vazio para não salvar valores em branco na tabela BasePEP
    If Not IsEmpty(Me.txtValidPEP) Then
        Me.txtAdicaoPEP = txtValidPEP
        Me.txtAdicaoPEP = Left(DLookup("[Elemento PEP]", "[consultaZY02]", "[Pedido]='" & [txtPedido] & "'"), 13)
    Else
    End If
End Sub

Abraço

Deu muito certo! Consegui!

Tópico encerrado. Muito obrigado a todos que colaboraram!

Ps.: Não estou conseguindo encontrar o botão para adicionar como "Resolvido".

Olá Luiz Gabriel, obrigado pelo retorno.

Veja aqui como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço