أبو سلمى

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

db1.rar

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

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

الاخوة الكرام / كل عام وانتم بخير بمناسبة عيد الاضحى المبارك أعاده الله على الجميع بالخير واليمن لي طلب برجاء كود أضعه على زر أمر في نموذج يعمل على تحديث بيانات هذا النموذج (بمعنى كأنني قمت بغلق النموذج وفتحه من جديد ) وجزاكم الله خيرا

استاذي الكريم ، وأعضاء المنتدى الكرام / السلام عليكم ورحمة الله هذا هو ما كنت أتمناه جزاكم الله خيرا ونفع الله بعلمكم المسلمين وزادكم علما

أخي الكريم / جزاكم الله خيرا على اهتماكم بطلبي ولكن برجاء التكرم بتحويل الملف الى تنسيق 2003 بدلا من 2007 حيث انني لا أعمل على 2007 وهو غير متوفر على جهازي ومرة ثانية جزاكم الله خيرا

استاذي الكريم / رمهان اشكركم على اهتمامكم بطلبي ولكن هل يمكنكم مساعدتي في وضع هذا الكود وجزاكم الله خيرا

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

الاخوه الكرام / جزاكم الله خيرا على ما تقدمونه من معلومات للمبتدئين في الاكسس ولي عندكم طلب برجاء المساعدة لتعديل هذا الكود If IsNull(Me.Text1) Then If MsgBox("عفواً هل تريد ترك هذا الحقل1 فارغا؟ ", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then Me.Text1.SetFocus Else If IsNull(Me.Text2) Then If MsgBox("عفواً هل تريد الحقل2 فارغا ؟", vbExclamation + vbMsgBoxRight + vbYesNo, "تنبيه") = vbNo Then Me. Text2.SetFocus End If End If DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 DoCmd.GoToRecord , , acNext هذا الكود عند تنفيذه يعطي رسالة لا / نعم بالضغط على (نعم) ينتقل لتنفيذ الكود الثاني ويسأل هل تريد الحقل2 فارغا وبالضغط على نعم ينتقل إلى السجل التالي مباشرة . أما عند الضغط على (لا) فإنه يترك الحقل1 فارغا وينتقل إلى السجل التالي مباشرة المطلوب : بالضغط على نعم يقوم بنفس العمل ، ولكن عند الضغط على لا المطلوب ينتقل الى الحقل1 ولا ينتقل الى السجل التالي فهل يمكن فعل هذا وجزاكم الله خيرا

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

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

اخي الكريم / اذا أردت أن اجعل عملية تسجيل بيانات في الحقل غير الزامية بمعنى يعطي رسالة لمستخدم البرنامج فقط بأن هذا الحقل فارغ وله أن يختار موافق فيستكمل بيانات السجل ويعمل حفظ له أو أن يختار بأن يسجل بيانات في هذا الحقل فما هو الكود جزاكم الله خيرا

اخي الكريم / للمرة الثانية احتجت لكود يجعل ادخال البيانات في حقل النموذج اختياري فهل يمكن فعل ذلك وجزاكم الله خيرا

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

الاخوه الكرام / أعضاء المنتدى الكريم جزاكم الله خيرا على معلوماتكم القيمة فقد استفدت كثيرا من هذا المنتدى الكريم زادكم الله علما لدي نموذج قمت بمساعدة احد الاخوه بعمل كود لاعطاء اشاره لمستخدم القاعدة بعدم ترك هذا الحقل فارغ If IsNull(Me.fieldname) Then MsgBox "عفواً اخنر من قائمة ", vbCritical, "تحذير" Me.fieldnam.SetFocus Cancel = True ولكن هذا الكود يلزم المستخدم بادخال بيانات المطلوب وهو تنبيه المستخدم بأنه ترك الحقل الفارغ وله حرية ادخال بيانات او تركه فارغ فهل ممكن تعديل هذا الكود افادكم الله

جزاكم الله خيرا وزادكم علما ونفع بكم المسلمين

أخي واستاذي الكريم / Rudwan جزاكم الله على اهتمامكم بموضوعي ولكن لم أفلح في تحقيق طلبي فقد أكون لم أفهم قصدك بالضبط فلو أمكن توضح لي أكثر أنا قمت بعمل وحدة نمطية كما فعلت ثم في النموذج الذي اريد غلقه وليكن 1 قمت في حدث غلق بوضع الكود الثاني (مع تغيير اسم النموذج frmBasic الى نموذج1) If fIsLoaded("frmBasic") = True Then DoCmd.Close acForm, "frmBasic" End if وفي النموذج الرئيسي في حدث عند التحميل وضعت الكود الثالث هذا ما فهمته برجاء الايضاح أكثر ولكم الشكر

اين المساعدة الاخوه الكرام

للأسف الملف أكسس 2007 وسوف أقوم بمشاهدته عند تحميل أوفيس 2007

أخي وأستاذي الكريم / أسير الشوق سلام الله عليكم ورحمته جزاكم الله خيرا على اهتمامكم بموضوعي وجاري تحميل المرفقات والعمل عليها وجعل الله ذالكم في ميزان حسناتكم

الاخوه الكرام / أعزكم الله برجاء المساعدة في عمل كود أو وحدة نمطية يقوم بعمل الاتي : اذا كان النموذج 1 (الرئيسي ) مفتوح قم بغلقه (وهو النموذج الاساسي بالتالي سيتم غلق البرنامج كاملا ) والا قم بفتح النموذج1 (الرئيسي) قم بغلق النموذج 2 وغلق النموذج 3 وجزاكم الله خيرا

لو لوضعت مثالا من عندكم أكون مشكور جدا وجزاكم الله خيرا

كذلك لو استخدمت القاعدة على أكسس 2007 أو غير ذلك المشكلة ستكون موجودة أيضا

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