Avatar billede puppetmaster Nybegynder
26. marts 2002 - 13:17 Der er 1 kommentar og
1 løsning

Vis MsgBox hvis filter resulterer i ingen resultater

Koden er som følger:

Private Sub knpSøg_Click()
  Me.Filter = "PNR = '" & Me!txtSøgeord & "' OR FORNVN = '" & Me!txtSøgeord & "' OR EFTERNVN = '" & Me!txtSøgeord & "'"
  Me.FilterOn = True
End Sub

Hvordan kan jeg nemmest: vise en MsgBox, som fortæller at filteret resulterer i "ingen resultater" og ophæve filteret?
26. marts 2002 - 13:20 #1
Prøv med:

Private Sub knpSøg_Click()
  Me.Filter = "PNR = '" & Me!txtSøgeord & "' OR FORNVN = '" & Me!txtSøgeord & "' OR EFTERNVN = '" & Me!txtSøgeord & "'"
  Me.FilterOn = True
If Me.Recordsetclone.Recordcount = 0 then
  msgbox "ingen resultater", vbinformation
  Me.Filteron = False
endif
End Sub
Avatar billede puppetmaster Nybegynder
26. marts 2002 - 13:22 #2
Tak
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