01-03-16, 09:26 AM
(29-02-16, 10:49 PM)ahmedabdelaliem كتب : اخي حقل التاريخ لا يقبل ان يكون خالي يجب اسناد قيمة له ولكن اذا ضروري يمكنك تعديل الكود هكذا
PHP كود :
Private Sub Command1_Click()
On Error Resume Next
Dim Response As String
Dim uname As String
uname = Text1.Text
Response = MsgBox("Update this record?", vbYesNo + vbQuestion, "Confirmation")
If Response = vbNo Then
Adodc1.Refresh
Adodc1.Recordset.CancelUpdate
Adodc1.Refresh
MsgBox "Save Cancelled!"
ElseIf Text1.Text = "" Then
MsgBox "Please fill the Employee ID !", vbCritical, Time
ElseIf Response = vbYes Then
Adodc1.Recordset.Fields("name") = IIf(IsNull(Text1.Text), "", Text1.Text)
Adodc1.Recordset.Fields("pass") = IIf(IsNull(Text2.Text), "", CDate(Text2.Text))
Adodc1.Recordset.Fields("eqama") = IIf(IsNull(Text4.Text), "", CDate(Text4.Text))
Adodc1.Recordset.Fields("startdate") = IIf(IsNull(Text4.Text), "", CDate(Text4.Text))
Adodc1.Recordset.Update
MsgBox "Record Saved!", vbInformation, Time
End If
End Sub
بالتوفيق
شكراً لك استاذ احمد ولك الذين شاركوا بالرد
لقد تم حل المشكلة
هل يمكن ان تشرح لي الكود
PHP كود :
On Error Resume Next
لانه هو الذي حل مشكلتي
اريد ان افهم عمل هذا الكود واين يمكن وضعه ايضاً
وشكرا لتعاونكم