Skip to main content

AccessTr.neT


İsime Göre Mükerrer Girişi Engelleme

İsime Göre Mükerrer Girişi Engelleme

#2
tofatura_isim açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyiniz.

Dim AccessTrneT_Kontrol As Integer

AccessTrneT_Kontrol = DCount("tofatura_no", "toplafaturalarust", "[tofatura_isim] ='" & [tofatura_isim] & "'  And [tofatura_fat2no]= '" & [tofatura_fat2no] & "'")

If AccessTrneT_Kontrol > 0 Then

   MsgBox ("bu kayıt girilemez")
   tofatura_isim = ""
   Exit Sub

End If
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: İsime Göre Mükerrer Girişi Engelleme - Yazar: ozanakkaya - 31/07/2018, 16:32
Task