[Resolvido]Consulta no Access 2010

Amigão

Penso que algo está mal na sua BD.

Private Sub Comando64_Click()
On Error Resume Next
Dim strDocName As String
Dim strFilter As String
strDocName = "Pagamento - Mensal inserte manual"
strFilter = "NUMERADOR = Forms!GerarProtocoloCabCONTRATUAL!NUMERADOR"
DoCmd.OpenQuery strDocName, acwiewnormal, acEdit, , strFilter
End Sub

o Access não gosta de nomes espaçados. Corrija e teste, por favor

Vieira,

O access está questionando os critérios na linha:

DoCmd.OpenQuery strDocName, acwiewnormal, acEdit, , strFilter

Ô Gaijo, este argumento de filtragem não existe no comando OpenQuery.

Abra a sua consulta no modo estrutura e acrescente no critério do campo numerador Forms!GerarProtocoloCabCONTRATUAL!NUMERADOR

Basta agora chamar a consulta pelo seu botão: DoCmd.OpenQuery "NomeDaConsulta"

Sucesso!

Meus caros, obrigado. Ainda tenho que aprender muito, ainda bem que existe um forum neste nível.

Faltou o Resolvido. Desta vez eu coloco. Um abraço e bom trabalho