ترقيم بشرطين

[رعد داود]

السلام عليكم
لدي ملف  اريد  الترقيم  في  حقل no
بحسب  السنة  ونوع  السند
كود  اعطانياه  الاستاذ  الفاضل  أحمد الفلاحجي  لكنه  يجلب  على  السنة (التاريخ)
اريد  الترقيم  في  حقل  no         t1

    t1بحسب  التاريخ  ونوع   ونوع  السند

وذلك  في  الفورمين    frm1       frm2

من 2018.rar

[jjafferr]

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

 

انا ما اعرف اسماء الحقول في الجدول ، لذلك يجب ان تغير اسمائها في الكود 🙂

الموجود عندك
j = "Year(datee) = " & Year(Me.datee)
t2 = DMax("[no]", "hesab", j) + 1



اضف السطر الثاني
j = "Year(datee) = " & Year(Me.datee)
j = j & " And [Sanad]='" & Me.t1 & "'"


t2 = DMax("[no]", "hesab", j) + 1

 

غير [Sanad] الى اسمه الصحيح في الجدول ،

وغير  Me.t1 الى اسمه الصحيح في النموذج 🙂

 

جعفر

[رعد داود]

مشكور  اخي   تم 
الكود عمل  بشكل  صحيح

[jjafferr]

حياك الله 🙂

 

الكود الذي عندك يشتغل ، لما عندك سجلات ،

ولكن في بداية السنه ، وحيث لا يوجد سجل ، اي الحقل no لا توجد له قيمة ، المعادلة ستعطيك نتيجة Null وبالتالي ستحصل على رسالة خطأ ،

فلازم نعالج هذا الموضوع ، و أحد الطرق هي الدالة nz ، والتي نطلب منها استبدال Null بالرقم صفر ، فيعمل الكود بالطريقة الصحيحة 🙂

بدلا عن
t2 = DMax("[no]", "hesab", j) + 1


استعمل
t2 = nz(DMax("[no]", "hesab", j),0) + 1

 

جعفر