تعديل كود فاتورة جديدة وطباعة التقرير

[ابوآمنة]

'On Error Resume Next
    DoCmd.Beep
        DoCmd.SetWarnings False
     If MsgBox("سوف يتم حفظ الفاتورة بعد طباعتها. تريد بالفعل اكمال العملية ", vbYesNo + vbInformation + vbMsgBoxRight + vbDefaultButton1, "تنبيـــه") = vbNo Then
        DoCmd.RunCommand acCmdDeleteRecord
    SendKeys "{ESC}"
     MsgBox "لقد تم إلغاء عملية الطباعة والحفظ ", vbMsgBoxRight + vbInformation, ""
     Refresh
     DoCmd.Close
    ElseIf IsNull(Me.totalinvoice) Or IsNull(Me.itemcount) Then
     MsgBox "ادخل اصناف الفاتورة ", vbInformation, " "
     Me.F_ordersubform.SetFocus
     ElseIf (Me.totalinvoice) = 0 Then
      MsgBox "ادخل اصناف الفاتورة ", vbInformation, " "
     Me.F_ordersubform.SetFocus
      
     ElseIf IsNull([F_ordersubform]![Qty]) And ([F_ordersubform]![itemcode]) > 0 Then
     MsgBox "ادخل العدد ", vbInformation, " "
     Me.F_ordersubform.SetFocus
     [F_ordersubform]![Qty].SetFocus
        Else
      DoCmd.GoToRecord , , acNewRec
  If Me.orderno > 0 Then
   DoCmd.Close
    Exit Sub
   Else
    Refresh
   Call MyOutoNum
   F_ordersubform.SetFocus
   DoCmd.GoToControl "itemcode"
      Refresh
   End If

End If

Exit Sub
 

أين أضع كود طباعة التقرير 

علماً أني أضفت الكود وخرجت لي رسالة خطأ

أمل المساعدة في تحديد مكان كود طباعة التقرير

DoCmd.OpenReport "SalInvoicecode", acViewNormal, "", "", acNormal

 

تم تعديل مارس 28, 2018 بواسطه saleh204

[طاهر الوليدي]

رسل المثال

[ابوآمنة]

data_saleh.rar

بالمرفق مثال 

المشكلة في إضافة كود طباعة التقرير أما لو أزلته الأمور تمام 

أرجو من من لديه خبره أيفيدنا في حل المشكلة 

 

 

المرفق وجدته في أحد المشاركات أرجو المعذرة من صاحبه

تم تعديل مارس 28, 2018 بواسطه saleh204

[ابوآمنة]

للرفع

[ابوآمنة]

SetOption "Confirm Action Queries", False

""ضع هذا الكود فقط قبل أمر تشغيل استعلامات الحذف أو الإلحاق أو التحديث . وذلك لتعطيل الرسائل الافتراضية التي تخرج تلقائياً في الأكسس ( أنت على وشك القيام بحذف ... ألخ )""

الحمدلله تم حل المشكلة بواسطة هذا الكود 

شكراً لكم 

تم تعديل مارس 28, 2018 بواسطه saleh204