ارجو منكم شرح فكره الكود حيث اني اسخدمها في اضافه حقل جديد مع الترقيم التلقائي
Private Sub add_Click()
Dim db As Database
Dim strsql As String
Dim MyTable As DAO.Recordset
Set db = CurrentDb
strsql = "SELECT Min(stu_id)+1 AS mo FROM students AS top_students" _
& " WHERE ((((select stu_id from students" _
& " where students.stu_id=top_students.stu_id+1)) Is Null))"
Set MyTable = db.OpenRecordset(strsql)
Me.stuid = MyTable!mo
If IsNull(stuid) Then Me.stuid = 1
End Sub
وان شكر تعاونكم لي
أخي الكريم :
أرفق المثال الموجود به الكود حتى اقدر أساعدك وأتعرف على الجداول والحقول ومسمياتها ...
السلام عليكم :
الكود هذا هو للترقيم التلقائي .. ياخذ آخر قيمة في الجدول ويضيف عليه زيادة رقم واحد ..
وإذا كان الجدول فارغا من السجلات فيعطيه رقم 1
عموما تقدر تستعيض بهذا الكود بكود آخر وهو :
txt1 = DCount("[id]", "[table1]")
If txt1 = 0 Then
Me.id = 1
Else
id = txt1 + 1
End Ifوشرحه :
نحجز متغير اسمه ( txt1 ) ونضع فيه قيمة عدد السجلات بحقل id في جدول table1
ثم نضع الشرط :
إذا كان قيمة txt1 تساوي 0 إذا
يكون حقل id الذي معنا في النموذج تساوي 1
وإذا لم يكن يساوي صفر
يكون حقل id يساوي عدد السجلات في txt1 مضافا عليه 1
نهاية الشرط .
وهو في المثال المرفق .
اخي الكريم ارجو اريد ان اعمل زر بحث وتعديل عن رقم الطالب او اسمه يتم عرض البيانات الخاصه بطالب
ارجو منك تصحيح العلاقات اذا وجد خطا
كما في المثال المرفق الخاص بي
وشكر لك تعاونك معي
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…