Access 3
تعريف الماكرو : هو سلسلة من العمليات
التي تنفذ كامر واحد الهدف منه السرعة والسهوله للوصول الى غرض ما .
هنا سوف استعرض بالشرح المبسط جدا
لعملية إنشاء الماكرو
يتم عمل الماكرو بالضغط على زر وحدات
الماكرو في قاعدة البيانات ثم جديد ونختار الاجراء المناسب
|
إصدار
صوت |
Beep |
|
إغلاق |
Close |
|
للتنقل
بين السجلات التالي /السابق /الاول ......الخ. |
Go
to record |
|
لوضع
رسالة |
msgbox |
|
تكبير |
Maximize |
|
تصغير |
Minimize |
|
للخروج
من البرنامج |
quit |
|
لفتح
نموذج |
open
form |
|
لفتح
استعلام |
open
query |
|
لفتح
جدول |
open
table |
|
طباعة |
Print
out |
|
تشغيل
برنامج مثل pbrush
على سبيل المثال |
runapp |
مثلا :- عند اختيار الإجراء go
to record يجب اختيار الكائن المراد ربط
الماكرو به مثل النموذج او استعلام او جدول ....الخ ...ثم اختيار اسم الكائن
والتسجيل المناسب مثال التالي السابق .......الخ .
هناك طريق اخرى لادراج الماكرو في
الكائن سوف اشرحا ان شاء الله في الوحدة النمطيه ولكن الطريقه السابقه فعاله
وسريعه .
مجموعة الماكرو هي عدة اجراءات يتم
حفظها باسم واحد أي كملف واحد ومن ثم وضعها في الكائن كالنموذج كزر واحد .
مثال: لعمل ماكرو لفتح نموذج وتكبير
الشاشة ثم ظهور رسالة ترحيبيه ...........يتم اختيار الإجراءات التالية open
form ثم maximize ثم msgbox ثم حفظهم جميعا كملف واحد ووضعه كزر واحد في النموذج
ملاحظة
كما سبق وشرحنا إدراج قائمة يمكن من
قائمة عرض ثم اشرطة الادوات ثم من تخصيص جهة الاوامر نحتار قائمة جديدة ثم نضعها
بالضغط والسحب جهة القوائم ومن تعديل التحديد يمكن ان نغير اسم القائمة .
ومن جهة وحدات الماكرو يتم بالضغط
والسحب نقل ألما كروات للقائمة الجديدة حيث يمكن تغيير الاسم أو شكل الزر من زر
تعديل التحديد .
العمليات
الحسابية في النماذج
لإجراء
أي عملية حسابية في النماذج كالتالي
لإيجاد
ناتج الراتب –الخصم
تأكد
أولا من حجم القاعدة من قائمة ملف ثم خصائص قاعدة البيانات ثم من باب عام .
اذا
كانت القاعدة اكبر من حجم الدسك فيجب ضغطها أولا ثم انسخها للدسك المرن كالتالي :
visual
basic
Sql
Macro
الوحدة
النمطية هي برمجة بلغة access basic وهي لغة visual
basic مع ربطها في برنامج الاكسس
2-اكتب
بها التالي:-
Function
function name()
حيث
function name هو اسم
التطبيق المستخدم وهو اختياري
وعند
اخذ enter يظهر أمر end function
تلقائيا .
3-ثم
اكتب الأوامر المطلوبة بين أمر function
و end function :-
ملاحظة
أوامر الاكسس بيسك هي نفسها أوامر البيسك ............فإذا كنت مهتم بها فابدأ
بدراسة أوامر الفيجوال بيسك واليك بعض منها :-
أمر
كتابة رسالة مثلا :
Msgbox”الرسالة
“
Inputbox(“ الرسالة المطلوبة “)
4-احفظ الملف باسم واخرج منة .
2-انشأ
زر أمر بحجم مناسب ( إذا ظهر لك المعالج الخاص به اغلقة )
3-اضغط
بيمين الماوس على زر الأمر ثم اختر خصائص ثم باب حدث ثم اختر الامر عند النقر على
الماوس ثم
4-اكتب الأمر :-
=اسم التطبيق()
اسم التطبيق الذي تم وضعه سابقا وليس
اسم الملف
5-ابدأ التنفيذ.
المطلوب
عمل مربع ادخال بحيث عند الضغط على زر الامر يظهر هذا المربع والذي يحتوي على
الجملة " ادخل كلمة السر من فضلك "
1-يتم
فتح وحدة نمطية جديدة
2-يتم كتابة الأمر
Function اسم التطبيق()
يتم
كتابة الأوامر التالية
Dim المتغير as string
المتغير =inputbox(“ادخل كلمة السر من فضلك “)
يتم حفظ الوحدة النمطية باسم
يتم فتح النموذج المراد الوضع به وادراج
زر امر وبيمين الماوس على زر الامر وعند امر عند الضغط على الماوس يتم كتابة
=اسم التطبيق()