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

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

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

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

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

حقل الترقيم 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

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

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

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

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

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

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

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

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

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

السلام عليكم

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