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
tofatura_isim açılan kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu yazarak deneyiniz.