23-09-12, 09:37 PM
السلام عليكم ورحمة الله وبركاته
ممكن احد يعدل لي على هذا الكود كود الحفظ
علما ان القاعدة على اكسس 2003 عملت البيانات واذا ضغط على الحفظ وارجع الى قاعدة البيانات لا اجدها
اتمنى من اي شخص المساعدة وتعديل الكود مع فائق الاحترام
الكود
ممكن احد يعدل لي على هذا الكود كود الحفظ
علما ان القاعدة على اكسس 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