Hocalarım merhaba , arama yaptığım alanda arama yaparken isim soyisim girdiğimde enter ' e basmadan kişi yoksa hata nasıl verdiririm?

kişiyi bulamadığı zaman end debug hatası veriyor çünkü. bunun yerine kişi bulunamadı diye uyarı verdirebilir miyim?

kullandığım kod aşağıdadır.

DoCmd.SearchForRecord , "", acFirst, "[Kimlik] = " & Str(Nz(Screen.ActiveControl, 0))
Liste48.Requery
Liste51.Requery
Form_FRM_YENİOGRENCİTAKİP.ALTFRM_BORCALACAK.Requery
Metin59.Caption = Format(Nz(DSum("borc_tutari", "tbl_ogrenci_tahakkuk", "ogrenci_id=" & Açılan_Kutu60), 0) - Nz(DSum("odeme_tutari", "tbl_ogrenci_tahsilat", "ogrenci_id=" & Açılan_Kutu60), 0), "Currency")

işleminizin formda gerçekleştiğini varsayarak
yordamınızın başına


kodunu ekleyin
DoCmd.SearchForRecord , "", acFirst, "[Kimlik] = " & Str(Nz(Screen.ActiveControl, 0)) kodunun altına da

(14-11-2022, 14:09)halily demiş ki: işleminizin formda gerçekleştiğini varsayarak
yordamınızın başına

Visual Basic

x = Me.Recordset.AbsolutePosition

kodunu ekleyin
DoCmd.SearchForRecord , "", acFirst, "[Kimlik] = " & Str(Nz(Screen.ActiveControl, 0)) kodunun altına da

Visual Basic

If x <> Me.Recordset.AbsolutePosition Then
'kayıt bulununca yapılacak işler
end if

sayın @halily hocam teşekkür ederi. deneyeyim sonucu buradan paylaşacağım.