Mükerrer Kayıt Engelleme Kodu ve Mesajının Güncelle ve Ara Butonlarına Gelmemesi

[Hasangencel]

Herkese hayırlı günler.

Aranıza yeni katıldım ve yavaş yavaş kodları öğrenmeye çalışıyorum. Benim sorum şu: WBA'de yapmış olduğum Veri Giriş Formundaki TextBox1 e fiş numaralarını kaydediyorum ve mükerrer kayıt olmasın diye aşağıdaki kodu yazdım. Kod çalışıyor. kayıt yapıyor. Buraya kadar sıkıntı yok. Ama Güncelle veya Ara butonlarına bastığımda hem uyarı mesajını alıyorum hem de TextBox1'in içini temizliyor. Bu kod Güncelle ve Ara butonlarında çalışmasın istiyorum. yardımlarınızı bekliyorum.

Private Sub tb_islemno_AfterUpdate()
Dim x As Long
x = Application.WorksheetFunction.CountIf(Sheets("Reddiyat").Range("C:C"), tb_islemno.Value)
If x = 1 Then
MsgBox "Bu EFT numarasi daha once kaydedilmistir."
tb_islemno.Value = ""
tb_islemno.SetFocus

 

[md3m1ray]

kendi kodunuza göre ekleme ve düzenlemeleri yapınız ve deneyiniz

Dim AramaGuncelle As Boolean

Private Sub btnGuncelle_Click()
    AramaGuncelle= True
    ' Güncelleme işlemleri kodunu yazın
    AramaGuncelle= False
End Sub

Private Sub btnAra_Click()
    AramaGuncelle = True
    ' Arama işlemleri kodunu yazın
    AramaGuncelle= False
End Sub

Private Sub tb_islemno_AfterUpdate()
    If AramaGuncelle Then Exit Sub ' Eğer Güncelle veya Ara butonu tıklandıysa koddan çık
    
    Dim x As Long
    x = Application.WorksheetFunction.CountIf(Sheets("Reddiyat").Range("C:C"), tb_islemno.Value)
    If x = 1 Then
        MsgBox "Bu EFT numarasi daha once kaydedilmistir."
        tb_islemno.Value = ""
        tb_islemno.SetFocus
    End If
End Sub

 

[Hasangencel]

Teşekkür ederim.

 

[md3m1ray]

rica ederim