كيف يمكن تصدير ملف الإدارة بي دي اف بحيث يكون كل مدرسة على حدى

[haniameen]

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

لدي قاعدة بيانات نتيجة مدارس الشهادة الاعدادية

وأريد تصدير تقرير 

pdf

لكل ادارة بحيث يكون التقرير خاص بكل مدرسة على حدى 

يعني لما اضغط على زر نتيجة طالب في النموذج كما موضح بالصورة يتم تصدير الادارة كامل بي دي اف بحيث تكون كل مدرسة في ملف بي دي اف مستقل خاص بها وليس ملف واحد مجمع لمدارس الإادارة كلها

ارجو ان  اكون وفقت في توصيل وجهة نظري 

تصدير بي دي اف لكل مدرسة على حدى.rar

تم تعديل يونيو 23, 2021 بواسطه haniameen

[jjafferr]

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂

 

جعفر

[haniameen]

10 hours ago, jjafferr said:

وفي انتظار الاستاذ هاني ان يعطينا ملف بدون كلمة سر في الكود 🙂

 

جعفر

😭😭😭😭

اسف استاذي جعفر اسفا شديدا

كنت اعتقد اني الغيت كلمة السر 

 

تصدير بي دي اف لكل مدرسة على حدى.rar

تم تعديل يونيو 24, 2021 بواسطه haniameen

[jjafferr]

🙂

1. عملت استعلام علشان احصل على مجاميع اسماء المدارس ، بدون تكرار:

.

2. ثم استعلام آخر ، حتى يعطينا جميع سجلات المدرسة ، حسب قيمة الحقل cbo_schoole في النموذج tsform ، والذي سنغيره برمجيا :

.

3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير :

.

4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ،

وعدلت على ارتفاعه ليكون نصف صفحة تقريبا ، حتى نضع تقريرين في كل صفحة pdf :

.

5. وعملت هذه الدالة على زر "بيان درجات الطالب" ، لكي يتم تصدير التقارير لمفات pdf ، لكل مدرسة ملفها الخاص:

Private Sub أمر26_Click()
'On Error Resume Next
'DoCmd.OpenReport "استيكر لغات", acViewPreview
'Me.Visible = False

On Error GoTo err_Handle

    Dim rstG As DAO.Recordset
    Dim File_Name As String
    
    'get the Group school names
    Set rstG = CurrentDb.OpenRecordset("Select * From qry_1_School_Name_Group")
    rstG.MoveFirst  'always start from the begining
    
    'loop through the Group school names
    Do Until rstG.EOF

        'assign the school name to the field, and apply its event, for visual looks
        Me.cbo_schoole = rstG!School_name
        Call cbo_schoole_AfterUpdate
        
        'output pdf file name
        File_Name = Application.CurrentProject.Path & "\" & Me.cbo_schoole & ".pdf"
        Kill File_Name  'Delete old file, if any
       
        'output the Reports as pdf file
        DoCmd.OutputTo acOutputReport, "rpt", acFormatPDF, File_Name, False, , , acExportQualityPrint
        
        'next school
        rstG.MoveNext
    Loop
    
Exit_err_Handle:
    'cleaning up
    rstG.Close: Set rstG = Nothing
    
Exit Sub
err_Handle:

    If Err.Number = 53 Then
        'no file to delete
        Resume Next
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    Resume Exit_err_Handle
    
End Sub

 

جعفر

1394.تصدير بي دي اف لكل مدرسة على حدى.mdb.zip

[haniameen]

استاذي جعفر اشكرك شكرا جزيلا وبارك الله فيك وزادك الله من فضله

هذا هو المطلوب 

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

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

شكرا مرة أخرى

[jjafferr]

22 ساعات مضت, haniameen said:

ولكن انت طبقته على النموذج

بل طبقته على تقرير ، لاحظ اسم التقرير :

.

.

كلما في الامر اني حفظت النموذج بضيغة تقرير ،
فانا وضحت لك في مشاركتي السابقة ، واليك توضيح آخر:

الاكسس فيه خاصية تحويل كائن النموذج الى كائن تقرير ، يعني اذا كان عندك نموذج ، واردت ان تعمل تقرير شبيه له ، فيمكنك تحويل النموذج الى تقرير ، والتعديل عليه وحذف الكود والازرار التي به ،

هكذ :

في ٢٤‏/٦‏/٢٠٢١ at 12:44, jjafferr said:

3. ثم فتحت النموذج fform ، وحفظت نسخة منه الى تقرير :

.

4. تم حفظ التقرير باسم rpt ، ومصدر بياناته كان الاستعلام 2 اعلاه ،

.

 

23 ساعات مضت, haniameen said:

واعتقادي ان ما يحول لبي دي اف هو التقارير ولم يتطرق لذهني ان النموذج سيحول 

اذا وضعت مؤشر الفأرة على كلمة acOutputReport في الكود ، ثم ضغطت على زر F1 ، فسترى البدائل الاخرى التي يمكنك تصديرها ،

فقط تأكد بمطابقة نوع الكائن الذي تريد تصديره (مثلا acOutputForm) ، بوضع اسمه الصحيح (fform) :

.

جعفر