الحصول على أرقام وتقسييمة في برنامج للصادر

[commpute]

الى الأخوة الأعزاء السلام عليكم ورحمة الله وبركاته وبعد

افيدكم ان لدي برنامج صادر ووارد ومطلوب مني انه عند اضافة صادر جديد يقوم البرنامج بإعطائه رقم ويكون الترقيم بالشكل التالي 123\5 بحيث يبدأ من واحد الى مالا نهاية وفي كل بداية سنه يبدأ من جديد ويتغير التقسيم من \5 الى 6 وهكذا كل سنه هجرية وايضا الوارد يبدأ من 1 الى مالا نهاية بدون تقسيم وفي بداية كل سنه هجرية يبدأمن جديد فأرجو المساعدة في هذا البرنامج حيث أنه برنامج خيري وهذا والله يحفظكم ويرعاكم

[فتى الوادي]

السلام عليكم .

يعني أول رقم في البرنامج يكون 1/1

صحيح ؟!

إذا كان صحيح .. فهل ممكن ترفق الجداول التي لديك ؟

[commpute]

نعم صحيح جزاك الله خير

اردت ان ارفق مثال ولكن التحميل رفض ولكن سأشرح لك :

اريد عند الضغط عى زر الإضافة يدخلني في مربع نص الجهة الصادرة اليها المعاملة وبعد ادخال الجهة الصادرة اليها المعاملة يعطيني تلقائيا رقم الصادربحيث يبدأ 1/6 وكل بداية سنة يبدا من 1 والتقسيمة تزيد بمقدار واحد وتصبح 7

[فتى الوادي]

السلام عليكم ...

معليش : التقسيم هل هو آخر رقم للسنة أو رقم يبدأ من رقم 1 ؟

يعني الآن نحن في عام 1427هـ وصدرت المعاملة الأولى لهذه السنة يطلع الرقم بهذا الشكل 1/7 ..... يعني 1 رقم المعاملة و 7 رقم السنة ..

فهل هذا صحيح ... ؟

[commpute]

نعم يبدأ بـ 1 والتقسيمة هذه السنة 6 والسنه القادمة 7 وهمكذا

[rudwan]

أضف الى حقول الجدول حقل MyNumber و تنسيقه رقم , و هو حق مختلف عن الحقل IncomeNo الذي تتحدث عنه و تنسيقه نص

الآن في النموذج ضع الكود التالي عند حدث الدخول الى حقل MyNumber

Private Sub MyNumber_Enter()
Me.MyNumber = Nz(DMax("MyNumber", "MyTable"), 0) + 1
Me.IncomeNo = Right(Year(Now()), 1) & "\" & Me.MyNumber

End Sub