ترقيم تلقائي - عن طريق رقم السجل RecordCount

[yr_20]

اليكم اخوانى هذا المثال فهو يحتوى

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

------

Private Sub Form_BeforeInsert(Cancel As Integer)

Dim rst As Recordset

Set rst = Form.RecordsetClone

If rst.RecordCount = 0 Then

ITEM_CODE = 1

Else

rst.MoveLast

ITEM_CODE = rst(ITEM_CODE.ControlSource) + 1

End If

rst.Close

End Sub

-------------------

أخيكم أبوعمار

[امير عاطف]

جزاك الله خيراً أخ ابو عمار على هذه الفائدة