[Resolvido]Problema com DLookup

Boa tarde, caros colegas.

Estou na seguinte situação:


Tenho um formulário em que a pessoa insere um número de pedido numa textbox e ao clicar no botão buscar, as informações de data e status aparecem em textbox na parte de baixo.

O problema é que na hora em que eu clico no botão buscar, ele não faz nada.
Eu acho que pode ser no DLookup que estou fazendo, não parece estar errado, mas eu acho que é aqui que pode estar o problema.

As linhas que estão comentadas são as outras formas que eu tentei fazer essa consulta.

Vocês poderiam dar aquela força?

Em anexo segue o db


Grato desde já



Wilian

Boa tarde,

Troque todo o código do botão btnBuscaRegistro por:

Código:

    If IsNull(txtFINPedido) = True Then
        MsgBox "Insira o número do pedido", vbCritical, "Pedido não inserido"
        Exit Sub
    End If
   
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 01FinLiberaAnalise WHERE IdPedido = " & Me.txtFINPedido & "")
   
    Me.txtDataAnalise = rs!DataAnalise
    Me.txtResultadoAnalise = rs!ResultadoAnalise
   
    rs.Close

Abraço.

Cara... Muito obrigado!

Funcionou perfeitamente e com menos da metade de código.
Espero um dia chegar nesse nível.

Obrigado!


EDIT:
Fiquei com uma dúvida, Cassio.

Caso não haja nenhum registro com o número digitado, o access retorna um erro.
Tentei tratar esse erro, mas não consegui.
Tem alguma forma de tratar esse erro, para não fazer nada por exemplo?

Agradeço desde já!


EDIT2: Consegui!!!
Utilizando o DCount para verificar se o registro já existe.
Caso não exista, deixei para sair da Sub!

Obrigado!

Bom dia,

Você resolveria isso com o DCount sim, porém do ponto de vista do desempenho não vale a pena fazer mais uma viagem até a tabela para verificar esse valor se você já tem como ter esse dado em mãos com a propriedade RecordCount do RecordSet. O código completo fica:

Código:

   If IsNull(txtFINPedido) = True Then
        MsgBox "Insira o número do pedido.", vbCritical, "Pedido não inserido"
        Exit Sub
    End If
    
    Dim rs As Recordset
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM 01FinLiberaAnalise WHERE IdPedido = " & Me.txtFINPedido & "")
    
    If rs.RecordCount = 0 Then
        MsgBox "Não há registro para o pedido " & txtFINPedido & ".", vbCritical, "Registro não encontrado"
        txtFINPedido = Null
        txtDataAnalise = Null
        txtResultadoAnalise = Null
        rs.Close
        Exit Sub
    End If
    
    Me.txtDataAnalise = rs!DataAnalise
    Me.txtResultadoAnalise = rs!ResultadoAnalise
    
    rs.Close

De uma olhada neste link usandoaccess.com.br/tutoriais/aprenda-filtragens-no-access.asp?id=1 (copiar e colar no navegador) que vai aprender muita coisa sobre filtros/consultas.

Abraço.

Boa tarde, Cláudio!

Funcionou direitinho com essa tua solução!
Agora meu problema está sendo na parte do insert into.
Eu poderia postar aqui mesmo?

Novamente, obrigado!!!

Boa tarde,

Conforme as regras do fórum, só é possível tratar um assunto por tópico. Se este foi finalizado, então clique no botão resolvido e abra outro com sua nova dúvida. Eu ou outro colega do fórum irá te ajudar.

Abraço.

Ps.: Quem é Cláudio?

hahahahahahaha
Cara... me desculpe!
Não sei onde vi Claudio dessa vez!


Perfeito. Muito obrigado pela ajuda, Cassio!!!