الدرس السابع عشر - قائمة (مسح) - نسخة قابلة للطباعة

وسنقوم بعمل ذلك عبر اجراء مشترك .

وقبل بدء كل عملية لابد من اظهار رسالتي تحذير لهذه العملية - على الأقل - حيث أنها تمسح كماً كبيراً من البيانات .
والرسالتان موحدة لجميع العمليات ، وستكون بالشكل التالي :

كود :

Dim sure

sure = MsgBox("هل تريد بالتأكيد اتمام عملية الحذف هذه ؟", vbYesNo + vbExclamation + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

sure = MsgBox("إذا قمت بالمتابعة فلن يمكنك التراجع ، هل ما زلت تريد الاستمرار ؟", vbExclamation + vbYesNo + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

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

كود :

Sub DEL(ByRef Table As Recordset, ByVal msg As String)

هذا يعني أننا في الاجراء سوف نستقبل Table من نوع RecordSet ( يمكن أن يكون T1 أو T2 ... ) اضافة إلى msg وهو نص رسالة التحذير التي ستظهر .
ومعنى ByRef أن التغيير الذي سيحدث في Table خلال الاجراء سوف يتم تطبيقه على الجدول الذي أرسلنها ، أما ByVal فمعنى ذلك أن التغيير لن ينعكس على الأصل .

وسيكون هذا الاجراء بالشكل التالي :

كود :

Sub DEL(ByRef Table As Recordset, ByVal msg As String)

If Table.RecordCount = 0 Then

MsgBox "لا توجد أي بيانات لحذفها", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

Dim sure

sure = MsgBox(msg, vbYesNo + vbExclamation + arabic, "تأكيد عملية الحذف")

If sure = vbNo Then Exit Sub

Table.MoveFirst

For i = 0 To Table.RecordCount - 1

Table.Delete

Table.MoveNext

Next i

MsgBox "تمت عملية الحذف بنجاح", vbInformation + arabic, "اتمام عملية الحذف"

End Sub

أما الجزء الثاني وهو حذف المبيعات والمشتريات ، فعلى نفس الطريقة يمكننا عمل اجراء واحد لهم ، ولكنه يختلف في قيمة 0 أو 1 والتي ترمز للبيع أو للشراء . لاحظ الكود التالي :

كود :

Sub DEL2(ByVal knd As Byte)

If T5.RecordCount = 0 Then

MsgBox "لا توجد أي بيانات لحذفها", vbExclamation + arabic, "عرض البضائع"

Exit Sub

End If

T5.MoveFirst

For i = 0 To T5.RecordCount - 1

If T5!kind = knd Then T5.Delete

T5.MoveNext

Next i

MsgBox "تمت عملية الحذف بنجاح", vbInformation + arabic, "اتمام عملية الحذف"

End Sub