السّلام عليكم و رحمة الله و بركاته
أمسية طيّبة للجميع .. أرجو أن تكونوا كلّكم بتمام الصحّة و العافية إن شاء الله
إخواني الأكارم .. حاولت العديد من المرّات لكنّي لم أتوصّل إلى التّنسيق المناسب لتتم عمليّة الحذف بأحسن طريقة
كود الحذف يعمل بطريقة ممتازة ..
لكن لو الجدول فارغ تماما من البيانات و أضغط سهوا على زر الأمر " الحذف " ينتج على ذلك خطأ بالملف مثلما تشير الصّورة أدناه ..
كيف لو سمحتم أضيف خاصّية الخروج من تنفيذ الكود و إلغاء الحذف لو الجدول فارغًا من السجلات
بارك الله فيكم و لكم و جزاكم خير الجزاء
تحياتي
وعليكم السلام ورحمة الله وبركاته
مثال بسيط لأمر الخروج من الكود بشرط
كود :
If Me.Text = "Form1" Then
MsgBox("عبدالعزيز البسكري")
Return
MsgBox("1 2 3 4 5 6 7 8 9")
End If
(06-02-18, 05:26 PM)سعود الشامان كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته
مثال بسيط لأمر الخروج من الكود بشرط
كود :
If Me.Text = "Form1" Then
MsgBox("عبدالعزيز البسكري")
Return
MsgBox("1 2 3 4 5 6 7 8 9")
End If
السّلام عليكم و رحمة الله و بركاته
بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم " سعود " على المساعدة
لكن هنا أمر الحذف لا يتم .. بمعنى لا يتم الانتقال للجزء الخاص بالحذف إذا كان الجدول موجود فعلا به بيانات
كل الشكر و الاحترام
وعليكم السلام ورحمة الله وبركاته
InfoManager.Current
هو السجل الحالي الذي يؤشر علية ال bindingsource
اسأل اذا لم يكن هذا السجل Nothing
عندها نفذ إزالة السجل
كود :
if InfoManager.Current Isnot Nothing Then
نفذ الحذف هنا
End If
ومن باب أولى ان تعطل الزر إذا لم يكن هناك أي سجل في الأصل
هناك حدث خاص بال bindingsource
اسمه :
CurrentItemChanged
يتم تنفيذ هذا الحدث إذا تم تغيير مكان المؤشر بشكل تلقائي ، ويحدث عندما يتم افراغ الداتا قريد فيو ايضاً لأن المؤشر أصبح غير موجود لعدم وجود سجلات. ويحدث عند التنقل بين السجلات.
هنا انت تستفيد من هذا الحدث للتحكم بواجهة المستخدم. مثلا زر الحذف يتم تعطيلة لعدم وجود سجلات في الأصل وكذلك زر التحرير لنفس السبب.
مثلا بعض السجلات تحتوي على وثيقة وليس كل السجلات . وقمت بتصميم زر لعرض هذة الوثيقة. فمن باب أولى ان اسأل السجل هل يحتوي على وثيقة أم لا، وبالتالي افعل زر عرض الوثيقة أو أقوم بتعطيلة، وهكذا دواليك مع أي زر يتعامل مع السجل.
كود :
Private Sub InfoManager_CurrentItemChanged(sender as Object, e as EventArgs) Handles InfoManager.CurrentItemChanged
if InfoManager.Current Isnot Nothing Then
فعل الزر هنا
Else
عطل الزر هنا
End If
End Sub
ودائماً وأبداً ( نصيحة )
استخدم :
كود :
Try
Catch ex As Exception
End Try
( خصوصاً ) عندما تتعامل مع حالات غير متوقعة ، أو لا يمكن التنبؤ بالنتيجة .
وهي تنفع ايضاً للهروب من الأخطاء .
أتمنى الفكرة تكون بسيطة.
وبارك بكك أخي الغالي
شاهد هذا الفيديو بخصوص الحذف من قاعدة البيانات
https://youtu.be/zlJkXjPsKtg
وجاري تحميل المشروع مع اني لفترة قواعد البيانات إن شاء الله نوصل معك للحل
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الفاضل " عبد الله الدّوسري " على الشّرح الرّائع و النّصائح المفيدة .. روعة شخصك الكريم
بارك الله فيك و أحسن إليك و زادك من علمه و فضله إن شاء الله
فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..
إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف
و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى
شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر
تحياتي
السّلام عليكم و رحمة الله و بركاته
تسلم أخي الفاضل " سعود الشامان " ربّنا يبارك فيك و لك و يديم عليك بخيراته و طيّباته و يرزقك خيرات الداريْن إن شاء الله
المشكلة أخي الغالي ليست في عمليّة الحذف بحد ذاته مثلما ذكرت ..
الاشكاليّة عندما يكون الحقل فارغًا ..
ال IF DB NULL .. لم أعرف كيف أو ظفها من غير الخروج من تنسيق كود الحذف بالمرفقات
كل الاحترام و الشكر و التقدير
اذا حضر الماء بطل التيمم
شكرا عالمعلومات أستاذ عبدالله
شكرا على الدعوه اخوي عبدالعزيز عسى الله يوفقككك ويحقق مطلبك
والمشروع عندي فيه اشكالية لا تتم القراءة من القاعدة ولا يظهر خطا
لكن استخدمت الحذف في عدة مشاريع ويحذف حتى لو كان فارغ
بشوف لك مشروع سابق استخدمت فيه خيار الحذف
وان شاء الله تجد به مطلبك والاستاذ عبدالله ما يقصر ولا يهونو اخواننا الغاليين
(06-02-18, 08:00 PM)سعود الشامان كتب : [ -> ]اذا حضر الماء بطل التيمم
شكرا عالمعلومات أستاذ عبدالله
ما نستغني عنك أخوي سعود ، بارك الله فيك .
(06-02-18, 07:54 PM)عبد العزيز البسكري كتب : [ -> ]فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..
إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف
و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى
شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر
تحياتي
مشاركاتي حلياً بالهاتف، ولا استطيع تحميل ملفات المشاريع بالهاتف.
نفس ردي السابق لا تغيير ، يمكن الفكرة ما وصلت، ان شاء الله الشباب ما يقصرون فيهم الخير والبركة.
وأعتذر منك أخوي عبدالعزيز، لبعدي عن جهاز الكمبيوتر حالياً.
تحياتي للجميع.
