كود الترقيم التلقائى شغال بس يبدا من الصفر

[safwatscc]

السلام عليكم
هذا كود ترقيم تلقائى من عمل احد الاخوة
وشغال كويس جدا ومفيد بس عند اعادة الترقيم يبدا من رقم صفر
نرجو التعديل فية ليبدا من رقم 1

وشكرا

Private Sub Renum_Click()
Dim msg As Variant
co = DCount("*", "[student]")
DoCmd.GoToRecord , , acFirst
For I = Val(txtCount) To co + Val(txtCount) - 1
ID = Str(I)
If I <> (co + Val(txtCount) - 1) Then
DoCmd.GoToRecord , , acNext
End If
Next
End Sub
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = Nz(DMax("[id]", "[student]"), 0) + 1
End Sub

[sarqozo]

ضعه في ملف من فضلك

[safwatscc]

هذا هو الملف الترقيم شغال بس يبدا من الصفر

نريد تعديلة ليبدا من رقم 1

[استاذ مصطفى]

المشاركة الأصلية كتبت بواسطة safwatscc

هذا هو الملف الترقيم شغال بس يبدا من الصفر

نريد تعديلة ليبدا من رقم 1

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

اود ان اخبرك بأن هذا الموقع خاص ببرامج الكنترول ومستلزمات مدرسية

وجايز ان لا تلقي من يعاونك علي عمل الكنترول الذي تقوم به لان

اذا لحظت ستري ان كل الاخوة هنا تعمل علي الاكسل وليس الاكسس

واذا احببت ان تقوم بعمل ماتريد عليك التوجة الي المنتديات الخاصة بذلك

لاتمام ما تريدة شكرا لك كان لي ان اقوم بمساعدتك ولكن هنا فقط وضع البرامج

الخاصة بالمدرسة وليسة قسم بناء قاعده مدرسية وشكرا لك

[Mr Aysam]

السلام عليكم
الأخوة الكرام
القسم هنا لأعمال الامتحانات....تمام
لكن هذا لا يمنع أبدا أنه بدلا من أن أعطي أحدا سمكة أن أعلمه كيف يصطادها
و أعتقد أن هذا هو الأهم
دمتم بخير و في طاعة الله

[fawal69]

مشكورررررررررررررررررررررررررر