"txt_tip_no" çıkıldığında olayını aşağıdaki gibi düzenlerseniz uyarı verir ama uyarı verdikten sonra ne yapılacak?

Private Sub txt_tip_no_Exit(Cancel As Integer)

Dim tipsay As Integer

tipsay = Nz(DCount("*", "TBL_TIPLER", "tip_no='" & txt_tip_no & "'"), 0)

If tipsay > 0 Then MsgBox (txt_tip_no & " Kayıtlı")

End Sub