خاصية Autonumber

شكرا اخى العزيز على مجهوداتك الرائعه

أختى العزيزةهاجر

يمكنك أن تصنعى إجراء يقوم بالترقيم التلقائى للبيانات عند إدخالها كالاتى :

تقومى بوضع مربع نص على الفورم مع جعل خاصية enabled=false

مثلا نسمى المربع txtcode

بفرض أن إسم الحقل المخصص للترقيم إسمه ID

فى الجزء الخاص بـــ General declaration نقوم بفرض متغيرين الاول خاص بالجدول والثانى خاص بجملة السيكويل

dim rs as new adodb.recordset

dim sql as string

نضع الكود التالى فى إجراء وليكن إسمه GetNewID

Private Sub GetNewID

on error resume next

sql="select max(id)+1 as maxid from items"

set rs=dbase.execute(sql)

txtcode=rs!maxid

end sub

وبكده تقدرى انك تحطى لكود ده فى اللود بتاع الفورم علشان ياخد رقم جديد كل مرة وكمن تحطيه فى مفتاح الحذف ومفتاح جديد

بالمناسبة :

dbase ده إسم متغير قاعدة البيانات

إعذرينى إن كان هناك تقصير فأنا أكتب على عجالة ولكن يمكن تطوير الكود قليلا وإنتظرينى قريبا

المهندس / أحمد