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

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

جميل جدا بارك الله فيك

شغل مرتب ومفيد ... شكرا استاذ موسى

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

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

ياهلا بمعلنا الجليل جعفر احببت ملاحظاتك للبرنامج وانا مطيع لمعلمي 1- بالفعل واعتذر منك عن هذا السهو واشكرك مرارا وتكرارا على هذا التنبيه وأنا استخدمت نفس الكود الذي أنت وضعته في صور التقارير . Private Sub Form_Load() On Error GoTo err_Form_Load Me.cmdDevDetails.Picture = Application.CurrentProject.Path & "\images\Device_barcode.png" Me.cmdBasic.Picture = Application.CurrentProject.Path & "\images\Information.png" Me.cmdReport.Picture = Application.CurrentProject.Path & "\images\Report.png" Me.cmdSearch.Picture = Application.CurrentProject.Path & "\images\Search.png" Me.cmdSetting.Picture = Application.CurrentProject.Path & "\images\Setting.png" Exit_Form_Load: Exit Sub err_Form_Load: If Err.NUMBER = 2220 Then 'image not found Resume Next Else MsgBox Err.NUMBER & vbCrLf & Err.Description Resume Exit_Form_Load: End If لكن لاحظت عدم تغير حجم البرنامج هل يحتاج انقله إلى قاعدة بيانات جديدة او ماذا افعل؟؟ 2- بحثت عن النموذج الذي لا يمكن اغلاقه ولم احصله هل ممكن اسم النموذج 3- بإذن الله سوف اقوم بتنسيقه فيما بعد. 4- بإذن الله سوف احاول تضبيطه آخر شيء. 5- تم التعديل اسم النموذج frmReceive&Return إلى frmReceiveReturn مع تعديل مشكلته وهذا النموذج لطباعة استمارات استلام وتسليم الأجهزة ويوجد زر في نموذج حركة الأجهزة 6- هل تقصد هذا الكود Private Sub cmbAlwilaya_AfterUpdate() Me.cmbSchool.Requery ' ابحث عن السجل الذي يطابق عنصر التحكم. Dim strFilter As String If Not IsNull(Me.cmbAlwilaya) Or Me.cmbAlwilaya <> "" Then Me.frmSubSchool.Form.Filter = "[Alwilayas]=" & "'" & Me.cmbAlwilaya & "'" Me.frmSubSchool.Form.FilterOn = True Else Me.frmSubSchool.Form.FilterOn = False ما هو الكود الذي اقدر استبدله أو طريقة انتقل الى فلتر/تصفية الاستعلام اذا ممكتن تطبق في ملف البرنامج لاني حاولت ولم انجح في الفلترة والتصفية 7 تم حذف الكود وسوف اضيف كود آخر بعد الانتهاء من تقسيم قاعدة البيانات في حدث الاغلاق 8- جميل جدا هذا يلي احتاجه بإذن الله سوف اقوم بتغير مسار البرنامج بعد تقسيمه وتحميله على السيرفر أشكركم أستاذ جعفر على ملاحظاتكم وتعاونكم معنا اتمنى تستحملني قليلا واستغل وقتك الثمين راح اعدل في البرنامج وارفقه لكم

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

مرفق لكم آخر تعديل للبرنامج ‏‏‏‏devicesdb12 -9.7z

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

السلام عليكم 😇 أستاذ ابو خليل والاستاذ جعفر غبت عنكم كثيرا ورجعت بعد العمل على البرنامج الرجاء منكم إبداء رايكم اتمنى النظر في نموذج FrmSubFilterSchool هل طريقتي صحيحة في عمل استعلام وكيف يتم تصفية السجلات وطباعتهن مرفق لكم البرنامج ‏‏‏‏devicesdb12 -9.7z