[Resolvido]Preencher campos texto

Amigos, bom dia!

Preciso preencher três campos texto com base na consulta NomeTelefoneeMail. Estou usando:

Private Sub IDContato_AfterUpdate()

Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("NomeTelefoneeMail")
NomeContato = Rst("NomeContato")
TelefoneContato = Rst("Telefone")
eMailContato = Rst("eMailContato")

End Sub

Sem critério na consulta "NomeTelefoneeMail" funciona, só que entra nos campos o primeiro registro da consulta.
Então preciso filtrar a consulta "NomeTelefoneeMail" com o campo [IDContato] no formulário carregado.


Quando coloco como critério na consulta (via QBE) esse campo [IDContato] dá um erro "Parâmetro insuficiente, era esperado 1".

Tentei com os diferentes parâmetros "Type", mas começou a dar erro de tipo incompatível e por aí foi...

Gostaria de ver com os amigos sobre esses erros.

Muito obrigado!
Lárimer

Pode abrir o Recordset já filtrado;

Set Rst = CurrentDb.OpenRecordset("SELECT * FROM NomeTelefoneeMail WHERE blablabla")

JPaulo, como sempre, muito obrigado!

Fiz assim:

Private Sub IDContato_AfterUpdate()

UpdateQuery = NometelefoneeMail


Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("Select*From NomeTelefoneeMail WHERE 'IDContato= & IDContato'")

NomeContato = Rst("NomeContato")
TelefoneContato = Rst("Telefone")
eMailContato = Rst("eMailContato")

End Sub

Mas continua dando "pau": "Erro em tempo de execução 3061 - Parâmetros insuficientes - Eram esperados 1"

Observação: Esse erro ocorre quando na consulta salva como critério o campo [IDContato] no formulário.

Sem critério passa mas sem filtrar...

Thaks!
Láriemr

Fala Larimer...

Cara....
Se meu olhar não estiver muito ruin, vc tem um apostrofo a mais na condição e está fechando as aspas no local errado!!!!

Set Rst = CurrentDb.OpenRecordset("Select*From NomeTelefoneeMail WHERE IDContato = " & me.IDContato & ";")

Dá uma olhada se funfa agora!!!!!

Desde já agradeço....

Abraço a todos!!!!

É isso ae como o Cristiano diz, e não necessita de qualquer variavel.

Private Sub IDContato_AfterUpdate()
Dim Rst As DAO.Recordset

Set Rst = CurrentDb.OpenRecordset("Select * From NomeTelefoneeMail WHERE IDContato= " & Me.IDContato)

NomeContato = Rst!NomeContato
TelefoneContato = Rst!Telefone
eMailContato = Rst!eMailContato

Rst.Close: Set Rst= Nothing
End Sub

Friends CrisMaleta e JPaulo,

Valeu!
Sem trocadilho, vcs são "o máximo"! (tomando cuidado com as aspas...)

Obrigado pela ajuda!

O comando permite sugerir um dado para o usuário, mas ele pode escolher outro ID e muda o conjunto.

Lárimer

Obrigado pelo retorno o forum agradece.