كود الترقيم التلقائى شغال بس يبدا من الصفر
السلام عليكم
هذا كود ترقيم تلقائى من عمل احد الاخوة
وشغال كويس جدا ومفيد بس عند اعادة الترقيم يبدا من رقم صفر
نرجو التعديل فية ليبدا من رقم 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
|