السلام عليكم
في معظم المراسلات الرسمية يتم إدخال رقم مرجعي يتضمن
رمز + رقم متسلسل + السنة
وفي المرفق نموذج يحوي خانة للترقيم وخانة لنوع المراسلة ورقم مرجعي هل بالإمكان عمل رمز (عبارة عن ثلاثة حروف الأولى من نوع المراسلة مثلا bak إن كان نوع المراسلة banks) + رقم المتسلسل الذي هو عبارة عن id + السنة (وفق السنة الحالية)
ولكل نوع من المراسلة له ترقيم مستقل عن الآخر
جزاكم الله خيراً
وعليكم السلام ورحمة الله وبركاته
تفضل اخي الكريم هذا الكود ارجو ان يفي بالغرض
=Mid((to.Column(1)),1,3) & "" & [id] & "" & Year(Date())
ارجو لك التوفيق اخوك ابو عدنان
الشكر الجزيل على ردكم ولكن هناك مشكلة وهي أنه يجب أن يكون لكل نوع من الأنواع ترقيم مستقل فعند اختبار على سبيل المثال bank يكون الترقيم (1) واللمرة الثانية للبنك (2) وعند اختيار sales لأول مرة يعطي (1) والثانية (2) وهكذا
ولكن هنا يتكرر الرقم (1) ويعطي رسالة خطأ
وجزاكم الله خيرا
noursh كتب:الشكر الجزيل على ردكم ولكن هناك مشكلة وهي أنه يجب أن يكون لكل نوع من الأنواع ترقيم مستقل فعند اختبار على سبيل المثال bank يكون الترقيم (1) واللمرة الثانية للبنك (2) وعند اختيار sales لأول مرة يعطي (1) والثانية (2) وهكذاولكن هنا يتكرر الرقم (1) ويعطي رسالة خطأ
وجزاكم الله خيرا
اخي الكريم لا شكر على واجب الموضوع جميل ومهم لعمل او لتركيبة مرجع معين لاي موضوع كان بارك الله بك ،،،،
اولا- تأخرت علي بالرد وهذا ما دعاني لعدم متابعة هذه المشاركة وانا آسف جدا لم انتبه على ردك من قبل .
ثانيا -عموما الكود المرفق يعمل بالتفصيل الذي ذكرته تماما ولكن فقط عند ادخال سجل جديد .
ثالثا- تم تثبيت الرقم المطلوب او المسلسل المطلوب بالجدول مباشرة ليصبح الكود كما يلي:
If Me.NewRecord Then
Me.id = Nz(DMax("[id]", "Members", "[to] = " & Me.to), 0) + 1
Me![referance] = Mid(([to].Column(1)), 1, 3) & "/" & [id] & "/" & Year(Date)
End Ifارجو ان اكون توصلت للمطلوب مع تقديري واحترامي
اخوك ابو عدنان
noursh كتب:الشكر الجزيل على ردكم ولكن هناك مشكلة وهي أنه يجب أن يكون لكل نوع من الأنواع ترقيم مستقل فعند اختبار على سبيل المثال bank يكون الترقيم (1) واللمرة الثانية للبنك (2) وعند اختيار sales لأول مرة يعطي (1) والثانية (2) وهكذاولكن هنا يتكرر الرقم (1) ويعطي رسالة خطأ
وجزاكم الله خيرا
اخي الكريم لا شكر على واجب الموضوع جميل ومهم لعمل او لتركيبة مرجع معين لاي موضوع كان بارك الله بك ،،،،
اولا- تأخرت علي بالرد وهذا ما دعاني لعدم متابعة هذه المشاركة وانا آسف جدا لم انتبه على ردك من قبل .
ثانيا -عموما الكود المرفق يعمل بالتفصيل الذي ذكرته تماما ولكن فقط عند ادخال سجل جديد .
ثالثا- تم تثبيت الرقم المطلوب او المسلسل المطلوب بالجدول مباشرة ليصبح الكود كما يلي:
If Me.NewRecord Then
Me.id = Nz(DMax("[id]", "Members", "[to] = " & Me.to), 0) + 1
Me![referance] = Mid(([to].Column(1)), 1, 3) & "/" & [id] & "/" & Year(Date)
End Ifارجو ان اكون توصلت للمطلوب مع تقديري واحترامي
اخوك ابو عدنان
لا ادري ليش الكود طلع معفوس :lol:
If Me.NewRecord Then
Me.id = Nz(DMax("[id]", "Members", "[to] = " & Me.to), 0) + 1
Me![referance] = Mid(([to].Column(1)), 1, 3) & "/" & [id] & "/" & Year(Date)
End If