Dlookup run time error 2001

[Guest]

I continually get the message "you have cancelled the previous operation" run
time error 2001 when I use the following dlookup function

dim blp as string
blp = dlookup("[specialty]","operators","[init] ="&forms![anyform]![field]"

I have evencreated a new unbound form with no other code and still receive
this message.

Any help appreciated

 

[Allen Browne]

The error indicates that one of the 3 arguments for DLookup() is not
correct.

If init is a Number type field (not a Text type field), try:
Dim strWhere As String
Dim blp as Variant
strWhere = "[init] =" & forms![anyform]![field]
blp = DLookup("[specialty]", "operators", strWhere)

If it is a Text type field, you need extra quotes:
strWhere = "[init] =""" & forms![anyform]![field] & """"

 

[Guest]

Thank you, field is text, and the qoutation marks worked

The error indicates that one of the 3 arguments for DLookup() is not
correct.

If init is a Number type field (not a Text type field), try:
Dim strWhere As String
Dim blp as Variant
strWhere = "[init] =" & forms![anyform]![field]
blp = DLookup("[specialty]", "operators", strWhere)

If it is a Text type field, you need extra quotes:
strWhere = "[init] =""" & forms![anyform]![field] & """"

--
Allen Browne - Microsoft MVP. Perth, Western Australia.

Reply to group, rather than allenbrowne at mvps dot org.

I continually get the message "you have cancelled the previous operation"
run
time error 2001 when I use the following dlookup function

dim blp as string
blp = dlookup("[specialty]","operators","[init]
="&forms![anyform]![field]"

I have evencreated a new unbound form with no other code and still receive
this message.

Any help appreciated