Avatar billede dth Nybegynder
27. januar 2004 - 01:45 Der er 8 kommentarer og
2 løsninger

Reset filter

Jeg kalder flg filter:
DoCmd.ApplyFilter "Kunder_fore_navn", "Navn Like [Navn ?]"

Det der nu giver mig GRÅ hård er:
Hvordan reset'er jeg det filter sådan at jeg også næste gang jeg klikker på knappen bliver bedt om at indtaste navnet??

Når jeg engang har indtastet er jeg nød til at lukke formularen for at få dialogen igen

På forhånd tak
DTH
Avatar billede mugs Novice
27. januar 2004 - 05:44 #1
Me.FilterOn = False
Avatar billede mugs Novice
27. januar 2004 - 05:54 #2
Du kan evt lave det i et hug og på samme knap, ved at indsætte en betingelse:

Private Sub Kommandoknap14_Click()
If Me.FilterOn = False Then
DoCmd.ApplyFilter "Kunder_fore_navn", "Navn Like [Navn ?]"
Me.Kommandoknap14.Caption = "Fjern filter"
Else:
Me.FilterOn = False
Me.Kommandoknap14.Caption = "Indsæt filter"
End If
End Sub
Avatar billede dth Nybegynder
27. januar 2004 - 09:02 #3
Er forsøgt, når man så trykker på knappen igen, ville man gerne have at den kom med en inputbox igen, men det gør den ikke, den bruger den indtastning fra før, du skal lukke formularen helt for at "slette" filteret :-/
Avatar billede terry Ekspert
27. januar 2004 - 12:20 #4
DoCmd.ApplyFilter "Kunder_fore_navn", "Navn Like " & InputBox("Indats Kunde", , "Ingen kunder")
Avatar billede terry Ekspert
27. januar 2004 - 12:21 #5
.
Avatar billede mugs Novice
27. januar 2004 - 18:23 #6
dth -> NEJ. formularen skal ikke lukkes for at "slette filteret". Og trykker du på knappen 2. gang kommer inputboksen igen!
Avatar billede dth Nybegynder
28. januar 2004 - 00:48 #7
Jeg beklager meget mugs men nu har jeg lavet en copy-paste af din kode, og anden gang jeg starter filteret er tager den bare inputet fra før og bruger igen.. :-/
Avatar billede dth Nybegynder
28. januar 2004 - 04:34 #8
terry -> sorry, men den der kan jeg ikke få til at acceptere wildcards.. :-)
Avatar billede terry Ekspert
28. januar 2004 - 08:39 #9
course you can!
DoCmd.ApplyFilter "Kunder_fore_navn", "Navn Like *" & InputBox("Indats Kunde", , "Ingen kunder") & "*"
but then if your happy with mugs answer then you home and dry :o)
Avatar billede mugs Novice
28. januar 2004 - 12:46 #10
dth -> Jeg kan sende en testdb. Blot læg din e-mail.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Dyk ned i databasernes verden på et af vores praksisnære Access-kurser

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester