رقم مرجعي يزداد تلقائياً عند إدخال كلمه معينه

[mohamed elalfy]

اتوقع إن هذا السؤال غير منطقي أو غير ممكن حدوثه ولكني وددت أن أستشير أهل الخبره قبل الإفاده بعدم قدرة الاكسس على تنفيذ الطلب

ببساطه

بالملف المرفق يوجد (3) سفن بأسماء محدده تظهر في خانة vessel name حيث يتم الإختيار من بينهم

هل من الممكن عند إضافة أي رحله تخص إحدى السفن أن يظهر لي رقم يزاداد تلقائياً تبعاً للرحله الخاصه بالسفينه المشار اليها

حيث أن voyage no الموجوده بالنموذج تزيد في حالة القيام باضافة اي مستند سواء كان لاي سفينه من السفن

 

Database13.rar

[Shivan Rekany]

41 دقائق مضت, mohamed elalfy said:

بالملف المرفق يوجد (3) سفن بأسماء محدده تظهر في خانة vessel name حيث يتم الإختيار من بينهم

هل من الممكن عند إضافة أي رحله تخص إحدى السفن أن يظهر لي رقم يزاداد تلقائياً تبعاً للرحله الخاصه بالسفينه المشار اليها

حيث أن voyage no الموجوده بالنموذج تزيد في حالة القيام باضافة اي مستند سواء كان لاي سفينه من السفن

اتفضل 

تم اضافة حقل من نوع الرقمي باسم VOYAGENO1

واستخدمت هذا الكود

Private Sub t3_AfterUpdate()
    If Len(Me.VOYAGENO1 & vbNullString) = 0 Then Me.VOYAGENO1 = Nz(DMax("[VOYAGENO1]", "CHARTER", "[vessel name]='" & Me.t3 & "'"), 0) + 1
End Sub

 

Database13.rar

[mohamed elalfy]

الله هم صلي على النبي 

إيه الابداع ده أ/ شفان

تسلم دماغك والله وبارك الله فيك