(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.