مطلوب ترميز تلقائي مشروط

1- لم تشرح أين تحفظ الرموز

2- لم تشرح أين تحفظ الرمز والرقم التسلسلي

ولكن لنفرض أن الرموز قد وضعتها في قائمة منسدلة اسمها قائمة الرموز ، وأن النموذج يوجد به حقل ترقيم تلقائي يسمى مسلسل ، وأن الرموز والأرقام تحفظ في حقل اسمه رمز السجل ، ففي حدث عند الخروج من أول حقل تبدأ به لإدخال البيانات ضع :

If not isnull([قائمة الرموز]) Then

If IsNull(Me![رمز السجل]) Then Me![رمز السجل] = [مسلسل] & [قائمة الرموز]

elss

Msgbox "حقل الرمز فارغ "

end if

ولك تحياتي

الترميز هو في احد حقول الجدول واسمه

Code

الرموز ليست في حقل، ولكن أعتقد انها تكتب في الكود الخاص بالترميز التلقائي اللذي أبحث عنه..

عرفت أن الرمز تحفظه في حقل في جدول اسمه Code طيب عندما تجمع الترقيم التلقائي مع الرمز في حقل ما هو اسم هذا الحقل ؟

أم أنك لا تحفظه فقط تريد أن يظهر لك حقل الترقيم التلقائي مجموعا مع الرقم على النموذج وهما في الجدول حقلين منفصلين ؟ هل هذا الفهم صحيح ؟ فإن كان الأمر كذلك فهو أفضل لسهولة تغيير الرمز لو حولت نوع السجلات إلى نوع آخر ، عموما إذا كان هذا هو طلبك فضع في الحقل الذي سميته أنا رمز السجل في مصدر عنصر التحكم له:

=

 & [مسلسل]

ملاحظة في كلامك "الأربعة الأرقام الأولى تدل على نوع السجل " ماهي القاعدة التي تحدد أنت بموجبها أن هذا السجل تابع لهذا النوع أو ذلك ، وضح ذلك بمثال أو أكثر .

ثم هل هدفك عرض الترقيم التلقائي لكل نوع لوحده فمثلا عندنا سجلات النوع الذي له الرمز 2222 تريد أن تكون ترقيماته لوحده والنوع الثاني مثلا 3333 ترقيماته لوحده بحيث يبدأ كل منهما من 1 إلى آخر رقم .

وضح كل هذه الأسئلة .

ولك تحياتي