Doorgaan naar hoofdcontent

Access: gevanceerd zoekscherm dat direct in meerdere kolommen zoekt en kan sorteren

In de praktijk maak ik geregeld applicaties in Access die als front end dienen voor een database als de SQL Server.

Bij het maken van deze applicatie ben ik continu op zoek naar mogelijkheden om deze front ends te verbeteren.

Zoekscherm

In het volgende scherm wordt in alle kolommen tegelijk gezocht. Met elk ingetypt teken in het bovenstaande zoekvak verandert het resultaat eronder direct mee. Het voorbeeld is gemaakt op basis van de database Noordenwind.


Hoe steekt dit technisch in elkaar? Bij het zoekvak wordt bij de gebeurtenis Bij wijzigen een VBA-functie gebeurtenisprocedure aangeroepen.


Deze gebeurtenisprocedure ziet er als volgt uit:

Private Sub txtZoeken_Change()
    Dim strSQL As String
    strSQL = " SELECT Klantnummer, Bedrijf, Contactpersoon, Functie, Plaats, Land "
    strSQL = strSQL & " FROM tblKlanten "

    If Me.txtZoeken.Text <> "" Then
        strSQL = strSQL & " WHERE Klantnummer like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Bedrijf like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Contactpersoon like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Functie like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Plaats like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Land like '*" & Me.txtZoeken.Text & "*'"
    End If

    Me.lstKlanten.RowSource = strSQL
    lstKlanten.Requery
End Sub

LstKlanten verwijst naar de onderste listbox.

Sorteerknoppen boven de kolommen

De labels boven de kolommenfungeren als sorteerknoppen. Bij de gebeurtenis Bij klikken wordt er een functie aangeroepen:

=SortForm([Form];1)

[Form] geeft de naam van het formulier aan; het cijfer bepaalt de kolom die gebruikt wordt voor de sortering.

De aangeroepen functie ziet er qua code als volgt uit:

Public Function SortForm(frm As Form, ByVal strOrderBy As String) As Boolean
    Dim strSQL As String
    strSQL = " SELECT Klantnummer, Bedrijf, Contactpersoon, Functie, Plaats, Land "
    strSQL = strSQL & " FROM tblKlanten "

    If Me.txtZoeken.Text <> "" Then
        strSQL = strSQL & " WHERE Klantnummer like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Bedrijf like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Contactpersoon like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Functie like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Plaats like '*" & Me.txtZoeken.Text & "*'"
        strSQL = strSQL & " OR Land like '*" & Me.txtZoeken.Text & "*'"
    End If
    strSQL = strSQL & " ORDER BY " & strOrderBy

    frm.lstKlanten.RowSource = strSQL
    frm.lstKlanten.Requery
End Function


Reacties

Populaire posts van deze blog

Excel: gegevenslabel alleen bij de laatste waarde in een grafiek

Creatief met Corona Bij het maken van een grafiek over de voortschrijdende Corona cijfers in Nederland liep ik tegen een probleem aan. Als je bij een reeks gegevens in een grafiek de gegevenslabels aan zet, krijg je die labels bij elke waarde. Ik wilde dit label alleen bij de laatste waarde tonen. Nu kun je natuurlijk alle andere gegevenslabels afzonderlijk wissen, maar dat is een hoop werk. Op zoek naar een andere manier dus. De cijfers datum aantal 1-3-2020 3 2-3-2020 8 3-3-2020 5 4-3-2020 15 5-3-2020 44 6-3-2020 46 7-3-2020 60 8-3-2020 76 9-3-2020 57 10-3-2020 61 11-3-2020 121 12-3-2020 111 13-3-2020 190 14-3-2020 155 15-3-2020 176 16-3-2020 278 17-3-2020 292 18-3-2020 250 19-3-2020 20-3-2020 21-3-2020 22-3-2020 23-3-2020 24-3-2020 25-3-2020 ...

Vrouwen van het Friese verzet. Gevecht op vele fronten.

  Al toen mijn vorige boek, de biografie van Piet Oberman zijn voltooiing naderde, rees bij mij het idee onderzoek te doen naar de bijdrage van vrouwen aan het Friese verzet. Hoe groot was hun bijdrage eigenlijk geweest? En wie waren deze vrouwen precies? Eenmaal aan de slag werden me van alle kanten namen aangereikt. Of ik aan Wieke Bosch gedacht had? Nee, nooit van gehoord zelfs. Of Bouwina Meindertsma? Ja, die naam was ik eerder tegen-gekomen. Zelf ging ik ook op onderzoek uit en zo onstond gaande-weg een lijst met tweeëndertig namen van vrouwen die in de oorlog betrokken waren bij het verzet tegen de Duitse overheerser. Voor een deel afkomstig uit Friesland, maar voor een groot deel ook uit de rest van Nederland. Uit Groningen, Utrecht en Noord- en Zuid-Holland. En zelfs een jonge Joodse vrouw uit Duitsland. Ze moesten in de Tweede Wereldoorlog het hoofd bieden aan een wrede bezetter. Maar het boek gaat niet alleen over de oorlog.  De vrouwen moesten ook nog opboksen ...

Excel: Dynamische grafiek op basis van een geparametriseerde Power Query tabel

Dynamische grafieken in Excel Grafieken in Excel zijn dynamisch te maken met allerlei complexe formules (bijv. index, vergelijken en verschuiving). Makkelijker is het de grafiek te baseren op een Excel tabel (te maken via Invoegen => Tabel ). Nog leuker wordt het als een dergelijke tabel het resultaat is van een Power Query die we met behulp van keuzelijsten kunnen aansturen. Hieronder een voorbeeld. De tabel met parameters Deze heb ik linksboven geplaatst. De naam van deze tabel is Parameters (via Formules => Namen beheren ). Deze tabel wordt in Power Query gebruikt voor het oppikken van variabelen uit Excel, in dit geval DatumBegin en DatumEind . Deze variabelen worden via Gegevens => Gegevensvalidatie begrensd door de datum uit de eerste kolom van het blad Data . De gebruikte gegevens Deze staan op het blad Data en lopen van 1-1-2020 tot en met 20-8-2020. In de tweede kolom staan willekeurige bedragen. Deze gegevens zijn via From Table / Range ingeladen in Power Query ....