stLinkCriteria Question

B

Bob Richardson

What's my problem with "Me![EventBox]"? I want it to be the item that is
clicked in the drop down list "EventBox". Instead of opening the Event form
with the desired record, I get an Enter Parameter Value dialog box.

Private Sub EventBox_Click()
On Error GoTo Err_EventBtn_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "EventForm"
stLinkCriteria = "[Events.Event]=" & Me![EventBox]
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_EventBtn_Click:
Exit Sub

Err_EventBtn_Click:
MsgBox Err.Description
Resume Exit_EventBtn_Click

End Sub
 
Top