يمكنك ذلك عن طريق ان تعمل مايكرو - وتختار
export with formatting
في حقل تنسيق الاخراج اختر
microsoft excel
بعدما تنتهي سمي المايكرةو باي اسم ثم قم بانشاء زر يقوم بتشغيل ذلك المايكرو
يمكنك ان تعوض عن هذا الكود فقط برسالة لانه انت بمجرد التحديث سوف يتم التحديث
اي مجرد ان تكتب في الحقل سوف يكتب مباشرة
مثلا تكتب
msgbox " تم التحديث بنجاح "
اذا قصدك ان تجبر المستخدم على كتابة ارقام فقط استخدم الكود الاتي
if isnumeric( اسم النموذج الحالي .textbox) =true then
نفذ مجموعة من العمليات
else
msgbox " هذا الحقل مخصص لادخال الارقام حاول مرة اخرى "
end if
يمكنك من عمل ذلك من خلال اضافة مايكرو بحث جاهز كما في برنامج الاكسيس ويمكنك ذلك برمجيا وكالاتي :
تجعل مصدر السجلات للنموذج الفرعي يعتمد على مربع النص الذي تريد كتابة الاسم للبحث عنه وتكتب قبلها عبارة like "*"& forms![اسم النموذج ]! [اسم النموذج الذي يحتوي على مربع النص الذي فيه حقل البحث عن الاسم ]&"*"
يمكنك من عمل زر للطباعة
انشا زر واكتب الكود التالي
DoCmd.SetWarnings False
DoCmd.RunCommand acCmdPrint
الكود اعلاه سوف يقوم بفتح مربع حوار الطباعة
اختر اسم الطابعة الافتراضية ومن خصائص غير حجم الورقة او اتجاه الورقة ثم موافق