Private Sub txtUyeNo_Exit(Cancel As Integer)

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

End Sub

seklinde

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

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

txtUyeNo = Nz(DMax("clng(nz([UyeNo],0))", "[T_1_MemberDefinition]"), 0) + 1

Tamamdır Sn.@berduş halloldu bu şekilde teşekkür ederim.

Ilginç bir şekilde sayisal bir alani tekrar sayısala çevirmem gerekti)