اخواني الأعضاء جزاكم الله خيرا ارجو مساعدتي في كيفية عمل رسالة لفتح نموذج بحث بحيث إذا لالم يوجد بيانات في نموذج البحث يعطى رسالة أنه لاتوجد بيانات علما أنها نجحت معي في التقارير عنما عدلت في خيار عند عدم وجود بيانات في خصائص التقرير ولكن لم استطع التعامل فيها مع النموذج .ارجو المساعدة اثابكم الله
كيف يمكنني اضافة رسالة بيان غير موجود غير موجود؟؟؟
مغلق
الأخ الهيثم
هل نموذج البحث هذا تفتحه من نموذج آخر أم أنك تطبق البحث من نفس هذا النموذج وتريد ظهور رسالة أنه لايوجد سجلات وماهي طريقة البحث عندك .
ولك تحياتي
احي ابو حمود لم اتوقع ردك بهذه السرعة اثابك الله وإن شاء الله تكون دائما من السباقين للخيرات .
بالنسبة للبحث يكون عن طريق نموذج اخر يوجد فيه امر لفتح نموذج اخر مبني على استعلام بحيث اذا كان اللبيان موجود يعرضه في هذا النموذج واذا لم يكن موجود يعطي رسالة بأن ماتبحث عنه غير موجود لأنه يظهر عندي عند البحث عن بيان غير موجود النموذج ولكن فارغ . ارجو أن يكون ذلك واضحا
في حدث عند الفتح للنموذج الذي تظهر فيه نتيجة البحث اكتب :
If Me.RecordsetClone.RecordCount = 0 Then Cancel = -1
أما إذا رغبت في ظهور رسال فاكتب :
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "لا يوجد بيانات"
Cancel = -1
End If
ولك تحياتي
الأخ أبو حمود
أنت أكثر من رائع تصدق انني محتاجة ولكن لم اعرف إلا بعد مشاهدته و تطبيقة في نماذج قاعدتي
وكان رائع جداً وفعال شكرا على هذا الجهد أخي الكريم
الأخ ابو حمود : الف 1000 الف شكر وممنون وكثر الله من أمثالك وجعل ذلك في ميزان حسناتك هذا ماردت بالفعل .
الأخ ابو حمود
هل يوجد حل للمشكلة التالية
الكود اعلاة يعمل على عدم فتح النموذج في حالة عدم وجود بيانات
ولكن عند الرغبة في إضافة بيانات على النموذج والتابعة للنوذج الرئيس بالتالي لن تفتح
فهل يوجد حل
الأخوة الأعزاء
جربت الكود وفعلا ظهرت رسالة عدم وجود بيانات ولكن بالضغط على موافق تظهر رسالة وهي تم إلغاء الإجراء OPEN FORM فهل تظهر عندكم أيضا .
أشرف خليل
نعم تظهر هذه الرسالة ولكن اعتقد انها ليست مشكلة بقدر مشكلة عدم قتح النموذج نهائياً و بالتالي عدم ادخال بيانات على النموذج الفارغ
يمن التغلب عليها بوضع زرين أحدهم للاستعلام فاذا لا توحد بيانات ظهرت الرسالة و بالتالي لا يمكن الدخول
و زر أخر يفتح النموذج عايدي
هذا حل على قدر معلوماتي و لكن إن شاء الله لدى ابو حمود الاجابه
الأخ طلال
هذه العبارة "ولكن عند الرغبة في إضافة بيانات على النموذج والتابعة للنوذج الرئيس بالتالي لن تفتح " لم توضحها جيدا فسؤال الأخ الهيثم أن النموذج كان مخصص للبحث .
عموما هناك أكثر من حل -حسب مافهمته- ولكن ينبغي معرفة هل نموذج البحث يفتح بناء على بيانات أو اختيارات محددة موجودة على النموذج الذي تفتح نموذج البحث منه فعندها يجب وضع عبارتين SQL لمصدر نموذج البحث واحدة خاصة بالبحث والثانية للعرض العادي .
الأخوة
بالنسبة لرسالة تم إلغاء الإجراء فضع قبل أمر فتح النموذج السطر التالي :
On Error Resume Next
وللجميع التحية
انا الي قصدته يا ابو حمود التالي
لدي نموذج اساسي يحمل بيانات الموظفين مثلاً ونموذج أخر يحمل الدورات التدريبية للموظف الذي يظهر في النموذج الأساسي
بمعنلى عند فتح النموذج الاساسي الخاص ببيانات الموظفين يوجد زر أمر فتح نموذج الدورات ويفتح فقط الدورات الخاصة بالموظف نفسة و لا يعطي معلومات الدورات التدريبية للجميع
وضعت الكود الذي عملته وفعلا عند طلب فتح نموذج الدورات للموظف الذي ليس لديه دورات يعطي رسالة عدم وجود بيانات
ولكن عندم اريد ان ادخل بيانات الدورات للموظف الذي لم يسبق له أخذ دورات لا يفتح النموذج
لهذا لو كانت الرسالة تفيد بعدم وجود بيانات
ثم رسالة أخرى أو في نفس الرسالة بنعم أو لا عن رغبة فتح نموذج الدورات على كل حال قد يحل المشكلة لدي
الأخ العزيز أبو حمود
بارك الله فيك .
أشرف خليل
الأخ طلال
ضع في حدث عند الفتح لنموذج الدورات الكود التالي :
If Me.RecordsetClone.RecordCount = 0 Then
If MsgBox("هذا الموظف لا يوجد له دورات ." & vbCrLf _
& "هل ترغب في فتح سجل جديد لتسجيل البيانات له ؟", vbQuestion + vbYesNo _
+ vbMsgBoxRight + vbMsgBoxRtlReading, "لا يوجد دورات") = vbYes Then
DoCmd.GoToRecord , , acNewRec
Exit Sub
End If
Cancel = -1
End If
لاتنسى وضع العبارة :
On Error Resume Next
قبل أمر فتح النموذج
جرب وأخبرني بالنتيجة .
ولك تحياتي
نعم يا ابو حمود الكود عال العال وقد جربته وممتاز و أدى الغرض وجزاك الله خير
هذا الموضوع مغلق.