stLinkCriteria question

[Bob Richardson]

My form has a drop-down list with the names of various Events. When I click
the desired Event I trigger an OnClick event that is suppose to open the
EventForm with information contined in the record "Event" Here's my
subroutine. The problem is "Me![EventBox]" When I click the an item in the
EventBox, e.g. "Series2005" I get a small dialog box that says: "Enter
Parameter Value" and it shows "Series2005" with two buttons and a place to
type in some parameter.

With what should I replace "Me![EventBox]"?

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

 

[John Vinson]

My form has a drop-down list with the names of various Events. When I click
the desired Event I trigger an OnClick event that is suppose to open the
EventForm with information contined in the record "Event" Here's my
subroutine. The problem is "Me![EventBox]" When I click the an item in the
EventBox, e.g. "Series2005" I get a small dialog box that says: "Enter
Parameter Value" and it shows "Series2005" with two buttons and a place to
type in some parameter.

With what should I replace "Me![EventBox]"?

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

If Event is a Textfield you need the syntactically required
quotemarks. Try

stLinkCriteria = "[Events].[Event]='" & Me![EventBox] & "'"

If the event might contain an apostrophe (e.g.if there were an event
named "Mairi's Wedding") use doublequotes; you need to double the
doublequote within the doublequote delimited string to get a single
doublequote:

stLinkCriteria = "[Events.Event]=""" & Me![EventBox] & """"

John W. Vinson[MVP]

 

[Bob Richardson]

Perfect. Thanks John.

My form has a drop-down list with the names of various Events. When I
click
the desired Event I trigger an OnClick event that is suppose to open the
EventForm with information contined in the record "Event" Here's my
subroutine. The problem is "Me![EventBox]" When I click the an item in
the
EventBox, e.g. "Series2005" I get a small dialog box that says: "Enter
Parameter Value" and it shows "Series2005" with two buttons and a place to
type in some parameter.

With what should I replace "Me![EventBox]"?

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

If Event is a Textfield you need the syntactically required
quotemarks. Try

stLinkCriteria = "[Events].[Event]='" & Me![EventBox] & "'"

If the event might contain an apostrophe (e.g.if there were an event
named "Mairi's Wedding") use doublequotes; you need to double the
doublequote within the doublequote delimited string to get a single
doublequote:

stLinkCriteria = "[Events.Event]=""" & Me![EventBox] & """"

John W. Vinson[MVP]