Merhaba aşağıdaki kod ile form acıldıgında tablodakı son uye numarasının bır fazlasının trtUyeNo alanına getirilmesi amaçlanmıştı.
Private Sub txtUyeNo_Exit(Cancel As Integer)
txtUyeNo = Nz(DMax("clng(nz([UyeNo],0))", "[T_1_MemberDefinition]"), 0) + 1
Form açıp işlem yapmadan kapat tuşu ile kapattığınızda da uye numarasi bir değer alıp tabloya bos bir sekilde kayit atiyor. Formulu txtUyeNo ve txtKımlık alanlarının nerdeyse tum yordamlarında denedim başka başka şekillerde hatalı kayıt attı. Şu an stabil çalışması için kaydet tuşuna bastıgınızda kaydı yapıp formdan cıkartıyorum bu şekilde kapat tuşuna bastırmıyorum ama peşpeşe 2,3 kayıt yapılacaksa her defasında formu yeniden tıklaması gerekiyor. Yardımlarınız için şimdiden teşekkürler.
Access Çekirgesi