[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

أمسية طيّبة للجميع .. أرجو أن تكونوا كلّكم بتمام الصحّة و العافية إن شاء الله

إخواني الأكارم .. حاولت العديد من المرّات لكنّي لم أتوصّل إلى التّنسيق المناسب لتتم عمليّة الحذف بأحسن طريقة

كود الحذف يعمل بطريقة ممتازة ..

لكن لو الجدول فارغ تماما من البيانات و أضغط سهوا على زر الأمر " الحذف " ينتج على ذلك خطأ بالملف مثلما تشير الصّورة  أدناه ..

كيف لو سمحتم أضيف خاصّية الخروج من تنفيذ الكود و إلغاء الحذف لو الجدول فارغًا من السجلات

بارك الله فيكم و لكم و جزاكم خير الجزاء

تحياتي

[سعود الشامان]

وعليكم السلام ورحمة الله وبركاته

مثال بسيط لأمر الخروج من الكود بشرط

كود :

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)سعود الشامان كتب : اذا حضر الماء بطل التيمم



شكرا عالمعلومات أستاذ عبدالله

ما نستغني عنك أخوي سعود ، بارك الله فيك .

[سعود الشامان]

لإختصار الوقت

من قائمة المشروع اختر ملف >> تسجيل الدخول >> 

دخول Admin

اسم المستخدم: سعود الشامان
كلمة السر : 1411


http://www.mediafire.com/file/57g8x4m57s..._test2.zip

[عبدالله الدوسري]

(06-02-18, 07:54 PM)عبد العزيز البسكري كتب :

فقط أخي الكريم .. كيف يمكن إضافة الجزء الخاص لمّا يكون الجدول فارغًا ببداية الكود ..

إذا كان الجدول فارغا من البيانات .. يتم الخروج من الكود و عدم تنفيذ الحذف

و إذا كان الجدول به بيانات يتم تجاهل الجزء أعلاه و يتم الحذف بشكل عادي بالكود بالمرفقات بالملف بالمشاركة الأولى

شاكر مجهودك أخي القدير .. إلهي يجعل كل حرف ممّا كتبته بمليون حسنة و أكثر

تحياتي

مشاركاتي حلياً بالهاتف، ولا استطيع تحميل ملفات المشاريع بالهاتف.
نفس ردي السابق لا تغيير ، يمكن الفكرة ما وصلت، ان شاء الله الشباب ما يقصرون فيهم الخير والبركة.
وأعتذر منك أخوي عبدالعزيز، لبعدي عن جهاز الكمبيوتر حالياً.
تحياتي للجميع.