Estou a usar o seguinte codigo :
Private Sub Numero_AfterUpdate()
On Error Resume Next
' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "CLIENTE = " & Me.Numero
' Procura o nome do cliente e atribuí ao Caixa_de_combinação689 transformada em caixa de texto .
Me.Caixa_de_combinação689 = DLookup("NOME", "tblcliente", strFiltro)
End Sub
Quando coloco o numero do cliente e atualizo o campo aparece o erro Compile error: Variable not defined. Alguma pista para colocar este codigo a funionar?
Private Sub Numero_AfterUpdate()
On Error Resume Next
' Avaliar o filtro antes ser passado para a função DLookup.
strFiltro = "CLIENTE = " & Me.Numero
' Procura o nome do cliente e atribuí ao Caixa_de_combinação689 transformada em caixa de texto .
Me.Caixa_de_combinação689 = DLookup("NOME", "tblcliente", strFiltro)
End Sub
Quando coloco o numero do cliente e atualizo o campo aparece o erro Compile error: Variable not defined. Alguma pista para colocar este codigo a funionar?