برنامج الاكواد للاستاذ فهد الدوسرى

برنامج الاكواد للاستاذ فهد الدوسرى
كمية كبيرة من الاكواد واستخدماتها
للتحميل
للتحميل من4shared

بعض أوامر الأكسس

الشرح	الكود
يلاحظ في حالة كون خاصية النموذج منبثق وعند محاولة معاينة التقرير فإنه يفتح خلف النموذج و بالتالي لا يرى إلى في حالة أقفال النموذج المنبثق فكيف نجعل التقرير يظهر في المقدمه .. أفضل الطرق في حالة النموذج المنبثق في رأيي هي إخفاء النموذج المنبثق وعند غلق التقرير إظهار النموذج .. الطريقة كما يلي :	عند فتح التقرير في حدث عند نقر زر أمر ضع DoCmd.OpenReport "اسم التقرير", acViewPreview Me.Visible = False وفي حدث عند الإغلاق للتقرير ضع السطر التالي Forms![اسم النموذج المنبثق].Visible = True
طريقة عمل إغلاق نموذج عن طريق نموذج آخر من خلال زر الأمر مثلاً ضع الحدث التالي في حدث عند النقر لهذا الزر :	DoCmd.Close acForm, "اسم_النموذج_الآخر_المراد_إغلاقه"
عندما أريد إغلاق جميع حقول النموذج عند الفتح وعدم السماح بالتعديل فيها أو الحذف أضع في حدث في الحالي وفي حدث بعد التحديث للنموذج هذا الكود	Form.AllowEdits = False وعندما أريد فتح جميع حقول النموذج والسماح بالتعديل فيها أو الحذف أضع في حدث عند النقر لزر الأمر هذا الكود Form.AllowEdits = True =============== فتح حقل معين مع تمكينه [اسم_الحقل].Enabled = True إقفال حقل معين مع عدم تمكينه [اسم_الحقل].Enabled = False قفل الحقل مع تمكينه [اسم_الحقل].Locked = True فتح الحقل بعد قفله [اسم_الحقل].Locked = False
لإخفاء حقل معين عند وضع شرط معين عليه مثلاً أو غير ذلك استخدم هذا الكود	إظهار حقل معين [اسم_الحقل].Visible = True إخفاء حقل معين [اسم_الحقل].Visible = False
ضع هذا الكود فقط قبل أمر تشغيل استعلامات الحذف أو الإلحاق أو التحديث . وذلك لتعطيل الرسائل الافتراضية التي تخرج تلقائياً في الأكسس ( أنت على وشك القيام بحذف ... ألخ )	DoCmd.SetWarnings False إذا لم ينفع الكود الأول فضع هذا SetOption "Confirm Action Queries", False
طريقة طباعة ورقة من جهتين نفرض أن لديك تقريرين الأول اسمه بيانات الموظف والثاني اسمه الإجازات والدورات فنطبع الأول ثم نظهر رسالة تطلب قلب الورقة وفيها زر موافق فإذا ضغط عليه تتم طباعة الوجه الثاني والذي هو الدورات . الطريقة كما يلي : في حدث عند النقر للزر الذي يقوم بطباعة التقرير الأول نضع الكود هذا :	DoCmd.OpenReport "بيانات الموظف" MsgBox "أقلب الورقة لطباعة الإجازات " DoCmd.OpenReport "الإجازات والدورات" لن تتم طباعة الوجه الثاني في هذه الحالة حتى يضغط زر موافق
كيف يتم نقل التركيز إلى حقل معين في النموذج وكيف يتم نقل التركيز إلى حقل في النموذج الفرعي الطريقة كما يلي :	[اسم_الحقل_المراد_نقل_التركيز_إليه].SetFocus نقل التركيز إلى حقل معين في نموذج فرعي [DDD]![EEE].SetFocus DDD هو اسم النموذج الفرعي EEE هو اسم الحقل الذي في النموذج الفرعي
هذا الأمر يلغي الرسالة التي تخرج عند إلغاء الأمر أو حصول خطأ في الأمر.. توضع قبل الحدث	On Error Resume Next
طريقة تشغيل صوت من داخل الجهاز ويمكن تحديد طريقة عمله سواء من زر أمر أو عندما يفتح النموذج أو أي طريقة تحددها أنت	Call Shell("C:\windows\Sndrec32.exe /play ""C:\My Documents\alarm2.wav"" /close ", 0) يتم تحديد مكان الصوت واسمه داخل الجهاز كما هو مبين في هذا المثال "C:\My Documents\alarm2.wav" مكان الصوت في المثال هذا هو C:\My Documents اسم الصوت في المثال alarm2.wav نوع الصوت wav
هذه بعض الطرق التي يتم من خلالها التحكم في (( الخط )) في مربعات النص أو مربعات التسمية	للتحكم في نوع الخط [اسم مربع النص أو مربع التسمية].FontName = "Monotype Koufi" للتحكم في كون الخط غامق أو غير غامق [اسم مربع النص أو مربع التسمية].FontBold = True للتحكم في حجم الخط [اسم مربع النص أو مربع التسمية].FontSize = 60 للتحكم في لون الخط [اسم مربع النص أو مربع التسمية].ForeColor = 255 الرقم هو خاص باللون الأحمر لوضع تحته خط [اسم مربع النص أو مربع التسمية].FontUnderline = True لعمل كل هذه الخصائص على مربع نص أو مربع تسمية واحد With [اسم مربع النص أو مربع التسمية] .FontName = "Monotype Koufi" 'نوع الخط .FontBold = True 'غامق أو غير غامق .FontSize = 60 'حجم الخط .ForeColor = 255 'لون أحمر .FontUnderline = True ' لوضع تحته خط End With
شرح مبسط عن طريقة Select Case	Select Case [اسم_الحقل] Case Is = "ذكر" [حقل_آخر] = "رجل" Case Is = "أنثى" [حقل_آخر] = "إمرأة" End Select شرح الكود إذا كان الحقل المسمى [اسم_الحقل] يحتوي على كلمة ذكر فتكون البيانات في الحقل المسمى [حقل_آخر] تحتوي على كلمة رجل وإذا كان الحقل المسمى [اسم_الحقل] يحتوي على كلمة أنثى فتكون البيانات في الحقل المسمى [حقل_آخر] تحتوي على كلمة إمرأة وهكذا الطريقة مع درجات الطلاب إذا كانت الدرجة 80 فيكون الحقل الفلاني جيد جداً كمثال فقط
شرح مبسط عن الجملة الشرطية If……then ……. Else ……. End If	If [اسم_الحقل] = 50 Then DoCmd.OpenForm "نموذج رقم 1" Else DoCmd.OpenForm "نموذج رقم 2" End If شرح الكود إذا كان الحقل المسمى [اسم_الحقل]يحتوي على الرقم 50 If [اسم_الحقل] = 50 Then فيتم فتح النموذج المسمى نموذج رقم 1 DoCmd.OpenForm "نموذج رقم 1" وإلا Else يتم فتح النموذج المسمى نموذج رقم 2 DoCmd.OpenForm "نموذج رقم 2" نهاية الجملة الشرطية End If
طريقة تحديد حجم النموذج من ناحية الارتفاع والعرض بواسطة الكود يتم وضع هذا الكود في حدث (عند الفتح) الخاص بالنموذج أو في أي حدث ترغب فيه انت	التحكم في ارتفاع النموذج.. يتم التغيير في الرقم فقط إلى الحجم المرغوب فيه Me.Form.InsideHeight = 4150 التحكم في عرض النموذج.. يتم التغيير في الرقم فقط إلى الحجم المرغوب فيه Me.Form.InsideWidth = 8070
التحكم في حجم مربع النص أو التحكم في حجم مربع التسمية أو التحكم في حجم زر الأمر أو التحكم في حجم الصورة	يتم التغيير في الأرقام إلى الحجم المرغوب فيه للارتفاع [اسم مربع النص أو مربع التسمية أو زر الأمر].Height = 2270 لليسار [اسم مربع النص أو مربع التسمية أو زر الأمر].Left = 3599 للأعلى [اسم مربع النص أو مربع التسمية أو زر الأمر].Top = 1060 للعرض [اسم مربع النص أو مربع التسمية أو زر الأمر].Width = 2904
يسأل أحدهم هذا السؤال : لدي برنامج تم عمله بالأكسس يخص شركات متعددة وأريد أن أضع اسم الشركة في جميع النماذج وجميع التقارير وكل شركة تريد اسمها الخاص بها .. فكيف الطريقة ؟ الجواب : أنشأ جدول يحمل اسم (بيانات_الشركة) كمثال فقط وضع فيه حقل باسم (اسم_الشركة) يحتوي هذا الحقل على اسم الشركة وكل شركة تعدل هذا الاسم إلى الاسم التابع لها مثال .. شركة الغاز ..أو .. شركة الكهرباء .. ألخ أنشأ مربع نص غير منظم في كل نموذج وفي كل تقرير تريد أن يخرج هذا الاسم فيه ثم ضع هذا الكود بواسطة DLookUp	في مصدر بيانات مربع النص غير المنظم الذ ي نسميه مثلاً(الشركة) ضع السطر التالي =DLookUp(" [اسم_الشركة] ";"بيانات_الشركة") أما في حالة رغبتنا في وضع هذا السطر في حدث عند الفتح لأي نموذج أو تقرير فيه مربع النص هذا فيكون كما يلي الشركة = Dlookup(" [اسم_الشركة] ", "بيانات_الشركة") مع ملاحظة الفرق بينهما بالفاصلة المنقوطة في السطر الأول والفاصلة غير المنقوطة في السطر الثاني
الدالة DLookUp بشكل أوسع قليلاً يسأل أحدهم فيقول : أنا عندي جدول باسم (موظفين) وفيه حقل باسم( البطاقة ) وحقل باسم ( الاسم) أريد أن أنشأ في النموذج مربعي نص غير منظم الأول باسم (الرقم) والثاني باسم ( اسم) وأريد أن أكتب في الحقل(الرقم) أي رقم أريد فيخرج لي الاسم المرتبط بهذا الرقم في الجدول طبعاً وأريد ذلك عن طريق الدالة DLookUp فكيف الطريقة الجواب كما يلي في حدث عند الخروج للحقل (الرقم) ضع الدالة هذه كما هي دون تغيير	فى حالة كون حقل الشرط نصي وهو في مثالنا باسم (البطاقة) فضع الاتي اسم = DLookup("الاسم", "موظفين", "[البطاقة] = '" & Me![الرقم] & "'") فى حالة كون حقل الشرط رقمي وهو في مثالنا باسم (البطاقة) فضع الاتي اسم = DLookup("الاسم", "موظفين", "[البطاقة] = " & Me![الرقم]) ونقصد بقولنا رقمي ونصي أي نوع بيانات هذا الحقل نص أو رقم
توضيح للدالة Dsum الخاصة بالجمع سائل يسئل ويقول أنا لدي جدول اسمه الموظفين ويوجد فيه حقل الراتب وحقل المرتبة وأريد أن أجمع رواتب مرتبة معينة فقط وليس جميع المراتب بمعنى أريد أن أعرف كم مجموع رواتب المرتبة الأولى .. وأريد الجمع يكون في مربع نص غير منظم في النموذج فما هي الطريقة ؟ الطريقة استخدم الدالة Dsum بهذه الطريقة ضع مربع نص غير منظم في النموذج وسمه الجمع .. وضع في حدث في الحالي أو عند الفتح للنموذج هذا الكود	الجمع = Dsum("الراتب", "الموظفين", "[المرتبة]='الأولى'") توضيح لطريقة الدالة إذا كان الشرط نصي txt = Dsum(" [SSS] ", "DDD", "[NNN]='RRR'") إذا كان الشرط رقمي txt = Dsum(" [SSS] ", "DDD", "[NNN]=RRR") SSS=اسم الحقل الذي سيتم جمعه وهو الراتب DDD=اسم الجدول الذي فيه اسم الحقل SSS وهو الموظفين NNN= اسم الحقل الذي سنضع عليه شرط الجمع وهو المرتبة RRR=الشرط الذي في الحقل NNN وهو الأولى ****************************************** لعمل مثل ذاك اتبع الخطوات التالية نذكر اسم مربع النص الغير منظم في النموذج الذي نريد أن نرى الجمع فيه نضع علامة = نضع الدالة الخاصة بالجمع Dsum نفتح القوس ونضع علامة تنصيص ثم نكتب اسم الحقل المراد جمعه ثم نغلق علامة التنصيص علامة التنصيص تجدها في حرف الطاء مع ضغط الشفت نضع الفاصلة التي هي حرف الواو باللغة العربية بعد تحويل اللغة إلى الإنجليزية نضع اسم الجدول الذي فيه البيانات بين علامتي تنصيص نضع الفاصلة مرة أخرى نضع علامة تنصيص ثم قوسين مربعين نضع بينهما اسم الحقل الذي فيه شرط الجمع نضع علامة = نضع شرطة وهي حرف الطاء بدون الشفت إذا كان الشرط نص أما إذا كان رقم فلا حاجة لهذه العلامة نكتب الشرط بين هذين الشرطتين نغلق الشرطة هذه ... ثم نغلق علامة التنصيص ثم نغلق القوس هذا كل شيئ
توضيح للدالة Dcount الخاصة بإخراج العدد سائل يسئل ويقول أنا لدي جدول اسمه الموظفين ويوجد فيه حقل المرتبة وأريد أن أعرف عدد مرتبة معينة فقط وليس جميع المراتب بمعنى أريد أن أعرف كم عدد الموظفين على المرتبة الأولى .. وأريد العدد يكون في مربع نص غير منظم في النموذج فما هي الطريقة ؟ الطريقة استخدم الدالة Dcount بهذه الطريقة ضع مربع نص غير منظم في النموذج وسمه العدد .. وضع في حدث في الحالي أو عند الفتح للنموذج هذا الكود	العدد = Dcount("المرتبة", "الموظفين", "[المرتبة]='الأولى'") توضيح لطريقة الدالة إذا كان الشرط نصي txt = Dcount(" [SSS] ", "DDD", "[NNN]='RRR'") إذا كان الشرط رقمي txt = Dcount(" [SSS] ", "DDD", "[NNN]=RRR") SSS=اسم الحقل الذي نريد معرفة عدده وهو المرتبة DDD=اسم الجدول الذي فيه اسم الحقل SSS وهو الموظفين NNN= اسم الحقل الذي سنضع عليه شرط العدد وهو المرتبة RRR=الشرط الذي في الحقل NNN وهو الأولى ****************************************** لعمل مثل ذاك اتبع الخطوات التالية نذكر اسم مربع النص الغير منظم في النموذج الذي نريد أن نرى العدد فيه نضع علامة = نضع الدالة الخاصة بالعدد Dcount نفتح القوس ونضع علامة تنصيص ثم نكتب اسم الحقل المراد جمعه ثم نغلق علامة التنصيص علامة التنصيص تجدها في حرف الطاء مع ضغط الشفت نضع الفاصلة التي هي حرف الواو باللغة العربية بعد تحويل اللغة إلى الإنجليزية نضع اسم الجدول الذي فيه البيانات بين علامتي تنصيص نضع الفاصلة مرة أخرى نضع علامة تنصيص ثم قوسين مربعين نضع بينهما اسم الحقل الذي فيه شرط الجمع نضع علامة = نضع شرطة وهي حرف الطاء بدون الشفت إذا كان الشرط نص أما إذا كان رقم فلا حاجة لهذه العلامة نكتب الشرط بين هذين الشرطتين نغلق الشرطة هذه ... ثم نغلق علامة التنصيص ثم نغلق القوس هذا كل شيئ
يسئل سائل ويقول أريد أن أضع زر أمر في النموذج بحيث إذا قمت بالضغط عليه تخرج لي الآلة الحاسبة التي مع الويندوز فكيف الطريقة الجواب : ضع في حدث هذا الزر الكود التالي فقط :	Shell ("calc")
يسئل سائل ويقول لدي نموذج يتم فتح عن طريق زر أمر في نموذج آخر أريد عند الضغط على الزر لفتح هذا النموذج .. إذا كان النموذج خالياً من البيانات أن تخرج لي رسالة تفيدني بأن النموذج لا يوجد فيه بيانات كما هو الحال مع التقرير ( عند عدم وجود بيانات ) فكيف الطريقة الجواب : ضع في حدث عن الفتح لهذا النموذج الحدث التالي :	If Me.RecordsetClone.RecordCount = 0 Then MsgBox "لا يوجد بيانات" Cancel = -1 End If الدالة هذه Me.RecordsetClone.RecordCount تقوم بعد السجلات في النموذج فإذا كان العدد هو صفراً تخرج لك الرسالة MsgBox "لا يوجد بيانات" ثم يتم إلغاء أمر الفتح عن طريق Cancel = -1
يسئل أحدهم فيقول لدي نموذج منبثق يخفي الساعة التي في شريط المهام الخاص بالويندوز فهل يوجد طريقة لرؤية الساعة ؟ الجواب : ضع مربع تسمية على النموذج ونسميه مثلاً .. ساعة ضع في حدث عند الفتح ... وفي حدث عند عداد الوقت هذا الكود واضبط عداد الوقت على 1000 أي ثانية حتى يتغير الوقت كل ثانية	في حدث عن الفتح للنموذج Me!ساعة.Caption = Time$ في حدث عند عداد الوقت أو التايمر Me!ساعة.Caption = Time$ أضبط عداد الوقت أو التايمر على 1000
يقول أحدهم أريد أن أضع التاريخ الهجري على نموذجي ولكن بتنسيق كما في الوورد فكيف لك ؟ الطريقة ضع مربع نص غير منظم في النموذج .. إذهب إلى خصائصه .. ثم بيانات .. وضع في مصدر عنصر التحكم هذا الكود ....طبعاً يلزمك أن تمكن التقويم الهجري في برنامجك . إذا كان إصدار الأكسس عندك هو 97 فيمكنك عمل ذلك من أدوات ثم بدء التشغيل أما إذا كان إصدار الأكسس XP وربما 2000 فيمكن عمل ذلك من خيارات ... إعدادات دولية ثم ضع علامة صح على استخدام التقويم الهجري	تنسيق كما هو في الوورد =Format(Date();"yyyy/mm/dd""هـ""") تنسيق الأكسس =Date()
يسأل أحدهم : كيف استطيع أن أضع كلمة سر على الكود حماية له الجواب : اتبع الخطوات التالية : -	في قاعدة البيانات افتح أي وحدة نمطية عامة أو لنموذج ثم من قائمة ( أدوات ) Tools اختر آخر خيار وهو خصائص قاعدة البيانات Properties عندما تفتح لك شاشة الخصائص اختر علامة التبويب ( حماية ) Protection حدد علامة صح للخيار إقفال عرض البرنامج Lock Projet for viewing اكتب كلمة المرور في حقل Password أعد كتابتها في حقل ( التأكيد ) Confirm ثم أضغط Ok
يسأل أحدهم ما هي طريقة التعديل في برامج الأكسس المغلقة التي تم تحويلها إلى صيغة mde الجواب : يتم بهذه الطريقة مع ملاحظة أن التعديل يكون في تصميم النماذج فقط وليس في الأكواد	يتم ذلك بالخطوات التالية 1-فتح الاكسس خاليا بدون قواعد بيانات أي فتح برنامج الاكسس نفسه من قائمة ابدأ بدون اختيار ملف 2-فتح محرر البيزيك من قائمة ادوات ثم ماكرو ثم محرر البيزيك أو ALT + F11 3-العودة للاكسس عن طريق استخدم ALT + TAb للتنقل بين البرامج المفتوحة . 4- الضغط على فتح لاختيار البرنامج الذي نريد التعديل فيه . 5- نفتح أي نموذج في البرنامج لكي نقوم بالتعديل فيه . 6- نرجع إلى محرر البيزيك المفتوح وذلك باستخدم ALT + TAb . 7- سوف نجد أن زر التصميم أصبح مفعل مثلث الهندسة الازرق 8- نضغط علي أيقونة زر التصميم فيفتح النموذج فى وضع التصميم . 9- بعد أن نقوم بالتعديل على النموذج نقوم بالحفظ وذلك بواسطة الضغط على زر Ctrl+S
يسأل أحدهم ويقول كيف ألغي خاصية الحفظ التلقائي في الأكسس بمعنى بعد كتابة معلومات شخص معين وعند الانتقال إلى الشخص الآخر أريد رسالة تخبرني هل تريد الحفظ أم لا ؟ الجواب : ضع في حدث (قبل التحديث) للنموذج الكود التالي	If MsgBox(" هل تريد حفظ السجل ؟ ", vbYesNo, " تنبيه ") -= vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If
يسأل أحدهم ويقول كيف أستطيع أن أجعل النموذج يملئ الشاشة كاملة ؟ الجواب : من خصائص النموذج (غير ذلك ) أجعل خاصية (منبثق ) إلى ( نعم ) بدلاً من ( لا ) ثم في حدث ( عند التحميل ) للنموذج ضع الكود التالي	DoCmd.Maximize
عندما تضع مربع تحرير وسرد في النموذج وتحدد خاصية (التزام بالقائمة ) لتكون نعم فإن معنى ذلك أنه لا يستطيع أحد أن يضيف إلى مربع التحرير والسرد هذا قيمة غير موجودة فيه . ولكن إذا احتجت أن تضيف قيمة غير موجود فيه فيمكنك عمل ذلك بهذه الطريقة :- ضع الكود التالي في حدث ( عند عدم الوجود في القائمة ) الخاص بمربع التحرير والسرد	' لاحظ أن هناك متغيرين للدالة هما ' NewData وهذه يمكنك استخدامها لإضافة القيمة المدخلة إلى جدول القيم ' Response ويحدد الموقف من القيمة الجديدة Dim strsql As String, x As Integer x = MsgBox("القيمة المدخلة غير موجودة سابقاً ... هل ترغب في إضافتها ؟", vbYesNo) If x = vbYes Then strsql = "Insert Into tbxTraining ([Training]) values ('" & NewData & "')" ' tbxTraining اسم الجدول الذي هو مصدر مربع التحرير والسر ' TRAINING اسم الحقل في ذلك الجدول والذي ستضاف القيمة إليه MsgBox "تم أضافة القيمة", vbOKOnly, "تنبيه" CurrentDb.Execute strsql ' الأمر التالي يحدد الموقف من القيمة الجديدة وهو هنا إضافتها Response = acDataErrAdded Else MsgBox "تم تجاهل القيمة", vbOKOnly, "تنبيه" ' تجاهل القيمة الجديدة والاستمرار Response = acDataErrContinue End If
يسأل أحدهم ويقول لدي مربع نص غير منظم في النموذج وأريد أن أعرف نوع المدخل في هذا المربع سواء حروف أو أرقام فهل هناك طريقة ؟ الجواب : نفترض أن اسم مربع النص هو ( نوع_المدخل ) نضع الحدث في المكان الذي نريده سواء عند الخروج من هذا المربع أو زر أمر أو غير ذلك .. وهذه بعض طرق التعامل مع نوع المدخلات في مربع النص كما يلي :-	'للتعامل مع الأرقام If IsNumeric([نوع_المدخل]) = True Then MsgBox "المدخل أرقام" End If 'للتعامل مع الحروف If Len([نوع_المدخل]) Then MsgBox "المدخل حروف" End If 'للتعامل مع عدد المدخل سواء حروف أو أرقام If Len([نوع_المدخل]) = 5 Then MsgBox "تم إدخال خمسة حروف أو أرقام" End If
يسأل أحدهم ويقول : كيف استطيع ان اكتشف بأني قد تركت أحد المربعات على النموذج فارغاً وذلك قبل أن أنتقل للسجل التالي ؟ الجواب : الطريقة هي وضع هذا الكود في حدث ( قبل التحديث ) للنموذج أو في حدث( عند النقر) الخاص بالحفظ أو في أي مكان يناسبك	Dim ctlTextbox As Control For Each ctlTextbox In Me.Controls If ctlTextbox.ControlType = acTextBox Then If IsNull(ctlTextbox) Then MsgBox "لقد تركت أحد مربعات النص فارغاً" ctlTextbox.SetFocus Exit Sub End If End If Next ctlTextbox MsgBox "جميع مربعات النص بها قيم "
يسأل أحدهم ويقول : أحياناً أقوم بتسجيل معلومة في أحد مربعات النص ولكني أريد أن أتراجع عن هذه المعلومة فهل هناك طريقة مناسبة ؟ الجواب : يوجد بعض طرق التراجع عن تسجيل المعلومات واعتبارها كأنها لم تكن ومن ذلك الطرق ما يلي :	'استخدم هذه Me.Undo 'أو هذه SendKeys "{ESC}"
يسأل أحدهم ويقول : أريد أن أجعل أحد النماذج عندي تعمل في بداية البرنامج فهل هناك طريقة ؟ الجواب : هناك طريقتان :- الأولى : هي من قائمة (أدوات ) ثم ( بدء التشغيل ) إذهب إلى مربع التحرير (عرض النموذج/الصفحة) واختر النموذج المراد . الثانية : هي كما يلي :-	أنشأ لك ماكرو جديد أذهب إلى الإجراء واختر ما تريده فإذا كنت تريد للنموذج أن يملئ الشاشة فاختر في السطر الأول للأجراء هذه Maximize ثم أختر في السطر الثاني من الإجراء هذه OpenForm عندها يفتح لديك معالج بالأسفل أختر منه اسم النموذج الذي تريده ثم أحفظ الماكرو بهذه الاسم AutoExec