Michel,
Driftig zitten veranderen, je kijkt niet op een uurtje of wat, maar er gebeurde helemaal niets. Niet helemaal waar, het selecteerde lukte op een gegeven moment niet meer.
Ben er vanuit gegaan dat het e.e.a. zit in de Function FilterMaken()
Graag je hulp.
Risk
Driftig zitten veranderen, je kijkt niet op een uurtje of wat, maar er gebeurde helemaal niets. Niet helemaal waar, het selecteerde lukte op een gegeven moment niet meer.
Ben er vanuit gegaan dat het e.e.a. zit in de Function FilterMaken()
Code:
Function FilterMaken()
Dim sFilter As String
If Me.cboJaar & "" <> "" Then
sFilter = "[Jaar]=" & Me.cboJaar
If Me.cboVestiging & "" <> "" Then
sRapportFilter = Me.cboVestiging
End If
Else
If Me.cboVestiging & "" <> "" Then
sFilter = "[Vestiging] = '" & Me.cboVestiging & "'"
End If
End If
If Me.cboNaam & "" <> "" Then
If sFilter <> "" Then sFilter = sFilter & " AND "
sFilter = sFilter & "[Naam] = '" & Me.cboNaam & "'"
End If
If Me.cboKenteken & "" <> "" Then
If sFilter <> "" Then sFilter = sFilter & " AND "
sFilter = sFilter & "[Kenteken] = '" & Me.cboKenteken & "'"
End If
If sFilter <> "" Then
Me.Filter = sFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Function
Graag je hulp.
Risk