Getting RunTime Error

[kryszystof via AccessMonster.com]

Good Morning,

I am trying to run code in a form, and I am getting error of

Run-Time Error '2501'
The OpenForm action was cancelled.

i have checked syntax, naming, i can't figure it out,

i have this specific function in another access db, and it works great.

any suggestions?

my code:

Private Sub QuickLookup_AfterUpdate()

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_Main"

stLinkCriteria = "[WRKORDNBR]=" & "'" & Me![QuickLookup] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub


TIA,
~K

 

[Klatuu]

The problem is this line:
stLinkCriteria = "[WRKORDNBR]=" & "'" & Me![QuickLookup] & "'"
Change it to this:
stLinkCriteria = "[WRKORDNBR]='" & Me![QuickLookup] & "'"