ابوخليل

اكتب في حدث تحميل أو فتح النموذج السطر التالي DoCmd.GoToRecord , , acLast

شكرا لك اخونا الكريم تمت اضافة لمسة عند الفتح لاخفاء اطار القاعدة وكذلك تعديل عند الاغلاق حيث كان البرنامج عند الاغلاق يبقى عالقا في الذاكرة ahmed.rar

if isnull([text1]) Or isnull([text2]) Or isnull([text3]) then MsgBox"لا يمكن ترك احد الحقول فارغا" DoCmd.CancelEvent Exit sub else ' يكتب هنا الآوامر End If

تأكد من وجود هذه المكتبة ضمن المراجع Microsoft Activex Data Objects Library

بحاجة الى زيادة في الشرح والايضاح

من المفترض يكون هناك نسخة احتياطية الرسالة تفيد ان مشروع vb معطوب وعلى حد علمي ومعرفتي يمكن استخراج الجداول والبيانات كما يمكن استخراج الكائنات الاخرى بلا اكواد ، فلا يمكن الاصلاح الا بحذف مشروع vb اعانك الله وعوضك

تمت التجربة على اكسس 2010 وعمل على اكمل وجه

شكرا على المعلومة

بقليل من البحث تجد بغيتك انظر هنا http://www.officena.net/ib/?showtopic=36736 وهنا http://www.officena.net/ib/index.php?showtopic=37846

اخي الكريم احرص على اختيار عنوان مناسب يصف موضوعك تم تعديل العنوان

الحمد لله ،،،

تفضل db2.rar

في المرفق ادناه يتم تصفية التقرير حسب النموذج وبالنسبة لما تريد في الصورة فهو موجود فعلا وكل ماعليك فعله هو زيادة المعايير حسب الرغبة tast6.rar

كنت ذكرت في اجابتي السابقة استخدام مربع السرد ولكن مربع السرد نستخدمه عند اختيار القيم من حقل واحد وهنا ستتم التصفية بناء على اكثر من حقل لذا وضعت لك في النموذج حقول بعدد الحقول في الاستعلام وجعلت خيارها ( أو) حيث ستلاحظ انها متدرجة ومعنى (أو) اي اجراء التصفية بأي معيار يكتب وصرف النظر عن الذي لا يكتب فيه شيء ، أما لو كانت على سطر واحد فحينها تجبر على الكتابة في جميع الحقول الا اذا استخدمنا Like انظر وجرب وحاول db1.rar

وعليكم السلام ورحمة الله وبركاته ومرحبا بك في منتدى اكسس مطلوبك ممكن ويسير بإذن الله وهو كالتالي : - سيكون فتح التقرير من خلال النموذج - نضع في النموذج مربع سرد يحتوي على الحقول المطلوب تصفية التقرير عند الاختيار - انشاء استعلام يكون هو مصدر بيانات التقرير وتكون الحقول في مربع السرد هي المعايير في الاستعلام فقط هذا كل شيء ان لم تتوصل الى الحل ارفق مثالك وليكن على صيغة mdb

ارفع نسخة من المرفق على صيغة mdb

الآن نرجع لمثالك الأول ونعدل فقط على حقول الارقام داخل الكود فقط انظر النتيجة آمل ان تعجبك tast5.rar

افتح البرنامج واصبعك على shift

تم التطبيق على حقلين رقمي ونصي ، فاكمل البقية كما في المثال جعلنا الحقل الرقمي مطابق اما النصي فيبحث في اي حرف ولا يفضل جعله مطابقا وحينها ستضطر الى كتابة الاسم الرباعي كاملا بلا اخطاء وهذا صعب على المستخدم ، ولو اردت ان يكون مطابقا فكل ما عليك عمله هو ان تزيل النجمتين الموجودتين داخل الكود فقط tast4.rar

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

ومن باب جمع المتشابهات : هذا كود رائع ابدعته انامل استاذنا عبدالله المجرب كإجابة لمسابقة مجلة اوفيسنا لشهر مايو 2014 Private Sub AR_KeyPress(KeyAscii As Integer) If KeyAscii >= 65 And KeyAscii <= 122 Then KeyAscii = 0 If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub EN_KeyPress(KeyAscii As Integer) If KeyAscii > 122 Then KeyAscii = 0 If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub Private Sub NUMB_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 46, 48 To 57 Case Else KeyAscii = 0 End Select End Sub Private Sub txtan_KeyPress(KeyAscii As Integer) If KeyAscii > 47 And KeyAscii < 58 Then KeyAscii = 0 End Sub

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

ارفق مثالا للتطبيق وليكن على الامتداد mdb

بادىء ذي بدء يطيب لي ان احيي استاذنا القدير اسامة حمدا لله على سلامتك ، جعلها الله سلامة دائمة عليك وعلى اهلك وذريتك وأحبابك والمسلمين عامة ومن طول الغيبات جاب الغنايم ثم الى الاخ السائل : الجواب من خلية B اختر تنسيق شرطي ثم من مربع التحرير اختر تساوي واكتب في المربع A]=1000] ثم اختر نوع التنسيق وهو هنا عدم التفعيل سيكون الحقل b حين تحقق الشرط باهتا