محمد التميمي

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

السلام عليكم لدي قائمة منسدلة باسم 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

اخي لا يوجد تقرير في المرفق على كل حال اليك الاكواد التي تحتاجها 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

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

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

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