[احساس المساء]

السلام عليكم ورحمة الله وبركاته

ممكن احد يعدل لي على هذا الكود كود الحفظ
علما ان القاعدة على اكسس 2003 عملت البيانات واذا ضغط على الحفظ وارجع الى قاعدة البيانات لا اجدها
اتمنى من اي شخص المساعدة وتعديل الكود مع فائق الاحترام

الكود

كود :

Private Sub Command1_Click()



If t1 = " " Then
MsgBox "الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If t2 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If t3 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If x4 = " " Then
MsgBox " الرساله ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If ttt = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If ttt3 = " " Then
MsgBox "الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If ttt6 = " " Then
MsgBox "الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

'If ff3 = " " Then
'MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "[color=#FF0000] بالنسبه لهذه الرساله اذا فعلتها يعطيني خطأ ما ادري ايش المشكلة علما ان اسم الحقل صحيح مربع النص وكذلك في قاعدة البيانات صحيح[/color]
'Exit Sub
'End If

If t111 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If c111 = " " Then
MsgBox "الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If tet3 + "/" + tet2 + "/" + tet1 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If d1 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If d4 + "/" + d3 + "/" + d2 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If dd4 + "/" + dd3 + "/" + dd2 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If

If dd1 = " " Then
MsgBox " الرساله  ", vbCritical + vbMsgBoxRight, " خطأ "
Exit Sub
End If



MSGSave = MsgBox(" الرساله ?", vbQuestion + vbMsgBoxRight + vbYesNo, " Save ")

If MSGSave = vbYes Then

Set db1 = DBEngine.Workspaces(0).OpenData****(App.Path & "\db4.mdb")
Set tb = db1.OpenRecordset("Info", dbOpenTable)
tb.AddNew

tb!Empno2 = t3.Text
tb!Name = t1.Text
tb!RR = c1.Text
tb!EmpNo = t2.Text
tb!Jop = c2.Text
tb!xx = x4.Text
tb!m1 = ttt.Text
tb!m2 = ttt3.Text
tb!m3 = ttt6.Text

tb!GG = t111.Text
tb!GG2 = tet3 + "/" + tet2 + "/" + tet1
tb!GG1 = c111

tb!xx = Combo2.Text
tb!X1 = Combo3.Text
tb!GG = t111.Text
tb!d1 = d1.Text
tb!d3 = dd1.Text
tb!GG1 = c111.Text
tb!m3 = ttt6.Text
tb!m3 = ttt6.Text
tb!GG3 = ff3.Text


tb!d2 = d4 + "/" + d3 + "/" + d2
tb!d1 = d1
tb!d4 = dd4 + "/" + dd3 + "/" + dd2
tb!d3 = d3



MsgBox " تم الحفظ بنجاح ", vbInformation + vbMsgBoxRight, " حفظ "

End If



End Sub