طلب التعديل على كود الحفظ - نسخة قابلة للطباعة

كود :
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