اذهب الي المحتوي
أوفيسنا

ارجو المساعدة في تقسيم الترقيم التلقائي


Bu7mod

الردود الموصى بها

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته

ارجوا منكم المساعد اخواني الاعزاء

هل يوجد طريقة بتقسيم الترقيم التلقائي مثلا .

1- اذا تم تحديد نوع الجنس ( ذكر ) يتم الترقيم بتسلسل ( 101 ) الخ...

2- اذا تم تحديد نوع الجنس ( انثى ) يتم الترقيم بتسلسل ( 200 ) الخ...

ارجوا المساعد وذلك للأهمية

تحياتي...

اخوكم بومحمد

الملف مرفق على هذا الرابط

رابط هذا التعليق
شارك

جرب الكود التالي

Private Sub sex_AfterUpdate()
If Me.sex = "male" Then
Me.Number = Nz(DMax("mydate", "mytable", "sex=male"), 100) + 1
End If
If Me.sex = "female" Then
Me.Number = Nz(DMax("mydate", "mytable", "sex=female"), 200) + 1
End If
end sub

مع مراعاة استبدال أسماء الحقول بأسماءها الحقيقيه في النموذج و الجدول

رابط هذا التعليق
شارك

اشكرك جزيل الشكر اخي العزيز rudwan على سرعة الرد

تم استخدام الكود الذي وضعته بالتمام ، ولكن حصلت مشكلة بالترقيم

1- عند اختيار Male يبدا بترقيم الحقل 101

2- عند اختيار Female يبدا بترقيم الحقل 201

ولكن اذا تم اختيار Male مرة اخرى يتم ترقيم الحقل 202 وليس 102 علما بان الرقم 100 تم حديده لـ Male وليس لـ Female .

تحياتي ...

بومحمد

رابط هذا التعليق
شارك

شكرا اخي rudwan

حاولت في طرق عده ولكن دون جدوى

الملف مرفق على هذا الرابط

عند اختيار Male يعطيني ترقيم 101 - 102 - 103 الخ

عند اختيار Female يعطيني ترقيم 201 - 202 - 203 الخ

المشكلة هنا

في حالة اختيار Male مرة اخرى يجب اكمال الترقيم 104 - 105 الخ

وليس 204 - 205 الخ

انشاء الله قدرة اوصل الفكرة

معلش اخي رضوان اتحملني جزاك الله خير

تحياتي

اخوك بومحمد

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information