السلام عليكم ورحمة الله
أنا أريد طريقة ادخال رقم تلقائي في كل مرة يعني على سبيل المثال
عندما أدخل معلومات تلميذ يكتب رقمه 0001
وعندما أضيف تلميذ آخر يكتب رقمه 0002
وهاكذا دون استعمال أوامر SQL
جازاكم الله خيرا
ادخال رقم تلقائي
مغلق
الكلام ده في Database واللا Flex grid واللا Text Box واللا إيه بالضبط ؟
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
يعني انت عايز الرقم يضاف في قاعدة البيانات
إذا كده فممكن تجرب الكود التالي :
Private dbCurrent As Database
Private recCategories As Recordset
Set dbCurrent = OpenDatabase(cFilePathMajor & "\Record.mdb", False)
Set recCategories = dbCurrent.OpenRecordset("select * from Record")
With recCategories
.AddNew
!Date = Date
!Time = Time
.Update
End With
recCategories.Close
dbCurrent.Close
Set dbCurrent = Nothingمع استبدال
cFilePathMajor & "\Record.mdb"
بمسار قاعدة البيانات
اقتباسIf A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut
Albert Einstein
السلام عليكم
الحل توضع ال Textbox داخل متغير
ثم تضع دالة عند حدث Getfocus مع بداية دخول هذا ال Text يزداد بواحد
()Private Sub Text1_Getfocus
Text1.Text=val(text1.text)+1
end sub
واذا كنت تريد تنزيل اخر رقم ثم تظيف عليه استعمل عند تحميل الفورم الكود التالي
()Private Sub Form_load
rs.MoveLast
text1.text=rs![Autonum]]
end sub
هذا الموضوع مغلق.