اساتذتى المحنرمين تحية طيبة
برجاء التعديل على هذا المثال
حيث انى اريد ان املاء كل البينات
وعندما اقوم بالحفظ كل سطر من الموجود فى الفورم ياخذ رقم جديد فى قاعدة البينات ويحفط فى صف جديد
بمعنى ان البيانات فى الفورم تحفظ فى قاعدة البينات تحت بعض فى 12 صف
ارجو المساعدة جزاكمالله خيرا
استاذتي الكرام ارجو المساعده جزاكم الله خيرا
أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .
جزاك الله خيرا اخى الغالى استاذى الغالى
اخى الغالى كنت اريد ان يتم ترحيل الصف الى امام الشيك ببوينت =1
وليس كل الصفوف اخى الغالى
بمعنى لو انا عامل علامة صح الصف يترحل لو مش علامة صح الصف لا يترحل
جزاك الله خيرا
أهلا بك أخي الكريم , إستبدل كود زر الحفظ بهذا الكود :
PHP كود :
Dim I As Integer
Dim MaxRecordNumber As Long
Adodc1.Refresh
MaxRecordNumber = Adodc1.Recordset.RecordCount
For I = 0 To Check.UBound
If Check(I).Value = 1 Then
MaxRecordNumber = MaxRecordNumber + 1
Adodc1.Recordset.AddNew
Adodc1.Recordset!cod = Text1.Text
Adodc1.Recordset!name1 = Text2.Text
Adodc1.Recordset!phone = Text3.Text
Adodc1.Recordset!msal = MaxRecordNumber
Adodc1.Recordset!Month = Combo(I).Text
Adodc1.Recordset!ddate = Text4(I).Text
Adodc1.Recordset!mname = Text5(I).Text
Adodc1.Recordset!molahzat = Text6(I).Text
Adodc1.Recordset!Done = Check(I).Value
Adodc1.Recordset.Update
End If
Next
Adodc1.Refresh
MsgBox ("تم الحفظ")