G
Guest
My form has txtFirstName, txtSurname, and cboCategoryID;
cboCategoryID rowsource is:
SELECT lkupProcedureCat.ProcedureCatID, lkupProcedureCat.ProcedureCat,
lkupProcedureCat.Use FROM lkupProcedureCat WHERE
(((lkupProcedureCat.Use)="surgeon")) OR (((lkupProcedureCat.Use)="both"))
ORDER BY lkupProcedureCat.ProcedureCat;
In the header i have cboFilter with the same rowsource:
I have this code in the AfterUpdate of the cboFilter:
Private Sub cbofilter_AfterUpdate()
If IsNull(Me.cbofilter) Then 'Remove the filter
Me.Filter = vbNullString
Me.FilterOn = False
Else
Me.Filter = "[cboCategoryID] = '" & Me.cbofilter & "'"
Me.FilterOn = True
End If
End Sub
....which i got from another post to this forum (thankyou).
The problem is that when i select the filter item from the cbofilter i get
a message box
Enter parameter value: cboCategoryID
Thank you in advance for your suggestions
CHeers
Chris
cboCategoryID rowsource is:
SELECT lkupProcedureCat.ProcedureCatID, lkupProcedureCat.ProcedureCat,
lkupProcedureCat.Use FROM lkupProcedureCat WHERE
(((lkupProcedureCat.Use)="surgeon")) OR (((lkupProcedureCat.Use)="both"))
ORDER BY lkupProcedureCat.ProcedureCat;
In the header i have cboFilter with the same rowsource:
I have this code in the AfterUpdate of the cboFilter:
Private Sub cbofilter_AfterUpdate()
If IsNull(Me.cbofilter) Then 'Remove the filter
Me.Filter = vbNullString
Me.FilterOn = False
Else
Me.Filter = "[cboCategoryID] = '" & Me.cbofilter & "'"
Me.FilterOn = True
End If
End Sub
....which i got from another post to this forum (thankyou).
The problem is that when i select the filter item from the cbofilter i get
a message box
Enter parameter value: cboCategoryID
Thank you in advance for your suggestions
CHeers
Chris