اساتذتى الافاضل قمت بعمل الاتى
عدلت الاستعلام المسمى ملخص حسابات العملاء 2 واضفت نموذج اسمه تجميعات ملخص مصدر التمويل
وفى النموذج FORM1 على الزر المسمى تقرير - اجمالى PDF-مصدر التمويل
اضافت الكود
Private Sub Command247_Click()
On Error Resume Next
If IsNull(FromDate) Or IsNull(ToDate) Then
MsgBox "íÌÈ ÇÎÊíÇÑ äØÇÞ ÇáÊÇÑíÎ ÇæáÇð", vbCritical + vbMsgBoxRight, "ÊäÈíå"
Else
Dim MyFile As String
DstFile = CurrentProject.Path & "\" & "ÈíÇä ÇÌãÇáì" & ".pdf"
Kill DstFile
DoCmd.OutputTo acOutputForm, "ÊÌãíÚÇÊ ãáÎÕ ãÕÏÑ ÇáÊãæíá", _
"PDFFormat(*.pdf)", DstFile, True, "", , acExportQualityPrint
End If
End Sub
والنتيجة الاتى
الاخطاء التى اريد من حضراتكم تصحيحها
ان بدل اسم مصدر التمويل يظهر رقم مصدر التمويل 1 3 5 اريد ان يظهر اسم مصدر التمويل
ولم يتم التجميع بل ان مصدر التمويل 1- له 110 تحته 100 تحته 333 وتحته3 وتحته 2344
اريد ان يتم مصدر التمويل وبجانبه له = 2890 ومنه 130 بدل 10+120
كمان عندما اغير التاريخ يظل يستخرج التقرير من 1/7/2021 حتى 30/6/2022
اريد ان يتم استخراج التقرير فى التاريخ الذى يتم اختياره
كل الشكر وخالص الدعاء من القلب اخوانى الافاضل
الدائن و المدين-2.rar