Besked ved ingen poster ved brug af filter
Det er måske lidt sent på en fredag, men jeg forsøger alligevel:I en formular bruges et filer til at søge efter bestemte poster, default er frm'en sat til 'intet' hvilket giver ingen poster. Koden ser sådan ud:
Private Sub Form_Open(Cancel As Integer)
Me.Filter = "[FuldtNavn] = 'intet'"
Me.FilterOn = True
DoCmd.Maximize
End Sub
og
Private Sub knp_Søg_Click() 'Brugerbestemt filter
If Me!tb_SøgeFelt <> "" Then
Me.Filter = "[FuldtNavn] Like '*" & Me!tb_SøgeFelt & "*'"
Me.FilterOn = True
Else
Me.Filter = "[FuldtNavn] = 'intet'"
Me.FilterOn = True
End If
End Sub
Frm'en viser det i tabelformat. Hvis brugeren indtaster en filter-værdi som resulterer i ingen poster, kan jeg så skrive det i en Msgbox, og hvordan gør jeg?