هل يمكن ربط الاكسس ببرنامج fast reports وهل هناك برامج بديلة له يمكن ربطها في الاكسس

[عبد الله قدور]

السلام عليكم ورحمة الله وبركاته 

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

هل يمكن ربط الاكسس في فاست ريبورت ام لا 

وان كان لا يمكن ربطه هل هناك برامج مشابهة لفاست ريبورت لبربطها في الاكسس

[Foksh]

17 ساعات مضت, عبد الله قدور said:

السلام عليكم ورحمة الله وبركاته 

 

وعليكم السلام ورحمة الله وبركاته ..

قد يخدمك هذا الرابط

https://www.fast-report.com/blogs/connect-database-report

وهذا الفيديو

 

[Lamyaa]

وعليكم السلام ورحمة الله وبركاته

إذا كنت تقصد من الأكسيس مباشرة ، فنعم ممكن ولكن بإصدارة قديمة مصممة للعمل بنمط ActiveX ، ابحث عنها في النت وستجدها ، وستجد أمثلة للعمل على VB6 تعمل بنفس الأكواد على VBA

إن أردت سأبحث عنها لك في جهازي القديم فقد استعملتها من قبل

[hanan_ms]

جرب عرض التقرير @عبد الله قدور

وتجنب استخدام طرف ثالث او رابع  

1-  طول الصفحة راسية والعرض صفحة افقية + وبعد غلاف وصور 😇

2- تشغيل قائمة اسرع وتستطيع التجربة مصدر جدول مستمر راس النموذج ازرار وتذيليل النموذج ازارا نفس الفكرة مع دالة معدلة لمصدر استعلام وجداول قريبا لتصميم للقوائم الجانبية  

المرفق اسفل الفيديو

اذا حاب تفرع من جدول علاقات اضافة لجدول المفرع احتساب ID & "." & IDD مع دالة بسيط 

للقوائم الجانبية 

وكود لتشغيل الصفحة كامل التقرير 0 هوامش + استخراج PDF عالي الجودة عن طريق استخدام طباعة مايكروسوفت بي دي اف 

Private Sub Report_Load()
On Error Resume Next
 With Reports(Me.Report.name)
 
 '==========================( اذا كان بطول نوع الصفحة رأسية)
   ' تعيين الأبعاد المطلوبة
'        .Width = 8.5 * 1440 ' تحويل البوصة إلى twips
'        .Height = 11.1 * 1440
 '==========================( اذا كان بالعرض نوع الصفحة افقية)
   ' تعيين الأبعاد المطلوبة
        .Width = 11.7 * 1440 ' تحويل البوصة إلى twips
        .Height = 7.1 * 1440

        ' تحديد الهوامش بالمليمتر (1/567 سنتيمتر تقريبًا لكل وحدة)
        .TopMargin = 0
        .BottomMargin = 0
        .LeftMargin = 0
        .RightMargin = 0
    End With

كود تصدير التقرير PDF HD 0 هوامش

Private Sub S_X_Click()
'------------------( Msgbox )-Only
Dim strMsg_Give_Nmae As response
Dim MsG1 As String
Dim MsG2 As String
Dim MsG3 As String
'---------------------------------
Dim Rep As String
Dim FilePath As String
Dim password As String
Dim response As VbMsgBoxResult
Dim prtDefault As printer
Dim prtTemp As printer
Dim reportName As String
Dim ReportName_X As String
Dim Object_J_1 As Long
Dim Object_J_2 As Long
Dim Object_J_3 As Long
Dim Object_J_4 As Long
Dim Object_J_5 As Long
Dim Run_Object_J As Integer

On Error GoTo ops

' تأكد أن الطابعة Microsoft Print To PDF مثبتة ومفعلة في النظام
'==================================( No use Tablte Control IF Tablt = Dlookup , User = Name ***** )

'========( 1 - Only Save Report Set Path  - 2-Only Save Report Set Path selectd user (Object_J_1)1,2
'========( 1- No Password PDF - 2- Yes Password PDF - 3- Yes Password PDF Selected User (Object_J_2)1,2
'========( 1- show Form - 2-Show Open File - 3-No Show (Object_J_3)1,3
'========( 1- Aout Name File - 2-Name File withAout - 3-User Name (Object_J_4)1,3
'========( 1- Show Report Form - 2- Open File PDF -(Object_J_5)1,2 **********( For Close = 0) Only MasBox_JK

Object_J_1 = 1
Object_J_2 = 1
Object_J_3 = 1
Object_J_4 = 1
Object_J_5 = 1

'*******************( Set (1))
'حفظ الطابعة الحالية
Set prtDefault = Application.printer
Rep = Me.Name_report.caption
reportName = Rep ' إضافة هذا السطر لتعريف ReportName

'***********************( Run Cod (J))
For Run_Object_J = 1 To 3

'===================================================================================( 1
If Run_Object_J = 1 Then

    If Object_J_1 = 1 Then
        '=====( Set path Copy to filePath )
        If Object_J_4 = 1 Then
            ReportName_X = format(Date, "dd-mm-yyyy") & "-" & format(Now(), "Hh-Nn-ss-AM.")
        End If
        FilePath = "C:\Users\Ezril\Documents\" & ReportName_X & ".pdf"
    End If

    If Object_J_1 = 2 Then
        'فتح مربع حوار لحفظ الملف
        With Application.FileDialog(msoFileDialogSaveAs)
            .title = "اختر مسار حفظ التقرير PDF"
            .initialFileName = CurrentProject.path & "\" & ReportName_X & ".pdf"
            If .Show = -1 Then
                FilePath = .SelectedItems(1)
            Else
                GoTo exit_Ops ' تغيير من Exit Sub إلى GoTo exit_Ops
            End If
        End With
    End If

End If

'================================================================================( 2
If Run_Object_J = 2 Then

    '==============(1 Or
    If Object_J_2 = 1 Then
        'تحديد الطابعة "Microsoft Print to PDF"
        For Each prtTemp In Application.Printers
            If prtTemp.DeviceName = "Microsoft Print to PDF" Then
                Set Application.printer = prtTemp
                Exit For
            End If
        Next prtTemp
  Set Application.printer = Application.Printers("Microsoft Print to PDF")
        'طباعة التقرير إلى الطابعة المحددة
        DoCmd.openReport reportName, acViewPreview
        DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, FilePath, False
        ' ستظهر لك نافذة حفظ PDF - بعض الأنظمة تسمح تحديد الملف تلقائياً عبر registry
        ' أسهل حل أن تكتب اسم الملف في مربع الحوار عند الطباعة أو تستخدم أداة مثل PDFCreator

        'إرجاع الطابعة الأصلية
        Set Application.printer = prtDefault
'    Set Application.printer = Application.Printers(oldPrinter)
    End If

    '==============(2 Or
    If Object_J_2 = 2 Then
        '=================( Set psword Or Form DlookUp tablet
        password = "123"

        'تحديد الطابعة "Microsoft Print to PDF"
        For Each prtTemp In Application.Printers
            If prtTemp.DeviceName = "Microsoft Print to PDF" Then
                Set Application.printer = prtTemp
                Exit For
            End If
        Next prtTemp

        'طباعة التقرير إلى الطابعة المحددة
        DoCmd.openReport reportName, acViewNormal, , , acHidden
        ' إرجاع الطابعة الأصلية
        Set Application.printer = prtDefault
    End If

    '===============(3 Or
    If Object_J_2 = 3 Then
        'سؤال عن كلمة المرور
        response = MsgBox("هل تريد إضافة كلمة مرور للـ PDF بعد الطباعة ؟", vbYesNo + vbQuestion, "تأكيد")
        If response = vbYes Then
            password = InputBox("أدخل كلمة المرور للـ PDF:", "كلمة المرور")
        End If

        'تحديد الطابعة "Microsoft Print to PDF"
        For Each prtTemp In Application.Printers
            If prtTemp.DeviceName = "Microsoft Print to PDF" Then
                Set Application.printer = prtTemp
                Exit For
            End If
        Next prtTemp

        'طباعة التقرير إلى الطابعة المحددة
        DoCmd.openReport reportName, acViewNormal, , , acHidden
        ' إرجاع الطابعة الأصلية
        Set Application.printer = prtDefault
    End If

End If

'================================================================================( 3
If Run_Object_J = 3 Then

    '==============(1 Or
    If Object_J_3 = 1 Then
        DoCmd.openForm "RepotX"
        Forms!RepotX.ww.ControlSource = "=""" & FilePath & """"
    End If

    '==============(2 Or - تم تصحيح الرقم من 1 إلى 2
    If Object_J_3 = 2 Then
        On Error Resume Next
        Application.FollowHyperlink FilePath
    End If

End If

Next Run_Object_J ' إغلاق الحلقة For الرئيسية

'**************************** (Run Finsh Code ) ********************************
'إذا كان هناك كلمة مرور، نستخدم 7-Zip أو أداة PDFEncrypt
If password <> "" Then
    Dim protectedPath As String
    protectedPath = Left(FilePath, Len(FilePath) - 4) & "_protected.pdf"

    ' مثال باستخدام أداة خارجية PDFEncrypt.exe (ضع مسارها الصحيح)
    ' Shell """C:\Tools\PDFEncrypt.exe"" -in """ & filePath & """ -out """ & protectedPath & """ -password """ & passWord & """", vbHide

    'أو باستخدام 7-Zip لضغط الملف بكلمة مرور (سيكون بصيغة zip)
    Shell "7z a -tzip -p" & password & " """ & protectedPath & """ """ & FilePath & """", vbHide

    '-------------------------( Code Msgbox )
    MsG2 = "Sand Massage !"
    MsG1 = "تم التنفيذ بنجاح"
    MsG3 = "تم حفظ نسخة محمية بكلمة مرور في: " & vbCrLf & protectedPath

    MyMsgBox (MsG3), (MsG2), (MsG1), msg_Information, Btn_OK_Only, Arabic_Center ', True, 2.5
'-----------------------------------------
Else
    '-------------------------( Code Msgbox )
    MsG2 = "Sand Massage !"
    MsG1 = "تم التنفيذ بنجاح"
    MsG3 = "تم حفظ PDF بنجاح في: " & vbCrLf & FilePath

    MyMsgBox (MsG3), (MsG2), (MsG1), msg_Information, Btn_OK_Only, Arabic_Center ', True, 2.5
'-----------------------------------------
End If

'===================( Chack Data )
If DCount("*", "[File_Dial_SyS]") = 0 Then
    '-------------------------( Code Msgbox )
    MsG2 = "Sand Massage !"
    MsG1 = "الغاء التنفيذ"
    MsG3 = " لا يوجد ملف تم اضافتة من الاصل السجلات 0 البيانات , اضافة ملف جديد وتأكد من البيانات الصحيحة ثم اعادة المحاولة "

    MyMsgBox (MsG3), (MsG2), (MsG1), msg_Erorr_Job, Btn_OK_Only, Arabic_Center ', True, 2.5
'-----------------------------------------
    Exit Sub
End If

If DCount("*", "[Name_Job_Cutomar_File]") = 0 Then
    '-------------------------( Code Msgbox )
    MsG2 = "Sand Massage !"
    MsG1 = "الغاء التنفيذ"
    MsG3 = " لا يوجد اسماء موظفين مختصين تم ادراجهم؟! ثم اعادة المحاولة "

    MyMsgBox (MsG3), (MsG2), (MsG1), msg_Erorr_Job, Btn_OK_Only, Arabic_Center ', True, 2.5
'-----------------------------------------
    Exit Sub
End If

If DCount("[k]", "[Name_job_Customar_k]") = 0 Then
    '-------------------------( Code Msgbox )
    MsG2 = "Sand Massage !"
    MsG1 = "تم الغاء التنفيذ"
    MsG3 = " لم تحدد موظف مختص او موظفين لطباعة التقرير  "

    MyMsgBox (MsG3), (MsG2), (MsG1), msg_Exclamation, Btn_OK_Only, Arabic_Center ', True, 2.5
'-----------------------------------------
    Exit Sub
End If

'-----------------------------------------------------------------------( For Error Code Only Copy And No Can use Function = Here Error :) X
exit_Ops:
Exit Sub

ops:
Dim Error_Finction As String

Error_Finction = err.number & ":" & err.Description _
 & ":" & Me.ActiveControl.name & ":" & Me.Form.name

Error_Now (Error_Finction)

DoEvents
Resume exit_Ops

End Sub

تحميل المرفق :

https://www.mediafire.com/file/fha9c7tc2ubydte/REport_Desian_Menu_V1.rar/file