Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
kun je prima maken met tekstveldfilters. Zet in de koptekst van een formulier een paar tekstvakken (van/boven de velden waarop je wilt filteren) en gebruik VBA om op basis van de ingevoerde tekst het (liefst doorlopende) formulier te filteren. Dat is vermoedelijk ook nog eens veel makkelijker (want duidelijker) voor de gebruiker.uitgebreider met sortering en bijv. 'begint met' of 'bevat'
Private Sub cbo01_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo02_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo03_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo04_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo05_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo06_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo07_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo08_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo09_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
'Private Sub cbo10_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo11_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub cbo12_AfterUpdate(): meZoek Me.ActiveControl.Name: End Sub
Private Sub ctr01_DblClick(Cancel As Integer): Me.cbo01.Value = Me.ActiveControl.Value: cbo01_AfterUpdate: End Sub
Private Sub ctr02_DblClick(Cancel As Integer): Me.cbo02.Value = Me.ActiveControl.Value: cbo02_AfterUpdate: End Sub
Private Sub ctr03_DblClick(Cancel As Integer): Me.cbo03.Value = Me.ActiveControl.Value: cbo03_AfterUpdate: End Sub
Private Sub ctr04_DblClick(Cancel As Integer): Me.cbo04.Value = Me.ActiveControl.Value: cbo04_AfterUpdate: End Sub
Private Sub ctr05_DblClick(Cancel As Integer): Me.cbo05.Value = Me.ActiveControl.Value: cbo05_AfterUpdate: End Sub
Private Sub ctr06_DblClick(Cancel As Integer): Me.cbo06.Value = Me.ActiveControl.Value: cbo06_AfterUpdate: End Sub
Private Sub ctr07_DblClick(Cancel As Integer): Me.cbo07.Value = Me.ActiveControl.Value: cbo07_AfterUpdate: End Sub
Private Sub ctr08_DblClick(Cancel As Integer): Me.cbo08.Value = Me.ActiveControl.Value: cbo08_AfterUpdate: End Sub
Private Sub ctr09_DblClick(Cancel As Integer): Me.cbo09.Value = Me.ActiveControl.Value: cbo09_AfterUpdate: End Sub
'Private Sub ctr10_DblClick(Cancel As Integer): Me.cbo10.Value = Me.ActiveControl.Value: cbo10_AfterUpdate: End Sub
Private Sub ctr11_DblClick(Cancel As Integer): Me.cbo11.Value = Me.ActiveControl.Value: cbo11_AfterUpdate: End Sub
Private Sub ctr12_DblClick(Cancel As Integer): Me.cbo12.Value = Me.ActiveControl.Value: cbo12_AfterUpdate: End Sub
Function meZoek( _
cboName As String _
)
Dim strWhere As String
Dim lngLen As Long
Const conJetDate = "\#mm\/dd\/yyyy\#" 'The format expected for dates in a JET query string.
If Not IsNull(Me("cbo01")) Then
strWhere = strWhere & "([bsb_dteDatum] = " & Format(Me("cbo01"), conJetDate) & ") AND "
End If
If Not IsNull(Me("cbo02")) Then
strWhere = strWhere & "([ord_intKlant] = " & Me("cbo02") & ") AND "
End If
If Not IsNull(Me("cbo03")) Then
strWhere = strWhere & "([bsb_strOnderdeel] LIKE '*" & Me("cbo03") & "*') AND "
End If
If Not IsNull(Me("cbo04")) Then
strWhere = strWhere & "([ord_intConsultant] = " & Me("cbo04") & ") AND "
End If
If Not IsNull(Me("cbo05")) Then
strWhere = strWhere & "([ord_intPlanner] = " & Me("cbo05") & ") AND "
End If
If Not IsNull(Me("cbo06")) Then
strWhere = strWhere & "([bsb_strStatus] = '" & Me("cbo06") & "') AND "
End If
If Not IsNull(Me("cbo07")) Then
strWhere = strWhere & "([ord_strTypeAnders] = '" & Me("cbo07") & "') AND "
End If
If Not IsNull(Me("cbo08")) Then
strWhere = strWhere & "([bsb_strBeschikbaar] = '" & Me("cbo08") & "') AND "
End If
If Not IsNull(Me("cbo09")) Then
strWhere = strWhere & "([bsb_intTrainer] = " & Me("cbo09") & ") AND "
End If
If Not IsNull(Me("cbo10")) Then
strWhere = strWhere & "([bsb_intActeur] = " & Me("cbo10") & ") AND "
End If
If Not IsNull(Me("cbo11")) Then
strWhere = strWhere & "([bsb_memOpmerkingen]LIKE '*" & Me("cbo11") & "*') AND "
End If
If Not IsNull(Me("cbo12")) Then
strWhere = strWhere & "([mrg_strOrderMaand] = '" & Me("cbo12") & "') AND "
End If
If Not cboGeannuleerd Then
strWhere = strWhere & "([bsb_strStatus] <> 'AN' AND [bsb_strStatus] <> 'BT') AND "
End If
lngLen = Len(strWhere) - 5
If lngLen <= 0 Then 'Laat alle records zien
Me.FilterOn = False
Else
strWhere = Left(strWhere, lngLen) 'Verwijder AND.
Me.Filter = strWhere
Me.FilterOn = True
End If
Me.OrderBy = "[tblOrderDagen].[bsb_dteDatum] " & Me.cbo01.Tag
On Error Resume Next
Me.ctr01.SetFocus
End Function
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.