برمجة مربع السرد لإحتواء أسماء الطابعات

[الدكتور خضر الرجبي]

هذا الموضوع يتماشى مع Access 2002 و Access 2003

يستفاد من هذا الموضوع معرفة طريقة إضافة الطابعات المحملة (المعرفة) لجهاز الحاسوب إلى مربع تحرير وسرد (combo box) باستخدام البرمجة بلغة(VBA) .

خطوات الطريقة هي :

1. ندخل إلى خصائص مربع التحرير والسرد ونضغط لسان التبويب الكل (All tab).

2. نغير قيم الخصائص كما يلي :

نضع في خاصية الاسم (Name) الاسم dPrinter

نختار في خاصية نوع مصدر الصف (Row Source Type) قائمة الحقول (Value List)

نضع في حدث عند التحميل للنموذج (On Load) الكود التالي:

Private Sub Form_Load()
 Dim prt As Printer
 For Each prt In Application.Printers
 Me!dPrinter.AddItem prt.DeviceName
 Next
End Sub

ملاحظة(1): عندما نضيف (نحمل) عناصر لمربع التحرير والسرد بالبرمجة (كما في المثال السابق) فإن العناصر لا تترتب أبجديا وإنما حسب ترتيب التحميل طبعا هناك حل لهذا الأمر أيضا، أرجو من الإخوة الأعضاء التفكير في الحل.

ملاحظة(2): انتبه إلى طريقة استخدام (AddItem).

الخلاصة : تم إضافة الطابعات المعرفة إلى مربع التحرير والسرد برمجيا وهذا مجرد مثال لأفكار كثيرة يمكن تطبيقها بنفس التقنية والشيء الممتع في هذه التقنية أن نتيجتها متواصلة التغير (Dynamic) أي كلما تغيرت تعريفات الطابعات تتغير محتويات مربع التحرير والسرد.