Opening form to specific record

[Jerry Anderson]

The following code is automatically generated by the "open Form" command
button. Is there a way to modify the code so that an additional parameter
[CostCenter] can be used in conjunction with the variable [EventName]?

If ActualProjected.Value = "Projected" Then
stDocName = "ProjectedEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "ActualEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"
Me.Visible = False

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

 

[fredg]

The following code is automatically generated by the "open Form" command
button. Is there a way to modify the code so that an additional parameter
[CostCenter] can be used in conjunction with the variable [EventName]?

If ActualProjected.Value = "Projected" Then
stDocName = "ProjectedEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "ActualEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"
Me.Visible = False

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

This part is not necessary ... =" & "'" & Me.[.....] etc.
See below.

What is the datatype of the [CostCenter] field?
Is it a field shown on the Form?
Let's assume [CostCenter] is shown on the form and it is a text
datatype.

stLinkCriteria = "[EventName]= '"& Me![SelectEvent] & "' AND
[CostCenter] = '" & Me.[CostCenter] & "'"

For clarity, the quotes are as follows:
"[EventName]= ' " & Me![SelectEvent] & " ' AND [CostCenter] = ' " &
Me.[CostCenter] & " ' "

 

[John W. Vinson]

The following code is automatically generated by the "open Form" command
button. Is there a way to modify the code so that an additional parameter
[CostCenter] can be used in conjunction with the variable [EventName]?

If ActualProjected.Value = "Projected" Then
stDocName = "ProjectedEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"

DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "ActualEventDetails"
stLinkCriteria = "[EventName]=" & "'" & Me![SelectEvent] & "'"
Me.Visible = False

DoCmd.OpenForm stDocName, , , stLinkCriteria

End If

Sure. stLinkCriteria needs to be a text string which contains a valid SQL
query WHERE clause without the WHERE, using AND, OR or any other valid SQL
operators. You don't say how CostCenter comes into the query, but at a guess
you could do something like

stLinkCriteria = "[EventName]=""" & Me![SelectEvent] _
& """ AND [CostCenter] = """ & Me![CostCenter] & """"

assuming that both fields are of Text type.

 

[Jerry Anderson]

Thanks. You've solved my problem!