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...