Herkese selam,

Sitemizden aldığım bir örnekteki kodu bir ilave ile kullanmak istiyorum ama maalesef yapamadım.

If Me.Filter = IIf(IsNull(Me.ARAMA) Or Me.ARAMA = "", "", "[ARA] Like '*" & Me.ARAMA & "*'") Then
Me.FilterOn = True

(Bu araya ARAMA kutusuna yazılan değerin veritabanında bulunamaması halinde önce aşağıdaki mesajı vermesini ve daha sonra YENİKAYIT'a gitmesini sağlayacak bir kod yazmak istedim. Then
[b]MsgBox ("Aradığınız kritere uygun kay