VB 6.0 MS-Access 2003 - Make Sure Before You Delete
بسم الله الرحمن الرحيم فى اى مشروع متعلق بقاعدة البيانات من نوع اكسس على وجه الخصوص أو من اى نوع على وجه العموم , يجب ان تتأكد قبل عملية حذف سجل ان : 1) السجل المراد حذفه موجود بالفعل و يتم ذلك عن طريق البحث عن السجل فاذا كانت نتيجة البحث ايجابية : يتم الحذف اما اذا كانت سلبية فلا يتم الحذف 2) جدول قاعدة البيانات غير فارغ و يتم ذلك عن طريق RecordCount اذا كانت = صفر بالتالى الجدول فارغ فلا يتم حذف 3) مؤشر قاعدة البيانات يقف على السجل المطلوب حذفه و يتم ذلك عن طريق AbsolutePosition اذا كانت القيمة -1 فان هذا معناه ان الجدول فارغ والمؤشر لا يقف على أى شىء فى الجدول او ان هناك مشكلة فى محرك قاعدة البيانات اما اذا كانت القيمة -2 فان هذا معناه ان المؤشر يقف قبل بداية اول سجل فى الجدول انا اذا كانت القيمة -3 فان هذا معناه ان المؤشر يقف بعد نهاية اخر سجل بالجدول , و جميع هذه الحالات لا يتم فيها الحذف. و ذلك حتى لا يقابل العميل الذى صممت من أجله البرنامج أى مشاكل عند اجراء عملية الحذف و ايضا حتى يكون البرنامج الذى تصممه لا وجد به اى عيوب (Bugs) . Visual Basic 6...