Open Form Based on Criteria

  • Thread starter Thread starter JK
  • Start date Start date
J

JK

I have a db (Access03) that I'm using to track consumer complaints. I first
have my item master form with a subform that displays all complaints assigned
to the item that is displayed. I have a edit button next to each complaint so
that a specific complaint can be opened and edited.

I also have a button that is on the main form that i would like to use to
display all complaints assigned to the item that is displayed. However, when
I click the button, I get every complaint in the database - not just
complaints assigned to the item that is displayed.

This is the code I'm using. Would anyone be able to tell me why this is not
working? I've tried doing this a number of different ways. I even tried
creating a seperate query with code in the on open event to change the
recordsource but that didn't work either.

stLinkCriteria = "[ProductID]=" & Me![ProductID]
DoCmd.OpenForm FormName:="frmItemComplaintDataEntry", _
WhereCondition:=stLinkCriteria

Any help would be appreciated thanks!

Jason
 
JK said:
I have a db (Access03) that I'm using to track consumer complaints. I first
have my item master form with a subform that displays all complaints assigned
to the item that is displayed. I have a edit button next to each complaint so
that a specific complaint can be opened and edited.

I also have a button that is on the main form that i would like to use to
display all complaints assigned to the item that is displayed. However, when
I click the button, I get every complaint in the database - not just
complaints assigned to the item that is displayed.

This is the code I'm using. Would anyone be able to tell me why this is not
working? I've tried doing this a number of different ways. I even tried
creating a seperate query with code in the on open event to change the
recordsource but that didn't work either.

stLinkCriteria = "[ProductID]=" & Me![ProductID]
DoCmd.OpenForm FormName:="frmItemComplaintDataEntry", _
WhereCondition:=stLinkCriteria
Click to expand...


stLinkCriteria = "[ProductID]=" & Me![ProductID] _
& " AND [ItemID] = " & Me.subformcontrol.Form.[ItemID]
 
Back
Top