(20/09/2017, 18:08)sormaneden07 yazdı:(20/09/2017, 04:50)ozanakkaya yazdı: Merhaba,OOO BU çok iyi olmuş abi ellerine saglık
Ö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
Ufak bi ilave lazım gibi, sorun teşkil etmiyor ama 2695 seçip 1001 girdigimde hata verip otomatik olarak 1002 yi getiriyor ama 1002 de daha önce girilmiş oldugu zaman uyarı vermeden kayıt yapabılıyor 1002 yi elle yazarsam uyarıp 1003 ü getiriyor. kolay gelsin