17-08-20, 05:40 AM
أهلا بك أخي الكريم , إستبدل كود زر الحفظ بهذا الكود :
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 ("تم الحفظ")
كود :
For Each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next