Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 11 van 11

Onderwerp: controle filter leeg

  1. #1
    Vraag is niet opgelost

    controle filter leeg

    Hallo,

    Kan men indien men een filter uitvoert ( Me.Filter = ("[A] like '" & "*" & [zoek_A] & "*'") Me.FilterOn = True) nakijken of het resultaat hiervan geen records oplevert?

    Indien dit zich voordoet had ik graag deze filter terug uitgezet waar ik dan een MsgBox laat verschijnen.

    Hoe ga ik tewerk?

    Dank U

    Groeten

    Jos

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Ik snap even niet wat je aan het doen bent, al constateer ik wel dat de haakjes op jouw toetsenbord blijkbaar in de aanbieding waren (ze zijn overbodig) .
    Zodra je een filter uitvoert met VBA zie je vanzelf of er records overblijven of niet. En de gebruiker is dan vast wel in staat om zelf dat filter weer uit te zetten. Als je je werkt goed gedaan hebt, is dat een handeling van niks voor de gebruiker. Waarom zou je een Msgbox willen laten zien (“Er zijn geen records gevonden”?) voor iets zo luid en duidelijk op het scherm is te zien?
    Je zadelt de gebruiker alleen maar op met meer werk: naast het uitzetten van het filter, moet-ie ook nog eens een Msgbox wegklikken.

    Daarnaast nog de vraag: filter je op een doorlopend formulier, of een enkelvoudig formulier?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Hallo Octafish

    Dit is een database voor persoonlijk gebruik.

    De filter wordt uitgevoerd op een enkelvoudig formulier en ik had gewoon graag geweten of dit mogelijk was wanneer er geen resultaat was om de filter dan terug automatisch af te zetten (msgbox weg klikken via enter toets).

    Weeral iets bij geleerd betreffende de haakjes.

    Groeten,

    Jos

  4. #4
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Volgende vraag: hoe gebruik je het filter nu? Ik vermoed met een tekstveld op je formulier waarin je dan de zoekstring intypt. Maar dan?
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  5. #5
    Is inderdaad met een tekstveld en dan Me.Filter = (" A like '" & "*" & zoek_A & "*'") Me.FilterOn = True

  6. #6
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Ik snap hoe je het filter maakt en aanzet, maar dat bedoelde ik eigenlijk niet; ik was denk ik niet duidelijk genoeg. Ik wilde weten hoe je de code aan- en uitzet.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  7. #7
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Even een voorzetje dan maar hoe ik dit doorgaans doe: op het zoekveld gebruik ik de eigenschap <Bij wijzigen> om het filter te triggeren. je filtert dan 'live' op je formulier (vandaar dat ik vroeg of je een doorlopend formulier gebruikt, want daar zie je het effect het best). Je ziet dus bij elke letter die je typt de selectie kleiner worden, tot je er één, of niks overhoudt. Zodra je bij niks uitkomt, haal je de laatste letter(s) weg en voilà, je records komen weer stuk voor stuk terug. Nergens een Msgbox nodig, maar gewoon tekst intypen en verder niks.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  8. #8
    in het tekstvlak wordt er een woord ingegeven en daarna op enter. Als ik het op <Bij wijzigen> zet springt hij steeds naar een veld alhoewel er op het tekstvlak een tab stop staat.
    Laatst aangepast door Jos Van den Bro : 15 maart 2019 om 14:25

  9. #9
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Dan doe je iets niet goed denk ik, ik heb nooit problemen met de gebeurtenis <Bij wijzigen>. Daarbij zou de focus nooit uit het tekstvak weg mogen zijn, tenzij je uiteraard op de <Enter> toets drukt.
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  10. #10
    Probleem met mijn filter is wanneer ik iets heb ingegeven waar ik geen resultaat van terug krijg mijn velden en knoppen verdwijnen:

    zonder filter:
    Klik op afbeelding voor grotere versie

Naam:  zonder filter.jpg
Bekeken: 6
Grootte:  437,0 KB

    met filter:

    Klik op afbeelding voor grotere versie

Naam:  met filter.jpg
Bekeken: 6
Grootte:  93,7 KB

    Dit gebeurt zowel met een eenvoudig als gesplitst formulier.

  11. #11
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Ik heb dit nog nooit zo bij de hand gehad, dus ik heb geen idee wat je dan gemaakt hebt. Ik gebruik een hele simpele code die perfect werkt, en niks verbergt.
    Code:
    Private Sub Zoektekst_Change()
    Dim sZ As String
    
        sZ = Me.Zoektekst.Text
        If Len(sZ) > 0 Then
            Me.Filter = "[Medewerker_naam] Like ""*" & sZ & "*"""
            Me.FilterOn = True
            Me.Zoektekst.SelStart = Len(sZ)
        Else
            Me.Filter = ""
            Me.FilterOn = False
        End If
    End Sub
    Alles wat je meer doet, is dus blijkbaar teveel .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren