• 0
أبو مالك1

ترقيم تلقائي يبدأ من رقم محدد

سؤال

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

هل بإمكاني أن أقوم بالترقيم التلقائي في الجدول لكن بشرط أن يبدأ برقم أنا أقوم بتحديده.

فمثلا:-

أسماء الشركات تبدأ من الرقم 100

وجدول الموظفين تبدأ أرقامهم من الرقم 1000

وهكذا ....

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

5 إجابة على هذا السؤال .

  • 0

اخي الفاضل ابو مالك

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

تفضل هذا طلبك كما تريد

آلية عمل البرنامج

حقل الترقيم ID في الجدول وهو بمثابة رقم الموظف وهو عبارة عن رقم فقط

في النموذج نضع مربع نص strNumber غير منضم لكي ندخل به اي رقم نريد سواء 44 او 100 او 1000 او اي رقم ترغب ان يبدأ الترقيم التلقائي لرقم الموظف منه

نضع في حدث بعد التحديث لحقل اسم الموظف الكود التالي

Private Sub Name_AfterUpdate()
Dim x
x = DMax("[ID]", "TABLE")
If IsNull(x) Then
Me![ID] = Me![strNumber]
Else
Me![ID] = x + 1
End If
Me.Refresh
End Sub

الآن لو كتبنا في مربع النص الذي سوف يبدأ الترقيم منه مثلا 1000 ومن ثم انتقلنا الى حقل اسم الموظف وكتبنا به اي اسم ثم خرجنا منه سوف يبدأ الترقيم من العدد 1000 لهذا الموظف وهكذا كلما انتقلنا من سجل الى اخر يتم الترقيم التلقائي

الآن اذاهب الى الجدول وتأكد هل الترقيم صحيح في الجدول ام لا

ما ينطبق على هذا الجدول بإمكانك تطبيق الفكره على جدول اسماء الشركات

zaAutoNumber.rar

1

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

تعجز الكلمات عن شكرك ...

وأسأل الله دوماً لك التوفيق والسداد ... وبإذن الله سوف يأتي اليوم الذي أستطيع أن أخدمك وأعضاء هذا المنتدى المبارك

هذا هو ماطلبت تماماً .....

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

خير الناس أنفعهم للناس

وأنت بعد الله خير نافع لي ولجميع طالبي الأكسس

جزاك الله خيراً

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

بارك الله فيك اختي زهرة

كنت بحاجة لمثل ذلك

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

السلام عليكم

لو تكرمتم يا سادة هل ممكن يكون الرقم التلقائى الجديد داخل نموذج جديد

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .