zoekmachine

[mus]

Ik heb een zoekmachine gemaakt met natuurlijk met onafhankelijke velden.
Als ik voorbeeld bij voornaam de gewenste naam intypdan vindt hij het.
Maar ik kan niet bijv. voornaam en achternaam invullen en dan zoeken.
Ik wil dus dat je zowel 1 veld en meerdere velden tegelijk kan zoeken.

 

[Bartuls]

Controleer of er iets in een veld is ingevuld:

If Len(Trim(me![Veldje])) > 0 Then
'Hier je zoek argument samenstellen
End If

Als je dat voor al je velden doet dan kun je de verschillende zoekargumenten combineren.

 

[mus]

Kun je wat specifieker zijn. Ik heb een filter toegepast op de zoekmachine.
Dit is de filter:
[ID_leerling]=[Forms]![leerling]![ID] Or [Voornaam]=[Forms]![leerling]![vrnaam] Or [Achternaam]=[Forms]![leerling]![atnaam] Or [Geboortedatum]=[Forms]![leerling]![geb_datum]
Ik wil dus dat je op enkel veld kan zoeken en met meerdere velden kan zoeken zodat je de gebruiker sneller vindt.

 

[Bartuls]

Bouw je filter dynamisch op.
Ik stop het filter hier in de variable strZoekString

dim strZoekString As String

If Len(Trim([Forms]![leerling]![ID]) > 0 Then
if len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[ID_leerling]=[Forms]![leerling]![ID]"
End If

If Len(Trim([Forms]![leerling]![vrnaam]) > 0 Then
if len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[Voornaam]=[Forms]![leerling]![vrnaam]"
End If

etc.

Afhankelijk of er iets in een veld ingevuld is, wordt dit veld dan aan het filter toegevoegd.

 

[mus]

"Ik heb dit in visual basic gedaan. Hij geeft een foutmelding weet je wat er aan fout is " (Alsnog bedankt)


Private Sub Knop96_Click()
Dim strZoekString As String

If Len(Trim([Forms]![leerling]![ID]) > 0 Then
If Len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[ID_leerling]=[Forms]![leerling]![ID]"
End If

If Len(Trim([Forms]![leerling]![vrnaam]) > 0 Then
If Len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[Voornaam]=[Forms]![leerling]![vrnaam]"
End If


If Len(Trim([Forms]![leerling]![atnaam]) > 0 Then
If Len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[Achternaam]=[Forms]![leerling]![atnaam]"
End If

If Len(Trim([Forms]![leerling]![geb_datum]) > 0 Then
If Len(strZoekString) > 0 Then
strZoekString = strZoekString & " OR "
End If
strZoekString = strZoekString & "[Geboortedatum]=[Forms]![leerling]![geb_datum]"
End If



End Sub