[mhareek]

اساتذتى المحنرمين        تحية طيبة  


برجاء التعديل على هذا المثال

حيث انى اريد ان املاء كل البينات 
وعندما اقوم بالحفظ كل سطر من الموجود فى الفورم    ياخذ رقم جديد فى قاعدة البينات   ويحفط فى صف جديد


بمعنى ان البيانات فى الفورم تحفظ فى قاعدة البينات تحت بعض فى 12 صف



ارجو المساعدة جزاكمالله خيرا

[mhareek]

استاذتي الكرام ارجو المساعده جزاكم الله خيرا

[Ahmed_Mansoor]

أهلا بك أخي الكريم , تم تعديل المثال , بالتوفيق .

[mhareek]

جزاك الله خيرا اخى الغالى استاذى الغالى

اخى الغالى كنت اريد ان يتم ترحيل الصف الى امام الشيك ببوينت =1

وليس كل الصفوف اخى الغالى


بمعنى لو انا عامل علامة صح الصف يترحل لو مش علامة صح الصف لا يترحل


جزاك الله خيرا

[Ahmed_Mansoor]

أهلا بك أخي الكريم , إستبدل كود زر الحفظ بهذا الكود :

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 ("تم الحفظ")