Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Vba filter not working 3
- Thread starter Moss100
- Start date
I would try this assuming both fields are text.
Make sure you set the filter on.
Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
Code:
Me.Form.Filter = "Hol_Staff_Member ='" & Me.cbo_Staff_Initials_Sort & "' And [Hol_Year]='" & Me.cbo_Holiday_Year & "'"Make sure you set the filter on.
Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
-
1
- #3
Moss100 said:
Help yourself by:
Code:
Dim strFilter As String
...
strFilter = "Hol_Staff_Member = '" & Me.cbo_Staff_Initials_Sort & "' And Hol_Year = '" & Me.cbo_Holiday_Year & "'"
[blue]Debug.Print strFilter[/blue]
Me.Form.Filter = strFilterAnd SEE what your Filter is
---- Andy
"Hmm...they have the internet on computers now"--Homer Simpson
Using Andy’s suggestion, you can copy and paste the expression into a SQL view of a query:
Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
SQL:
SELECT * FROM [Your Table] WHERE [paste expression here to check]Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
- Thread starter
- #5
![[upsidedown]](/data/assets/smilies/upsidedown.gif "[upsidedown] [upsidedown]")
-
1
- #7
I doubt the line of code compiled because of the errant quotes.
Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
Duane
Minnesota
Hook'D on Access
MS Access MVP 2001-2016
-
1
- #8
Cole Mendoza
Programmer
Hi Mark,
Based on the snippet you provided, it appears you are trying to filter a form based on two criteria: the staff member initials and the holiday year.
Regarding your question about correcting the code, it looks like the code is missing a closing parenthesis after the first criteria. Here is the corrected code with the parenthesis added:
Me.Form.Filter = "Hol_Staff_Member ='" & Me.cbo_Staff_Initials_Sort & "' And [Hol_Year]='" & Me.cbo_Holiday_Year & "'"
Also, if you're still having trouble getting the desired results, you may want to check if the values of the cbo_Staff_Initials_Sort and cbo_Holiday_Year controls are being properly passed to the filter string.
I hope this helps, and good luck with your project!
Based on the snippet you provided, it appears you are trying to filter a form based on two criteria: the staff member initials and the holiday year.
Regarding your question about correcting the code, it looks like the code is missing a closing parenthesis after the first criteria. Here is the corrected code with the parenthesis added:
Me.Form.Filter = "Hol_Staff_Member ='" & Me.cbo_Staff_Initials_Sort & "' And [Hol_Year]='" & Me.cbo_Holiday_Year & "'"
Also, if you're still having trouble getting the desired results, you may want to check if the values of the cbo_Staff_Initials_Sort and cbo_Holiday_Year controls are being properly passed to the filter string.
I hope this helps, and good luck with your project!
- Status
Similar threads
- Question
