Jump to content

Erro DLookup


Recommended Posts

Boas

Tenho um campo onde guardo um número composto por 9 algarismos e queria que ao preencher e ao sair desse campo ele me procurasse na tabela se ja existia esse número e que me desse um valor associado a esse campo.

campo x - preencho o campo x ao sair ele procura se ja existe o campo x

se ja existe

devolve o valor Y associado ao valor x

se nao existe

sai da funcao

o codigo é este

Dim NIB As String

Dim varX As Variant

Dim procura As String

If Me.Num_SNS.Value = "" Then

Exit Sub

End If

varX = DLookup("[NIB]", "tblReembolsos", "Num_SNS=" & [Num_SNS])

End Sub

Acontece que da o erro 3464 tipo de dados incorrectos. Ja procurei no google e parece tudo correcto  ?

Obrigado

Skoll

Link to comment
Share on other sites

skool, me dá uma informação....  quando isso ocorre??  logo que procura??  com qualquer procura que faça??  por acaso deu certo alguma vez??

tipo incorreto... será que os tipo de variável de entrada da procura, não está diferente ao dá tabela??

Bom não sei se vai ajudar.. mas vou postar aki uma codificação que usei com dlookup.  porém o valor da textbox de entrada para procura eu carreguei para uma variável, a qual eu usei no Dlookup.

Dim intProcura, varX As Variant
Dim MSGD, TitleD

'On Error GoTo Medic_Err

Ambulatório.SetFocus
If Ambulatório.Text = "_____" Or Ambulatório.Text = "" Then
    Exit Sub
Else
intProcura = Ambulatório.Text
varX = DLookup("[AMBULATÓRIO]", "Amb", _
    "[CÓD] = " & intProcura)
Nome_do_Ambulatório.Locked = False
Nome_do_Ambulatório.SetFocus
End If

If IsNull(varX) Then
    Nome_do_Ambulatório.Text = "Ambulatório não encontrado"
Else
    Nome_do_Ambulatório.Text = varX
End If

Nome_do_Ambulatório.Locked = True
Exit Sub


'Tratamento do Erro
Medic_Exit:
    Exit Sub

'Linha de erro
Medic_Err:
'define mensagem

MSGD = "Verifique novamente os Campos do formulário"
'define título
TitleD = "UNICAMP"
'mensagem por completo
    MsgBox MSGD, vbCritical, TitleD
    Profissional.SetFocus
'    MsgBox Error$
    Resume Medic_Exit
Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.