|
#1
|
|||
|
|||
![]()
السلام عليكم
هذا كود ترقيم تلقائى من عمل احد الاخوة وشغال كويس جدا ومفيد بس عند اعادة الترقيم يبدا من رقم صفر نرجو التعديل فية ليبدا من رقم 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 |
#2
|
|||
|
|||
![]()
ضعه في ملف من فضلك
__________________
![]() |
#3
|
|||
|
|||
![]()
هذا هو الملف الترقيم شغال بس يبدا من الصفر
نريد تعديلة ليبدا من رقم 1 |
#4
|
|||
|
|||
![]() اقتباس:
اخي الفاض السلام عليكم ورحمة الله وبركاته اود ان اخبرك بأن هذا الموقع خاص ببرامج الكنترول ومستلزمات مدرسية وجايز ان لا تلقي من يعاونك علي عمل الكنترول الذي تقوم به لان اذا لحظت ستري ان كل الاخوة هنا تعمل علي الاكسل وليس الاكسس واذا احببت ان تقوم بعمل ماتريد عليك التوجة الي المنتديات الخاصة بذلك لاتمام ما تريدة شكرا لك كان لي ان اقوم بمساعدتك ولكن هنا فقط وضع البرامج الخاصة بالمدرسة وليسة قسم بناء قاعده مدرسية وشكرا لك
__________________
Misrschools ![]() |
#5
|
|||
|
|||
![]()
مشكورررررررررررررررررررررررررر
|
#6
|
||||
|
||||
![]()
السلام عليكم
الأخوة الكرام القسم هنا لأعمال الامتحانات....تمام لكن هذا لا يمنع أبدا أنه بدلا من أن أعطي أحدا سمكة أن أعلمه كيف يصطادها و أعتقد أن هذا هو الأهم دمتم بخير و في طاعة الله |
![]() |
العلامات المرجعية |
|
|