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?
