Öncelikle, Yapılmaması Gereken Ölümcül Hatalar konusunu inceleyiniz. Uygulamanızın yapısı hatalarla dolu.
Örnek uygulamanızda, Tablo1'deki ilk satırda
Kasa no: 2695, Z No: 1001 olarak kaydedilmiş.
İCMAL GİRİŞ isimli formda yeni kayıt eklerken, kasa no açılan kutusundan 2695 seçtikten sonra Z no alanına 1001 yazdığında uyarı vermesini istiyorsanız
Z NO metin kutusunun güncelleştirme sonrasında olayına aşağıdaki kodu ekleyiniz.
Dim VarMi As Integer
VarMi = DCount("[KASA NO]", "Tablo1", "[KASA NO] = '" & [KASA NO] & "' And [Z NO] = " & [Z NO] & "")
If VarMi <> 0 Then
MsgBox ([KASA NO] & " Kasa Numarasına " & [Z NO] & " Z Numarası Daha Önce Girildiği İçin " & Me.Z_NO + 1 & " Değeri Atandı")
Me.Z_NO = Me.Z_NO + 1
End If