samisalim

نعم الحين الامور طيبة جزاك الله خيرا🌹

السلام عليكم مبارك عليكم شهر رمضان استاذي @ابوخليل واجهتني مشكلة عند استلام أو تسليم جهاز لاول مرة وطباعة تقرير يظهر تاريخ الاستلام او التسليم مضبوط ولكن عند الاستلام أو تسليم نفس الجهاز لمستخدم آخر وطباعة استمارة يظل التاريخ السابق ولا يتغير

ما شاء الله تبارك الرحمن عمل في قمة الاتقان لا غبار له اشكرك يامعلمي على لمساتك الجميلة وانا قمت بتطبيق ونقل ما قمت به إلى البرنامج وسوف اقوم بوضع رابط البرنامج هنا لتعم الفائدة للجميع سلمت يداك وفي ميزان حسناتك...

مرفق لكم رابط آخر تعديل في البرنامج على يد معلمي واخي الغالي @ابوخليل أسأل الله أن يبارك في عمره وعمله وماله وحياته ويهب له أجر ماقام به... المعتمد.7z

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

نعم هذه الملاحظات في محلها أستاذي ومعلمي @ابوخليل لكن اذا افترضنا بأن الطابعه يوجد بها مشكلة وتم إعطاء الامر للطابعة واردنا إعادة طباعة الاستمارة مرة آخرى نلاحظ بأن لاتوجد مشكلة في عملية طباعة استمارة استلام جهاز لان ستضل تاريخ الاستلام موجود في النوذج الرئيسي(العمليات) *ولكن تكمن المشكلة في عملية طباعة استمارة التسليم لان سيتم ادخال تاريخ التسليم وتمتحي البيانات الجهاز في نموذج العمليات حتى ولو لم يتم طباعة الاستمارة . إلا اذا عملنا قائمة منبثقة يتم السؤال هل تم طباعة الاستمارة بنجاح ؟نعم/لا اذا ضغطنا على نعم سيقوم بالتكملة واذا لا سينهي العملية . نعم صاحب التوقيع هو من عمل حركة الجهاز نعم استاذي هذا صحيح

جزاك الله خيرا استاذي الغالي أحمد في ميزان حسناتك

السلام عليكم أريد عند اختيار معرف الجهاز من قائمة البحث والضغط على زر طباعة يظهر معي بيانات الجهاز في النموذج آخر تلقائي بدلاً من البحث في مربع السرد والتحرير والضغط على انتر لإظهار البيانات وطباعة سوا كانت استمارة استلام او تسليم جهاز. ‏‏‏‏devicesdb12 -9_00013.zip

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

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

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

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

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

السلام عليكم 🙂 كما الواضح في الصورة نموذج لعملية الفرز والتصفية من نموذج فرعي عن طريق الاستعلام المطلوب 1-عند اختيار من مربع السرد (الولاية) مثال ولاية هيماء يتم فرز المدارس التابعة لها ويتم اظهارها في مربع السرد والتحرير (المدرسة) وعند اختيار المدرسة المطلوبة يتم اظهارها في نموذج الفرعي 2- عند الضغط على زر PDF يتم حفظ الملف بجوار البرنامج بإسم المدرسة وكذلك عند الضغط على زر طباعة يتم طباعة المدرسة المحددة 3- عند الضغط على زر إعادة البحث يتم إظهار جميع الولايات وإلغاء الكتابة في المربعات التحرير والسرد تم الاطلاع على الموضوع الاستاذ القدير جعفر ومحاولة تطبيقه في الملف المرفق ‏‏‏‏devicesdb12 -9_00011.7z

مبارك لك التكريم استاذ موسى ... تستاهل كل خير