اخواني في هذا المنتدى الكريم
يرجى التكرم بمساعدتي في تصحيح الكود
جزاكم الله عنا كل خير
رسالة تاكيد الحذف بعد اظهار بيانات السجل المراد حذفه
"قال رب اشرح لي صدري *ويسر لي امري*واحلل عقدة من لساني يفقهوا قولي" سورة طه
اللهم صل على سيدنا محمد وعلى آل سيدنا محمد
اكرم عبد الحكيم كتب:
اشكرك جزيل الشكر اخي اكرم عبد الحكيم على سرعة الاستجابة
اتمنى ان تصبر علي وعلى امثالي
بالنسبة للرسالة ظهرت فقط موافق/ الا توجد طريقة لاظهارها نعم او لا / او موافق غير موافق
ظهور بيانات السجل كاملة في الرسالة
ولا ادري ماسبب لم يتم الحذف عند تحقق الشرط
وجزاكم الله عنا كل خير
ابوشفيق كتب:تفضل اخي
بعد تعديل بسيط على مثال اخ اكرم
اشكرك اخي ابو شفيق على اهتمامك
.لكن عند الضغط على زر حذف ولا يوجد قيمة في مربع الترقيم يظهر سالة خطا.
وحاولت احضار بيانات السجل كاملة ايضا لكنها لم تنجح العملية وكأن احضار بيانات النص تختلف عن الرقم
و ممكن الشرح مامعى هذا الكود الذي قمت بوضعه للحذف
DoCmd.SetWarnings False
DoCmd.OpenQuery stDocName, acNormal, acEdit
DoCmd.SetWarnings False
MsgBox "تم حذف سجل بنجاح"
aa = ""وجزاكم الله عنا كل خير
السلام عليكم ورحمة الله وبركاته
اقتباسلكن عند الضغط على زر حذف ولا يوجد قيمة في مربع الترقيم يظهر سالة خطا
اخي ابراهيم: تم تعديل ملف
اقتباسو ممكن الشرح مامعى هذا الكود الذي قمت بوضعه للحذف
هذا لايقاف رسائل تأكد نظام بسبب وجود رسالة بديلة
Docmd.Setwarnings false
هذا لاعادة تشغيله مرة اخرى بعد تنفيذ اجراء وذالك لمنع تشغيل استعلامات اجرائية غير ارادي
Docmdsetwarnings True
ولكن هنا خطاء غير ارادي حين نسخ ولصق و بالكل اسف ان سطرين كلاهما متشابهين، يجب سطر بعد اجراء ينتهي بـ true
وتم تعديله في ملف الجديد.
تم تعديل هذه المشاركة بواسطة ابوشفيق في 10 يونيو 2012 في 11:29
ابوشفيق كتب:السلام عليكم ورحمة الله وبركاته
اخي ابراهيم: تم تعديل ملف
هذا لايقاف رسائل تأكد نظام بسبب وجود رسالة بديلة
Docmd.Setwarnings falseهذا لاعادة تشغيله مرة اخرى بعد تنفيذ اجراء وذالك لمنع تشغيل استعلامات اجرائية غير ارادي
Docmdsetwarnings Trueولكن هنا خطاء غير ارادي حين نسخ ولصق و بالكل اسف ان سطرين كلاهما متشابهين، يجب سطر بعد اجراء ينتهي بـ true
وتم تعديله في ملف الجديد.
اشكرك اخي ابو شفيق على الاهتمام
ولكن بقي لي سؤال
وحاولت احضار بيانات السجل كاملة في راسالة تأكيد الحذف لكنها لم تنجح العملية وكأن احضار بيانات النص تختلف عن الرقم
وجزاكم الله عنا كل خير ووضعها في ميزان حسناتكم
ابوشفيق كتب:اخي العزيز اليك كل بيانات سجل في رسالة قبل الحذف
بالتوفيق،،،،
اشكراك اخ ابو شفيق على مساعدتي ووضعها في ميزان حسناتك
اخواني الاعزاء
لقد تم احضار البيانات كاملة من جدول Post
لكن يوجد حقل مرتبط بجدول Branch
كيف استطيع احضار اسم الفرع وليس رمز الفرع
شاكر تعاونكم جميعا
المرفقات
تم تعديل هذه المشاركة بواسطة ebraheem-w في 13 يونيو 2012 في 21:12
تفضل اخي ،على رغم عدم وجود علاقة بين جداول في مثال مرفوع
عدلت لك المثال بالطريقة اخرى
اشكرك اخي ابوشفيق جزيل الشكر على صبرك على امثالي
وجزاكم الله عنا كل خير ووضعها في ميزان حسناتك