Access Form Filters?????

[Z1nkstar]

I have an access form that has a drop down menu of numbers 1-5 and i need to be able to filter the data on the form by that number can anyone help me find a way to make the filter or can give me a code that will filter the data by what number has been chosen?
And if there is another way that I can filter I am open you can send it to my email or to me here
pm if you want my email.

[JeroenMioch]

Private Sub BuildLeader_Afterupdate()

Dim strFilter As String
Dim blnFilter As Boolean

blnFilter = False

strFilter = " 1=1 "
If Me.BuildLeader <> "" Then
strFilter = strFilter + " and BuildLeader = '" & BuildLeader & "'"
blnFilter = True
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If

Me.FilterOn = True

End Sub

Put this in the afterupdate event of the dropdown box.
Asuming the field in your table is named BuildLeader as well. If its not, then edit it.

[Z1nkstar]

Okay I added it like so and got this error.

Private Sub BuildLeader_Afterupdate()

Dim strFilter As String
Dim blnFilter As Boolean

blnFilter = False

strFilter = " 1=1 "
If Me.BuildLeader <> "" Then
strFilter = strFilter + " and BuildLeader = '" & BuildLeader & "'"
blnFilter = True
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If

Me.FilterOn = True

End Sub

Put this in the afterupdate event of the dropdown box.
Asuming the field in your table is named BuildLeader as well. If its not, then edit it.

[JeroenMioch]

Sorry, my bad.

Private Sub BuildLeader_Afterupdate()

Dim strFilter As String
Dim blnFilter As Boolean

blnFilter = False

strFilter = " 1=1 "
If Me.BuildLeader <> "" Then
strFilter = strFilter + " and BuildLeader = '" & BuildLeader & "'"
blnFilter = True
end if
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If

Me.FilterOn = True

End Sub

[Z1nkstar]

It Works but when i try to filter the data this is what im getting???
Its just changing the value of the build leader for the first build?

Sorry, my bad.

Private Sub BuildLeader_Afterupdate()

Dim strFilter As String
Dim blnFilter As Boolean

blnFilter = False

strFilter = " 1=1 "
If Me.BuildLeader <> "" Then
strFilter = strFilter + " and BuildLeader = '" & BuildLeader & "'"
blnFilter = True
end if
If blnFilter Then
Me.Filter = strFilter
Else
Me.Filter = "1=2"
End If

Me.FilterOn = True

End Sub

[JeroenMioch]

Im not behind my pc anymore so i cant look closely to the sceenshots but in my code the first buildleader im mentioning should be the name of the dropdownbox.
The second buildleader in the code is the field in your table that you wish the data to be filtered.
The third time should be the name of the dropdownbox again.

The filter is normally used to combine search criteria. But it should work fine with just one criteria.

Let me know if it works

[Z1nkstar]

Thanks works Perfectly

[JeroenMioch]

Your welcome mate.
If you havent done it allready could you mark the thread as "solved" ?
You can find it under thread tools.

Kind regards,

Jeroen