نموذج الفرز والتصفية في الاستعلام

[samisalim]

السلام عليكم 🙂

كما الواضح في الصورة نموذج لعملية الفرز والتصفية من نموذج فرعي عن طريق الاستعلام

المطلوب

1-عند اختيار من مربع السرد (الولاية) مثال ولاية هيماء يتم فرز المدارس التابعة لها ويتم اظهارها في مربع السرد والتحرير (المدرسة) وعند اختيار المدرسة المطلوبة يتم اظهارها في نموذج الفرعي

2- عند الضغط على زر PDF يتم حفظ الملف بجوار البرنامج بإسم المدرسة وكذلك عند الضغط على زر طباعة يتم طباعة المدرسة المحددة

3- عند الضغط على زر إعادة البحث يتم إظهار جميع الولايات وإلغاء الكتابة في المربعات التحرير والسرد

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

 

 

 

 

‏‏‏‏devicesdb12 -9_00011.7z

[walid7799]

ما أسم الجدول المكتوب به أسماء الولايات والمدارس ؟؟؟

[jjafferr]

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

 

اقول لك ، صاني لقيت جني خاش عمره تحت النموذج الفرعي ، للعلم 😁

 

 

عملت البحث فقط 🙂

 

جعفر

1490.‏‏‏‏devicesdb12 -9_00011.accdb.zip

[walid7799]

‏‏‏‏devicesdb12 -9_00011.accdbهذا ما تم طلبه أرجو أن يفى بالغرض

ولكن قم بتغيير مصدر السجلات فقط دون تغيير 

فقط قم بتغيير  ما يلى :

1- مصدر سجلات الولاية حيث أننى تعبت من البحث عن مكانه قم بتغيير القيمة إلى المصدر الجديد فقط

2- مصدر السجلات للمدرسة لنفس السبب

وسيتم تشغيل كل شىء تلقائيا وطباعة التقرير وحفظة كملف PDF

[samisalim]

3 ساعات مضت, walid7799 said:

ما أسم الجدول المكتوب به أسماء الولايات والمدارس ؟؟؟

tblAlwilaya

tblUsersName

3 ساعات مضت, jjafferr said:

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

 

اقول لك ، صاني لقيت جني خاش عمره تحت النموذج الفرعي ، للعلم 😁

 

 

عملت البحث فقط 🙂

 

جعفر

1490.‏‏‏‏devicesdb12 -9_00011.accdb.zip 140.41 kB · 1 download

😂نعم شفته منخش وراء النموذج الله يصرفه بليسه ماأعرف من وين جاء

اشكرك استاذي على التعديل بارك الله فيك

 

[samisalim]

3 ساعات مضت, walid7799 said:

‏‏‏‏devicesdb12 -9_00011.accdbهذا ما تم طلبه أرجو أن يفى بالغرض

ولكن قم بتغيير مصدر السجلات فقط دون تغيير 

فقط قم بتغيير  ما يلى :

1- مصدر سجلات الولاية حيث أننى تعبت من البحث عن مكانه قم بتغيير القيمة إلى المصدر الجديد فقط

2- مصدر السجلات للمدرسة لنفس السبب

وسيتم تشغيل كل شىء تلقائيا وطباعة التقرير وحفظة كملف PDF

ما شاء الله عليك أخي جزاك الله خير على محاولتك في المساعدة استفدت من ملفك وتم نقل زر الطباعة وزر PDF إلى نموذج الرئسي

[samisalim]

في 18‏/3‏/2022 at 20:12, jjafferr said:

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

 

اقول لك ، صاني لقيت جني خاش عمره تحت النموذج الفرعي ، للعلم 😁

 

 

عملت البحث فقط 🙂

 

جعفر

1490.‏‏‏‏devicesdb12 -9_00011.accdb.zip 140.41 kB · 8 downloads

السلام عليكم 🙂

عملت الازرار حفظ PDF وكذلك الطباعة

كود حفظ PDF بأسم المدرسة مع ملف خاص في ملف البرنامج

Dim reportName As String
Dim fileName As String

    reportName = "rptsubschool"
    fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf"

DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
    

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

DoCmd.OpenReport "rptsubschool", , , , acDialog

ولكن كيف اجعل عملية حفظ التقريرPDF بشرط أختيار من  listbox

أنا جربت هذا الكود ولكن يظهر معي خطأ فأين المشكلة

'Me.Requery
'If DCount("idAlwilaya", "tblAlwilaya", "cmbAlwilaya=-1") = 0 Then
'      MsgBox "لا توجد بيانات لحفظها", vbCritical + vbMsgBoxRight, "تنبيه"
'Exit Sub
'Else
Dim reportName As String
Dim fileName As String

    reportName = "rptsubschool"
    fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf"

    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName
'End If

 

تعديل نموذج الفرز مهم.zip

تم تعديل مارس 22, 2022 بواسطه samisalim

[Moosak]

حياك الأخ سامي 🙂

ضبطت لك الكود الخاص بالـ PDF :

Dim reportName As String
Dim fileName As String

    reportName = "rptsubschool"
    fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf"

If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\")

    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName, True
'End If
End Sub

السطر التالي أضفته ليتأكد من أنه شي مجلد اسمه Schools بجانب قاعدة البيانات .. لأنه أعطاني خطأ لما ما لقيه ..

If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\")

 وكذلك صلحت لك مصدر بيانات التقرير ليكون مطابق للمدرسة المختارة في صفحة البحث .. 

باقي عليك تضبط حجم التقرير لأنه أعرض من صفحة ال A4 لذلك ينقسم التقرير لصفحتين 🙂 

المرفق :

تعديل نموذج الفرز مهم.accdb

[samisalim]

57 دقائق مضت, Moosak said:

حياك الأخ سامي 🙂

ضبطت لك الكود الخاص بالـ PDF :

Dim reportName As String
Dim fileName As String

    reportName = "rptsubschool"
    fileName = Application.CurrentProject.Path & "\" & "Schools" & "\" & frmSubSchool!ename & ".pdf"

If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\")

    DoCmd.OutputTo acOutputReport, reportName, acFormatPDF, fileName, True
'End If
End Sub

السطر التالي أضفته ليتأكد من أنه شي مجلد اسمه Schools بجانب قاعدة البيانات .. لأنه أعطاني خطأ لما ما لقيه ..

If Len(Dir(Application.CurrentProject.Path & "\" & "Schools" & "\", vbDirectory)) = 0 Then MkDir (Application.CurrentProject.Path & "\" & "Schools" & "\")

 وكذلك صلحت لك مصدر بيانات التقرير ليكون مطابق للمدرسة المختارة في صفحة البحث .. 

باقي عليك تضبط حجم التقرير لأنه أعرض من صفحة ال A4 لذلك ينقسم التقرير لصفحتين 🙂 

المرفق :

تعديل نموذج الفرز مهم.accdb 1.27 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads

الله يحييك استاذ موسى

هل ممكن إضافة رسالة عند عدم اختيار من مربع السرد والتحرير(الولاية -والمدرسة) والضغط على زر حفظ PDF تظهر رسالة (لا توجد بيانات الرجاء اختيار من القائمة) وكذلك في زر الحفظ

[Moosak]

9 ساعات مضت, samisalim said:

إضافة رسالة عند عدم اختيار من مربع السرد والتحرير(الولاية -والمدرسة) والضغط على زر حفظ PDF

سامي أضفت لك هذي ..

If IsNull(Me.cmbSchool) Or IsNull(Me.cmbAlwilaya) Or Me.cmbSchool = "" Or Me.cmbAlwilaya = "" Then
      MsgBox "يرجى اختيار الولاية والمدرسة", vbCritical + vbMsgBoxRight, "تنبيه"
Exit Sub
End If

بس هذا ما حصلته 🙂 

9 ساعات مضت, samisalim said:

وكذلك في زر الحفظ

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

 

تعديل نموذج الفرز مهم.accdb

تم تعديل مارس 23, 2022 بواسطه Moosak

[samisalim]

جزاك الله خيرا استاذ موسى في ميزان حسناتك