محمد التميمي

بارك الله بك

بارك الله بك استاذ ابا جودي ومرة ثانية اهلاً وسهلاً بعودتك الصور المخيفة لا توحي لنموذج منبثق حسبتها ستخرج علية من الشاشة هههههه

السلام عليكم الاخ moham_q ما طرح الاساتذة اعلاه من امثلة تعمل بشكل جيد واليك امثلة التقارير تعمل عندي جميعها بشكل جيد وذا لم تعمل عند فهناك مشكلة خفية في الاكسس اطار التقرير.mdb

من رخصة استاذ حسام تفضل على طريقتي انشأت نموذج وسميته Filter وبدوره تستطيع فلترة اي محافظة وطباعة الناتج بتقرير DB2.rar

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

شكرا للسائل شكراً استاذ حسام انا ايظاً كنت بحاجة لهذا الموضوع

بارك الله بك مشكور استاذ حسام

بارك الله بك بجهودك

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

وعليكم السلام بارك الله بجهودك جاري التحميل ومن ثم التعرف على البرنامج

شكراً استاذي الكريم ساجرب واوافيك بالنتيجة نعم هذا المطلوب بارك الله بجهودك استاذي الكرم

السلام عليكم لدي قائمة منسدلة باسم ww مخصصة لبحث الاسم لاكن عند اختيار اسم ليس في القائمة واضغط انتر تظهر الرسالة التي في الصورة ويتعذر الخروج من القائمة الا باجبار المستخدم باختيار اسم منها المطلوب اخواني اريد عند ادراج اسم ليس بالقائمة سهولة الخروج من القائمة دون اختيار اسم منها اجباري وعدم ظهور هذه الرسالة جزاكم الله خير الجزاء 33.accdb

بارك الله بك وجزاك خيراً برنامج يستحق التقدير

خالص أمنياتنا ودعواتنا بأن يزيدك الله من فضله، وتزداد علماً وتقوى استاذ Khalf 🌹

شكرأ شكرأ استاذي الكريم

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

نعم كان من المفترض ان اوضح عندي كود يعمل بعدم ترك الحقل فارغ وفي نهاية الكود لا اوريد امر Cancelevent انما اوريد االرجوع الى الحقل السابق اين كان اسمه مجرد الرجوع فقط If IsNull([Namee]) Then MsgBox "لاتترك الحقل فارغاً **هذا الحقل اجباري ** ادخل الاسم الرباعي", vbCritical + vbMsgBoxRight, "تحذير ..!!" DoCmd.CancelEvent End If شكرأ

السلام عليكم اخواني ممكن كود بأمر الرجوع الى الكومبوكس السابق لايوجد في البحث وجربت كتابات كثير لم تفلح

من بعد اذن استاذ محمد اخي سامر الكود الاول يعمل بامتياز وقد أضفت لك اربع محافظات school.rar

احسنت اخي واستاذي حسين سأعمل بما اشرته علية ان شاء الله ، كنت اتصفح قاعدة بيانات احد الاصدقاء ولاحظت وجود هكذا استعلام فيه جميع الجداول المرتبطة . واذ لم تنجح الطريقة سأنتقل الى الخيار الثاني في انشاء جدول باسم Export بارك الله بجهودك شكراً جزيلاً 🌹

السلام عليكم الملف المرفق يرجى تحميله من الرابط ادناه بسبب حجمه اولاً لدي نموذج باسم Export مخصص لتصدير الجداول والستعلام والتقارير الى اكسل ولاكن بعد التصدير تظهر القيم المرتبطة بجداول فرعية على شكل ارقام ولقد وضحتها في صورتين المطلوب التعديل على الكود لتخطي هذه المشكلة ثانياً الكود في النموذج Export قمت بكتابته يدوياً و يعمل بشكل جيد ولاكن اذا قمنا باستيراده النموذج ملف اكسس اخر او نسخ الكود الى نموذج اخر لا يعمل الاستيراد او النسخ الجديد وتظهر عند استعمال النموذج هذه الرسالة مع فائق الشكر والتقدير http://www.mediafire.com/file/fp2a63r7mati97p/file

اخي لا يوجد تقرير في المرفق على كل حال اليك الاكواد التي تحتاجها 1- كود طباعة البحث ضعه في زر امر Dim RName, FldCriteria As String RName = "اسم التقرير" FldCriteria = "[اسم الترقيم في الجدول]=" & Me![اسم الترقيو في الجدول] DoCmd.OpenReport RName, acViewNormal, , FldCriteria 2- كود تصدير التقرير الى اكسل On Error Resume Next DoCmd.SelectObject acReport, namerpts DoCmd.OutputTo acOutputReport, namerpts, "MicrosoftExcelBiff8(*.xls)", "", True, ".xls", , acExportQualityPrint

اين المرفق اخي ليتم التعديل عليه