dlookup

[mikeba1]

I am pulling my hair out !!
The following code gives error 2001 cancelled previous operation

'MsgBox ("email therapist booking")
Dim therem
therem = DLookup("[E-mail]", "[therapists]", "therapist= " & Forms![zoom]!ther)
If therem > "" Then
' Call emailaddtherapist(therem, noteb, notea)
End If

e-mail is a field on the table therapists with the key of therapist
form zoom field ther contains a valid therapist id

Help

 

[PHV]

If by chance therapist isn't a numeric field:

therem = DLookup("[E-mail]", "[therapists]", "therapist=[!]'[/!]" & Forms![zoom]!ther [!]& "'"[/!])

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mikeba1]

Sometimes you can't see the woods for the trees.

Thanks PHV, works fine

 

[missinglinq]

In your code you currently have the line

[b]Call emailaddtherapist(therem, noteb, notea)[/b]

commented out, but if you intend to use it later, you need to be aware that when no match is found using the criteria with DLookup() it does not return a Zero-Length String, which is what you are testing for with this:

[b]If therem > "" Then
' Call emailaddtherapist(therem, noteb, notea)
End If[/b]

Instead, it returns a Null, so use this:

[b]If Not IsNull(therem) Then
' Call emailaddtherapist(therem, noteb, notea)
End If[/b]

The Missinglinq

Richmond, Virginia

The Devil's in the Details!

 

[mikeba1]

Thanks
It was only commented out whilst testing.

 

[missinglinq]

That's what I figured!

The Missinglinq

Richmond, Virginia

The Devil's in the Details!