(21/02/2020, 22:10)Oğuz Türkyılmaz yazdı:

(21/02/2020, 20:46)berduş yazdı:

Private Sub txtUyeNo_Exit(Cancel As Integer)

             txtUyeNo =nz( DMax("nz([uyeno],0)", "[T_1_MemberDefinition]") ,0)+ 1 

End Sub

seklinde

Ayni şekilde bu kodda da son numaradan değil arada kullanılmayan ilk değerden başladı neyse boyle kullanayım sorun olmaz herhalde.

Pardon kullanılan bir uye numarasını tekrar ekrana getirdi ve hata verdi.1,2,3 10,11,12 uye numaraları kayıtlıydı 10 no'lu kaydı boş şekilde tekrar ekrana getirdi.