المساعدة في تعديل كود الخروج من النموذج والحفظ

[ابوآمنة]

السلام عليكم 

أريد من حضرتكم المساعدة 

في التعديل على كود الخروج من نموذج "فاتورة مبيعات"  التالي :

If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then
 DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings (True)
    DoCmd.Close
Else
DoCmd.Close
End If
    If IsNull(Me.Text15) Then
    DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings (True)
    DoCmd.Close
    Else
            Dim Msg, style, title, result
            Msg = "هل تريد حفظ الفاتورة الحالية"
            style = vbYesNo
            title = " تنبيه"
            result = MsgBox(Msg, style, title)
            If result = vbYes Then
            [TotalAmount] = [Text17]
            [Descount] = [Text15] - [Text17]
            MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه"
            DoCmd.Close
            Else
            If result = vbNo Then
            DoCmd.SetWarnings (False)
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
            DoCmd.SetWarnings (True)
            MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة"
            DoCmd.Close

End If
End If
End If

 

الفواتير2.rar

تم تعديل يونيو 20, 2018 بواسطه saleh204

[jjafferr]

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

 

تفضل

Private Sub Command9_Click()
On Error GoTo err_Command9_Click

If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then
 DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings (True)
    DoCmd.Close acForm, Me.Name
Else
DoCmd.Close acForm, Me.Name
End If
    If IsNull(Me.Text15) Then
    DoCmd.SetWarnings (False)
    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
    DoCmd.SetWarnings (True)
    DoCmd.Close acForm, Me.Name
    Else
            Dim Msg, style, title, result
            Msg = "هل تريد حفظ الفاتورة الحالية"
            style = vbYesNo
            title = " تنبيه"
            result = MsgBox(Msg, style, title)
            If result = vbYes Then
            [TotalAmount] = [Text17]
            [Descount] = [Text15] - [Text17]
            MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه"
            DoCmd.Close acForm, Me.Name
            Else
            If result = vbNo Then
            DoCmd.SetWarnings (False)
            DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
            DoCmd.SetWarnings (True)
            MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة"
            DoCmd.Close acForm, Me.Name

End If
End If
End If

Exit_Command9_Click:

Exit Sub
err_Command9_Click:

    If Err.Number = 2467 Then
        Resume Exit_Command9_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر

[ابوآمنة]

شكراً لكم أخي جعفر

لكن لم ينتقل الكود 

إلى الشرط الثاني 

 If IsNull(Me.Text15) Then

لم تظهر الرسالة هل تريد حفظ الفاتورة لحالية "بتاتاً .

ما السبب ؟

الفواتير3.rar

تم تعديل يونيو 20, 2018 بواسطه saleh204

[jjafferr]

والله يا اخوي صالح انا ما لعبت في الكود ، ولو تقارنه بكودك سطر بسطر بتلقاه طبق الاصل ، غير اني عدلت على امر الخروج من النموذج فقط فقط واصطياد الخطأ

وهاي عدد المرات اللي انت اعطيت امر لإغلاق النموذج:

.

بس انا اعتقد ان كودك بدأ بشيء ، ثم انت غيرت عليه ولكن لم تحذف الكود القديم ، لذا انت محتاج الى هذه الجزئية فقط:

 

.

جعفر

[ابوآمنة]

هل تستطيع بناء الكود من جديد هذا هو المطلوب 

إذا كان حقلي 

If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then

فارغين الأمر "حذف الفاتورة" والخروج

إذا لم يكونا فارغين اعمل خروج بدون حذف .

إذا كان حقل فارغ

If IsNull(Me.Text15) Then

احذف الفاتورة وعمل خروج

إذا كان لم يكون فارغ اخرج رسالة هل تريد حفظ الفاتورة أم لا 

فقط .

أنا حاولت لي فترة اعمل على الكود لم اخرج بنتيجة 

رجائي أن القى الحقل لديكم 

[jjafferr]

تفضل يا سيدي

Private Sub Command9_Click()
On Error GoTo err_Command9_Click


    If IsNull(Me.Text15) And IsNull(Me.TotalAmount) Then
        DoCmd.SetWarnings (False)
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.SetWarnings (True)
        DoCmd.Close acForm, Me.Name
    Else
        DoCmd.Close acForm, Me.Name
    End If
    
    
    If IsNull(Me.Text15) Then
        DoCmd.SetWarnings (False)
        DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
        DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
        DoCmd.SetWarnings (True)
        DoCmd.Close acForm, Me.Name
    Else
            Dim Msg, style, title, result
            Msg = "هل تريد حفظ الفاتورة الحالية"
            style = vbYesNo
            title = " تنبيه"
            result = MsgBox(Msg, style, title)
            
            If result = vbYes Then
                [TotalAmount] = [Text17]
                [Descount] = [Text15] - [Text17]
                MsgBox "تم الحفظ سيتم الخروج", vbInformation, "تنبيه"
                DoCmd.Close acForm, Me.Name
            'Else
            '    DoCmd.SetWarnings (False)
            '    DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
            '    DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
            '    DoCmd.SetWarnings (True)
            '    MsgBox "تم حذف الفاتورة الحالية", vbInformation, "مع السلامة"
            '    DoCmd.Close acForm, Me.Name
            End If
    End If


Exit_Command9_Click:

Exit Sub
err_Command9_Click:

    If Err.Number = 2467 Then
        Resume Exit_Command9_Click
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
End Sub

 

جعفر