بســم الله الـرحمــن الرحيــم
بعد الشكر والترحيب والسلام
أود أن أطرح هده المسألة وهي عدم فتح نمودج إدا كان سيقتح بدون بيانات وقد ارفقت مثال أود من الأخوة حل المسألة
والسلام
كيفية تعطيل فتح نمودج بدون بيانات
اخي العزيز الفكرة التي لدي على السريع
1-عمل دالة Dcount لعد السجلات في مصدر النموذج المراد فتحه
2-السؤال عن القيمة ب IF اذا كانت صفر فيلغي تحميل النموذج..
اذا كانت المسالة مرتبطة بشرط او عامل تصفية ياتي من النموذج الاول فالمسالة ستختلف شيئا بسيطا..
تحديث.. الكود يعمل تماما.. تفضل
في الزر الاول وتحت تعريف اسم النموذج stDocName اكتب..
x = DCount("*", "[Inventory]")
If x = 0 Then
MsgBox "no data found"
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Ifفي الزر الثاني "شرط" وايضا تحت تعريف اسم النموذج stDocName...ولكن هذه المرة بعد تعريف المعيار stLinkCriteria
x = DCount("*", "[Inventory]", stLinkCriteria)
If x = 0 Then
MsgBox "no data found"
Else
DoCmd.OpenForm stDocName, , , stLinkCriteria
End Ifانا شخصيا الحمد لله جربت الكود وعمل تماما.. لكن لوجود مشكلة لدي بالاكسس اخشى ان تنتقل الى جهازك..
تحياتي..
همام
تم تعديل هذه المشاركة بواسطة همام ابوعرقوب في 23 يوليو 2009 في 20:29
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
السلام عليكــم ورحمـة الله وبركاتــه ،،
كيف حالك إن شاء الله دائمــاً بخير ؟
مشكور يا أخي همام على الكود وقد جربته على الملف المرفق وقد عمل بنجاح
ولكن عندما حاولت تجرته على ملف آخر وهو المهم لم تنجح العملية ولم أعرف السبب في ذلك فأرجو أن تكمل معروفك وتجرب الكود السابق على الملف المرفق الثاني وقد أوضحت المطلوب في المرفق ولكم جزيل الشكر والعرفان ودمتم بصحة
عزيزي,. المثال المرفق الان مرتبط مع قاعدة بيانات ف يجهازك، اود حتى استطيع مساعدتك ان تضعها هنا.. ان امكن.. او على الاقل تعطيني ماهية او طبيعة رسائل الخطأ التي تتلقاها بعد تشغيل الكو وتحديدا على اي نموذج، لان مشاكل الاكسس لدي تمنعني بصراحة من العمل عليه كاملا..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
بســم الله الـرحمــن الرحيــم
السلام عليكــم ورحمـة الله وبركاتــه ،،
كيف حالك إن شاء الله دائمــاً بخير ؟
نعتذر يا أخي همام على كون الملف السابق لميعمل بسبب ارتباطه بغيره ولكن أرجو أن تجد الملف المرفق الآتي صالحاً للعمل كما أوضحت سابقاً ولكم مني جزيل الشكر والعرفان
الملف المرفق أرفقت به الجداول فقط فادرجها مع الملف السابق بعد حف الجداول منه
ومشكورين جداً جداً وجعل ما تقوم به في ميزان حسناتك يوم تخف الموازين ....
اخي جرب هذا الكود في حدث الفتح للنموذج و ان شاء الله يزبط معك
Private Sub Form_Open(Cancel As Integer)
Dim x As Integer
x = Me.Recordset.RecordCount
If x = 0 Then
MsgBox "no data"
DoCmd.Close
End If
End Sub
بالنسبى لي استخدمه و يزبط معي و لا يؤثر سواء كانت البيانات مباشرة ام مفلترة
اتمنى انه يزبط معك
تم تعديل هذه المشاركة بواسطة tbazh في 27 يوليو 2009 في 21:54
اضافة اخري تعطيك خيار الاستمرار بفتح الفورم بدون بيانات او التراجع عن فتح الفورم
Private Sub Form_Open(Cancel As Integer)
Dim x As Integer
x = Me.Recordset.RecordCount
If x = 0 Then
If (MsgBox("no data, Proceed with opining the form ? ", vbYesNo) = vbNo) Then DoCmd.Close
End If
End Sub
اتمنى لك التوفيق
سلام
تم تعديل هذه المشاركة بواسطة tbazh في 27 يوليو 2009 في 21:54
السلام عليكم ورحمة الله
يا أخي tbazh الكود لم يعمل عندي في الملف المرفق السابق وأشكرك على ذلك .
مازال الاستفسارمطروحاً ومحتاجاً للحل يا اخوتي ليس الأمر بالصعب ولا بالمستحيل ...
يا أخي همام أبوعرقوب كما اسلفت في الرد السابق أن ما تحتاجه فقد أرفقته في الملف السابق فقد أرفقت الجداول وبقية عناصر قاعدة البيانات موجودة بالملف المرفق الأول ولكم جزيل الشكر
عذرا على التاخير.. انزلت نسخة 2007 اوفيس لاحل المشكلة والحمد لله ولكن المرفق لا يحتوي اية تقارير.. هذا اولا ..
ثانيا.. هل تريد تطبيقها على جميع التقارير دون استثتاء.. ام على تقرير محدد، حدد النموذج والتقرير رجاء حتى نتمكن من المساعدة،، اما لكل التقارير فهذه صعبة نوعا ما والله ليس لشي لكن الاكسس عندي به مشاكل جمة والنسخة الجديدة تجريبية..حاول اخي الكريم ان تنسخ الكود المطلوب وتغير اسماء التقارير والنماذج وعناصر التحكم المطلوبة..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
والله يا اخ عزيز مم / دوختني معك
كلو ما زبط ما زبط ما زبط
يا اخي الكريم انا نزلت برنامجك نفسه ، و عملت لك التعديل عليه و كلو زبط تمام التمام
هذا التعديل اذا مش هم المطلوب بالزيط هيكون قريب جدا جدا جدا ، واذا لديك خبرة بالبرمجة ولو بسيطة تستطيع الاستفادة منه
افتح فورم1 و اكتب اي اسم ثم اضغط على الزر .. اذا كان العميل موجود ضمن جدول العملاء سيفتح نموذج العملاء على نفس العميل ، و اذا لم يكن موجودا ستظهر رسالة تخبرك بان العميل غير موجود و تسالك اذا ما تريد فتح النموذج على اية حال ؟؟؟
ارجو ان اكون قد وفقت في خدمتك !!!!!!!!!!!
ملاحظة مهمة : اذا لم يعمل عندك ايضا ؟ لربما تكون عندك مشكلة بالاكسس نفسه ، ممكن تحذف الاوفس 2003 من لوحة التحكم - اضافة و ازالة البرامج ، ثم تعيد تثبيته من جديد ، او لربما تكون عندك ملفات ناقصة او مضروبة فى الوندوز نفسه
ارجو ان تعطيني شو حصل معك ؟؟؟
بســم الله الـرحمــن الرحيــم
كيف حالك إن شاء الله دائمــاً بخير ؟
يا أخي همام لقد أرفقت لك البرنامج كاملا وأوحضت لك المطلوب على نموذج لوحة التحكم الرئيسية للبرنامج وفيه كافة التوضيحات فأرجو أن تكون واضحةً ومشكور على اهتمامك بالموضوع
ونستميحك عذرا وكافة الاخوة بالمنتدى
يا اخ Azizmm
اسعد الله صباحك بكل خير
لقد تركت لك مشاركة على ملفك الاول في هذا الرابط ، و يشهد الله انى اشتغلت لك فيها خصيصا ما يزيد عن نصف ساعة ،
و طلبت منك ان تجرب الطريقة و لكنك يبدو لم تلاحظ المشاركة ،عموما المشاركة على هذا الرابط المشاركة الاخيرة فى الصفحة باسم العضو tbazh
ارجو ان ترجع للمشاركة و ترد علي ...
ام انك تريد ان تكون المساعدة فقط من استاذنا الكبير / الاخ المشرف همام ابو عرقوب ؟؟؟؟
اذا كان الامر كذلك فانا اسحب كل كلامي ...
خالص شكري و اعتذاري للجميع .. سلام
ملاحظة : ساحاول لك في الملف المرسل في مشاركتك الاخيرة ، و ان وفقت في حل سارسله لك فى الحال.
اخي tbazh اشكرك على ذوقك وجهودك الطيبة، ولعل الاخ Azizmm لا يدرك انه يخالف قواعد المشاركة ياقتصار توجيه السؤال لمشرف او عضو بالاسم..
انتظر منه اخي الكريم الرد.. وانا كذلك قمت بالرد على مشاركته بما يحتاج لفعله والله اعلم..
تحياتي
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
الاخ Azizmm
لقد قمت بالعمل على ملفك الاخير ولقد وجدت فيه بعض الاخطاء التي عدلتها مثل خانة رقم الفاتورة فى نموذج الدفعات و تحضر ارقام الفواتير من الفواتير الغير مخلصة و فائدة هذا التعديل هو / بدونة ستبقى الفاتورة غير مخلصة حتى لو دفع الزبون باقي حسابها
- ازلت الحقل الاخير فى الجدول (salesmain) لانه حقل محسوب /لا يجب تخزين حقل يمكن حسابه من الحقول الاخرى مثل حقل المتبقي لانه ناتج من المبلغ-المدفوع
- عملت استعلام يجمع الدفعات الخاصة بكل فاتورة ( ربما تكون اكثر من دفعة )
- عملت استعلام اخر يحسب اجمالى الفاتورة على اساس مجموعها - الخصومات - الدفعة الفورية - مجموع الدفعات اللاحقة لنفس الفاتورة
- عملت نموذج للفواتير الغير خالصة يحتوي رقم الفاتورة - اسم العميل - اجمالى الفاتورة - اجمالى الخصم - الدفعة الفورية - مجموع الدفعات اللاحقة - المتبقي // بحيث تظهر فقط الفواتير الغير جاهزة
-عملت نموذج تجريبي و زبط معي لعرض الفواتير التى عليها ديون و لا يفتح اذا لم تكن هناك بيانات لكن هناك مشكلة تحتاج لبعض الوقت وهي كالتالي
*** اذا جعلنا النموذج (نموذج للفحص) منبثق / يفتح النموذج ( QbillResult) وهو نموذج الفواتير الغير خالصة حتى لو لم تكن فيه بيانات
*** اذا ازلنا الخاصية منبثق / يكون الوضع طبيعي
ولا اعرف ما السبب ؟؟؟
ان اخطأت فمن نفسي / و ان اصبت فمن الله ...
السلام عليكم ورحمة الله
نعتذر يا أخوة على التأخير في الرد حيث كنت مشغولاً وخصوصاً أخي bazh وكل أعضاء المنتدى فيا أخي لقد جربت ما فعلت وخاصة في الرد الثاني لك يا Tbazh ولكنه ناقصا والكمال لله وحده فأرجو منك العذر ...
ما أطلبه من اخواني أن لا يفتح النموذج بدون بيانات فأما ما كان بدون شرط فهذا أمره سهل وميسر ومعروف أما ما كان فيه شرط وتصفية فهذا ما أربكني وحيرني وما زلت غير قادر على التعامل معه وقد حاول أخي Tbazh وما أريده الآ يحدث تغيير في النموذج قد المستطاع ...
مشكورين على الجهد يا أخوتي ونعتذر مرة أخرى على ما بدر مني وجلّ من لا يخطيء والكمال لله وحده.
بسم الله الرحمن الرحيم والسلام عليكم ورحمة الله وكل عام وأنتم بخير بمناسبة حلول شهر رمضان شهر الخيرات...
لقد طرحت مسألة وما زلت أنتظر الرد من الأخوة الزملاء كافة ويبدو أن البعض من الزملاء قد أخد على خاطره مني فأرجو السماح منهم وخاصة بحلول شهر رمضان الكريم .
لا داي للزعل يا أخوه أرجو منكم الرد على مسألتي التي طرحتها منذ فترة ليست بالطويلة والسلام عليكم ورحمة الله....
حسب معلوماتي البسيطة يمكن عمل ذالك من خلال خصائص النموذج و إختر للقراءة فعندما تفتح النموذج وليس في الجداول التابع لها بيانات يفتح على شكل ورقة فارغة ليس فيها أي عنصر من عناصر النموذج و عند إدراج البيانات في الجدول التابع لها يظهر لك النوذج مفتوح بشكل عادي و الله أعلم.
بالتوفيق
الناجح يبحث عن الحلول و الفاشل يبحث عن الأعذار