Auto numbering

[hemaazez]

Can you help me please in this problem?

When I add a new student I need the form write automatically the student number in light of the class reference after choosing the class,

Can you help me in this code?

autoNumber.accdb

[jjafferr]

وعليكم السلام 🙂

 

واهلا وسهلا بك في المنتدى 🙂

 

عملت بعض التعديلات على الجداول ، وحولت الحقول الى ارقام بدل النص،

 

تفضل:

Private Sub student_Class_AfterUpdate()
    
    'check if the Student number field exists, if it dose, exit
    If Len(Me.student_Number & "") > 0 Then Exit Sub
    
    Me.student_Number = Nz(DMax("[Student_Number]", "students", "[student_Class]= " & Me.student_Class), Me.student_Class * 10000) + 1
End Sub

 

جعفر

1012.autoNumber.accdb.zip

[hemaazez]

اكثر من رائع 

نفعك الله بعلمك ونفع بك الاخرين اللهم امين , الف مليار شكر 

تم تعديل فبراير 12, 2019 بواسطه hemaazez