عند الاختيار من مربع تحرير وسرد وتحديد اسم الموظف والضغط على الزر لتحميل الى الاكسيل

[بلال اليامين]

السلام عليكم

عندما تقوم بالاختيار من مربع تحرير وسرد الموسم الدراسي  و القسم  و  الرقم الفوج وتضغط على زر فتح النموذج

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

اريد عند وضع العلامة امام اي اسم من الموظف والضغط على زر يتم تحميله الى الاكسيل

واريد تحميل التقرير الى الاكسيل كما هو 

المستخدم3333.rar

تم تعديل يوليو 6, 2020 بواسطه بلال اليامين

[محمد أبوعبدالله]

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

منذ ساعه, بلال اليامين said:

واريد تحميل التقرير الى الاكسيل كما هو 

اطبعه Pdf سيكون صورة طبق الاصل من التقرير

الكود التالي يقوم بتصدير البيانات  الموجودة بالتقرير الى اكسيل

On Error GoTo Err_أمر39_Click
If t2.SourceObject = "" Then
MsgBox "غفواً.. لايمكن فتح تقرير قبل فتح النموذج"
Exit Sub
End If

Dim stLinkCriteria As String
stLinkCriteria = "[الموسم الدراسي]='" & [نص30] & "' And [القسم]='" & [نص32] & "' And [رقم الفوج]='" & [مربع_تحرير_وسرد35] & "'"


    Dim stDocName As String

    stDocName = ChrW(1578) & ChrW(1602) & ChrW(1585) & ChrW(1610) & ChrW(1585) & ChrW(49)
    DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria


DoCmd.OutputTo acOutputReport, "تقرير1", acFormatXLS, CurrentProject.Path & "\" & stDocName & ".xls", True


Exit_أمر39_Click:
    Exit Sub

Err_أمر39_Click:
    MsgBox Err.Description
    Resume Exit_أمر39_Click

المستخدم.rar

تحياتي

[بلال اليامين]

اخي ايوجد كود تحميل الى الاكسيل

[محمد أبوعبدالله]

1 دقيقه مضت, بلال اليامين said:

اخي ايوجد كود تحميل الى الاكسيل

نعم الكود الثاني

On Error GoTo Err_أمر39_Click
If t2.SourceObject = "" Then
MsgBox "غفواً.. لايمكن فتح تقرير قبل فتح النموذج"
Exit Sub
End If

Dim stLinkCriteria As String
stLinkCriteria = "[الموسم الدراسي]='" & [نص30] & "' And [القسم]='" & [نص32] & "' And [رقم الفوج]='" & [مربع_تحرير_وسرد35] & "'"


    Dim stDocName As String

    stDocName = ChrW(1578) & ChrW(1602) & ChrW(1585) & ChrW(1610) & ChrW(1585) & ChrW(49)
    DoCmd.OpenReport stDocName, acViewReport, , stLinkCriteria


DoCmd.OutputTo acOutputReport, "تقرير1", acFormatXLS, CurrentProject.Path & "\" & stDocName & ".xls", True


Exit_أمر39_Click:
    Exit Sub

Err_أمر39_Click:
    MsgBox Err.Description
    Resume Exit_أمر39_Click

 

[بلال اليامين]

بارك الله فيك اخي

[محمد أبوعبدالله]

الان, بلال اليامين said:

بارك الله فيك اخي

بالتوفيق اخي الكريم

تحياتي