(1) الجديد في أكسس 2002 ( FileDialog )( صندوق حوار الملفات).

 كيفية إظهار واستخدام صندوق حوار الملفات (FileDialog):

ــ قبل ظهور أكسس 2002 لم يكن باستطاعة المستخدم لأكسس أن يظهر صندوق حوار الملفات بدون استخدام ملفات مساعدة، أوعن طريق استدعاء مكتبات وندوز.

ـــ أما الآن فإنه بالإمكان إظهار واستخدام صندوق حوار الملفات بكل يسر وسهولة لكن مع أكسس 2002 فقط.

ـــ في هذه الإصدارة من أكسس، فإن كائنات صندوق حوار الملفات تمكنك من إختيار ملفاتك بطريقة لم تكن موجودة من قبل، مثل الإختيار المتعدد للملفات بواسطة الكائن SelectedItems و For…Each .

 الشروع في العمل:

ملاحظة: سوف يكون التطبيق على قاعدة البيانات المثال المرفقة مع أكسس, لكونها متوفرة للجميع.

1. افتح قاعدة البيانات المثال Northwind.mdb ( رياح الشمال ).

2. أنشئ نموذج جديد واجعله في عرض التصميم.

3. أضف أدوات التحكم التالية:

زر أمر

الاسم: cmdFileDialog

العنوان: إضافة ملفات

الحدث: عند النقر

صندوق قائمة

الاسم: lstFileList

نوع مصدر الصف: قائمة القيم

4. من قائمة عرض اضغط تعليمات برمجية؛ لفتح محرر الوحدة النمطية .

5. من قائمة أدوات اضغط مراجع .

6. اضغط صندوق اختيار Microsoft Office 10.0 Object Library من القائمة.

7. اضغط موافق لإغلاق صندوق المراجع.

8. أضف التعليمة البرمجية ( الكود ) التالية إلى الوحدة النمطية للنموذج:

Option Compare Database
Option Explicit
'
Private Sub cmdFileDialog_Click()

' Microsoft Office 10.0 Object Library متطلبات المرجع لـ

	Dim fDialog As Office.FileDialog
	Dim varFile As Variant

	' مسح محتويات صندوق القائمة
	Me.lstFileList.RowSource = ""

	' تهيئة صندوق حوار الملفات
	Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
	With fDialog
' تمكين المستخدم من الاختيار المتعدد من صندوق الملفات
.AllowMultiSelect = True

'  تهيئة عنوان صندوق الحوار
.Title = " فضلا اختر واحدا أو أكثر من الملفات "

' إزالة المرشح الحالي للملفات وإضافة ما يخصك
.Filters.Clear
.Filters.Add " قواعد بيانات أكسس ", "*.MDB"
.Filters.Add " مشاريع بيانات أكسس ", "*.ADP"
.Filters.Add " جميع الملفات ", "*.*"

' ( If ) إظهار الصندوق حاملا الملفات مشروطا بـ 
' ( True ) إذا اختار المستخدم ملفا أو أكثر فإن الدالة ترجع
' وتظهر رسالة للمستخدم ( False) وإذا ضغط المستخدم إلغاء فإن الدالة ترجع  
If .Show – True Then
' عمل دوار بجميع الملفات المختارة وإضافتها إلى صندوق القائم
For Each varFile In .SelectedItems
Me.lstFileList.AddItem varFile
Next
Else
MsgBox " عفوا: لقد قمت بضغط زر إلغاء في صندوق الحوار "
End If
End With
End Sub

9. قم بحفظ النموذج, ثم أغلقه.

10. افتح النموذج مرة أخرى.

11. اضغط على زر إضافة ملفات من النموذج.

12. اختر الملفات التي تريدها ثم اضغط موافق, أو إلغاء.

 إذا اخترت ملفا أو أكثر ثم ضغطت على موافق, سوف ترى الملفات التي اخترتها في صندوق القائمة، وإذا ضغطت على إلغاء، سوف تظهر رسالة تشير أنك ألغيت الإجراء.

ـــ آمل إفادتي بمقترحاتكم حول هذه المشاركة

ـــ المقال مرفق في صيغة Word

أخوكم القحم