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

[samisalim]

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

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

المطلوب

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

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

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

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

 

 

 

 

‏‏‏‏devicesdb12 -9_00011.7zFetching info...

[walid7799]

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

[jjafferr]

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

 

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

 

 

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

 

جعفر

1490.‏‏‏‏devicesdb12 -9_00011.accdb.zipFetching info...

[walid7799]

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

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

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

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

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

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

[samisalim]

  في 18‏/3‏/2022 at 16:10, walid7799 said:

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

Expand  

tblAlwilaya

tblUsersName

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

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

 

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

 

 

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

 

جعفر

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

Expand  

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

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

 

[samisalim]

  في 18‏/3‏/2022 at 16:13, walid7799 said:

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

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

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

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

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

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

Expand  

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

[samisalim]

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

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

 

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

 

 

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

 

جعفر

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

Expand  

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

عملت الازرار حفظ 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

 

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

تم تعديل مارس 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 لذلك ينقسم التقرير لصفحتين 🙂 

المرفق :

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

[samisalim]

  في 22‏/3‏/2022 at 18:22, 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

Expand  

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

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

[Moosak]

  في 22‏/3‏/2022 at 19:29, samisalim said:

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

Expand  

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

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

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

  في 22‏/3‏/2022 at 19:29, samisalim said:

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

Expand  

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

 

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

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

[samisalim]

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