زر الحفظ

[العبيدي رعد]

السلام عليكم

لدي زر  لحفظ  السجلات   كالتالي

Private Sub Save_Click()

'On Error GoTo Err_Command17_Click

    
    Me.b_all.Requery
Dim i, x As Integer
هي  تكست بوكس  حقل رقمي  يمثل  رصيد   الصندوق  هنا يقع  الخطأ '  x = Me.tr
i = Me.td
If Me.tm <> td Then
MsgBox ("لايمكنك الحفظ !! القيد غير متوازن")
Me.Undo
Else
If i > x And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

If MsgBox("في حال أردت المتابعة والحفظ اضغط نعم واذا أردت الإلغاء اضغط لا" & vbCrLf & "", vbYesNo, " تنبية ") = vbYes Then

DoCmd.Save

 

On Error GoTo BCC
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;")
While Not Q.EOF
Q.Edit
Q!mz = True
Q.Update
Q.MoveNext
Wend
DoCmd.GoToRecord , , acNewRec
no.SetFocus
ACC:
Exit Sub
BCC:
Resume ACC

End If
End If
End If

End Sub

يظهر لي  الخظأ  المرفق  في   الصورة 

تم تعديل أبريل 5, 2023 بواسطه العبيدي رعد
للتوضيح اكثر

[العبيدي رعد]

السلام عليكم
اكتشفت الخطأ   ... حيث  في الكود  التعريف    as integer
والمفروض   اكتب   

as Doubll

لأن الحقل  الرقمي الاصلي في الجدول  من  نوع    Double

[Eng.Qassim]

وعليكم السلام ..

ليس هذا السبب فقط ..اذا انتبهت للرسالة .. ال integer لايتحمل ارقام حسابية كبيرة ..راجع حجم البيانات التي يأخذها

ولهذا استخدم Double OR long

[العبيدي رعد]

6 ساعات مضت, Eng.Qassim said:

وعليكم السلام ..

ليس هذا السبب فقط ..اذا انتبهت للرسالة .. ال integer لايتحمل ارقام حسابية كبيرة ..راجع حجم البيانات التي يأخذها

ولهذا استخدم Double OR long

السلام عليكم  
نعم استاد قاسم  مثل ماتفضلت استخدمت double

[أبو امين]

12 ساعات مضت, العبيدي رعد said:

السلام عليكم

لدي زر  لحفظ  السجلات   كالتالي

Private Sub Save_Click()

'On Error GoTo Err_Command17_Click

    
    Me.b_all.Requery
Dim i, x As Integer
هي  تكست بوكس  حقل رقمي  يمثل  رصيد   الصندوق  هنا يقع  الخطأ '  x = Me.tr
i = Me.td
If Me.tm <> td Then
MsgBox ("لايمكنك الحفظ !! القيد غير متوازن")
Me.Undo
Else
If i > x And Me.types = "سند صرف" Then
MsgBox ("لايمكنك الحفظ !! فرصيد الصندوق غير كاف ")
Me.Undo
Else

 

If MsgBox("في حال أردت المتابعة والحفظ اضغط نعم واذا أردت الإلغاء اضغط لا" & vbCrLf & "", vbYesNo, " تنبية ") = vbYes Then

DoCmd.Save

 

On Error GoTo BCC
Dim Q As Recordset
Set Q = CurrentDb.OpenRecordset("SELECT * from Bills where mz = false;")
While Not Q.EOF
Q.Edit
Q!mz = True
Q.Update
Q.MoveNext
Wend
DoCmd.GoToRecord , , acNewRec
no.SetFocus
ACC:
Exit Sub
BCC:
Resume ACC

End If
End If
End If

End Sub

يظهر لي  الخظأ  المرفق  في   الصورة 

هذا المثال لاحد الاساتذة بالمنتدى يمكن ان يفيدك وهو سهل و جميل : 

Private Sub أمر25_Click()
Dim strMsg As String
strMsg = strMsg & " هل تريد حفظ البيانات" & vbCrLf & vbCrLf & ""
If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ البيانات") = vbYes Then

    DoCmd.RunCommand (acCmdSaveRecord)
    DoCmd.RunCommand (acCmdRecordsGoToNew)
Else
Me.Undo
End If

End Sub

 

[العبيدي رعد]

9 ساعات مضت, أبو امين said:

هذا المثال لاحد الاساتذة بالمنتدى يمكن ان يفيدك وهو سهل و جميل : 

Private Sub أمر25_Click()
Dim strMsg As String
strMsg = strMsg & " هل تريد حفظ البيانات" & vbCrLf & vbCrLf & ""
If MsgBox(strMsg, vbQuestion + vbYesNo, "حفظ البيانات") = vbYes Then

    DoCmd.RunCommand (acCmdSaveRecord)
    DoCmd.RunCommand (acCmdRecordsGoToNew)
Else
Me.Undo
End If

End Sub

 

بارك  الله  فيكم  ولكم  جزيل  الشكر