محمد طاهر عرفه

ادخال الرقم اما بالكتابة أو من خلال قراءة الجهاز للشيفرة المرسومة ( السطور الرأسية التي رأيتها فى المثال ، و تراها علي السلع ) فالقراءة بالجهاز تحل محل الكتابة فى تسجيل الرقم المناظر للبار كود

تم جمع الأسئلة المتشابهة فى موضوع واحد و هذا مثال أرجو أن يفي بالغرض فى الجانب الايسر بيانات الحضور و الانصراف اليومي و استنتاج مدة العمل و التأخير لكل سجل فى الجانب الايمن يتم تحديد فترة بين تاريخين و اختيار الموظف ليتم حساب اجمالي التأخيرات خلالها و اجمالي فترات العمل و حساب عدد ايام الغياب بناء علي يوم لكل 7 ساعات ملاحظة : لم تتم التجربة الكافية للاستعجال أرجو التجربة من المهتمين به TimeDiff.rar

salesprice + salesprice * 15/100 = salesprice +0.15*salesprice = salesprice * (1+0.15) = salesprice * 1.15

لست متعمقا فى الموضوع لكن بصفة عامة هي مواصفات مختلفة لرسم الباكود المناظر للرقم و لكل منها اسم مثل باركود 128 و 39 و اذا أردت التعمق أكثر فهذه الصفحة بها شرح للمواصفات المختلفة http://www.adams1.com/pub/russadam/info.html#Specs

لنفرض أن سعر الشراء فى مربع اسمه salesprice ضع مربع نص آخر لسعر البيع و ضع فى مصدر بياناته =[salesprice]*1.15

قم بوضع بيانات الطلبة فى ورقة عمل و قم بتصميم الشهادة فى الاخري ثم قم باستدعاء البيانات بناء علي رقم الطالب باستخدام الدالة vlookup و يوجد عليها فى قسم خلاصة المشاركات عدة أمثلة و مرفق مثال علي ما تريد و بصفة عامة فان الدالة تحوي 3 أجزاء أساسية و واحد خياري الاول للقيمة التي تبحث عنها و الثاني لمجال البحث و الثالث لرقم العمود المطلوب اعادته من مجال البحث و الرابع خياري و هو يعبر عن تصرف الدالة فى حالة عدم وجود القيمة التي نبحث عنها فى المجال ، هل تعيد البيانات المناظرة أقرب قيمة لها أم لا ، و هنا فى المثال سيكون المطلوب هو "لا" طبعا و لذلك وضعنا الجزء الرابع = False و القيمة الافتراضية لها هي True أي ما تعتبره الدالة عند عدم تسجيل الجزء الرابع فى المعادلة vlookup4.rar

مثال جميل :d مشكووور و يلاحظ أن به نموذجان frmStaffListQuery و frmStaffListQuery_Enhanced و الاول لابد من تسجيل المعايير الثلاثة فيه و الثاني و هو الافضل يستبدل المعيار الغير مسجل ب " Like '*' " بالكود

أهلا بك أخي الكريم اذا كنت تريد أن لا يتم البحث مع كتابة كل حرف و أن يتم تنفيذ البحث مع نهاية كتابة الجملة و ضغط Enter أو بمعني آخر بعد التحديث لمربع النص فانقل الكود الموجود فى حدث عند التغيير on change الي حدث بعد التحديث after update و عندها ستستغني عن الزووم فلن يتم التنفيذ الا عند انتهائك من كتابة الجملة كاملة و ضغط Enter أو الانتقال الي مربع آخر أي استبدل سطر Private Sub Mysearch_Change() ب Private Sub Mysearch_AfterUpdate() أو من الافضل أن تنشيء حدث جديد خاص ب Mysearch_AfterUpdate و تنقل اليه الكود الموجود فى Mysearch_Change و تلغي الكود الموجود فى Mysearch_Change

أيضاً مثال علي ما الرد الاول ( استخدام التنسيق "ddd" ) dayname.rar

اجعل التنسيق الخاص بمربع النص الذي فيه اليوم الحالي هو "ddd" الذي مصدر بياناته هو : =Now()

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

الرسالة تعني أنه لا يوجد لديك مربع نص باسم PerID علي النموذج فغيره الي الاسم عندك و هو مربع النص الذي به رقم حقل معرف السجل الذي تريد منع التعديل فى السجل الذي يحوي رقم ا فيه و للجمع Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.PerID = 1 Then MsgBox " This record can not be Edited !!!", vbCritical, " PLease Chose a contract" Cancel = True SendKeys "{ESC}" Exit Sub End If If MsgBox(" DO YOU LIKE SAVE CHANGES ", vbYesNo, _ " FOR CONFIRMATION ") = vbNo Then Cancel = True SendKeys "{ESC}" Exit Sub End If End Sub

فى نموذج التعديل أو لااضافة ضع الكود التالي Private Sub Form_BeforeUpdate(Cancel As Integer) If Me.PerID = 1 Then MsgBox " This record can not be Edited !!!", vbCritical, " PLease Chose a contract" Cancel = True SendKeys "{ESC}" Exit Sub End If

وعليكم السلام ورحمة الله وبركاته الخلفية المضافة من Format Background للمشاهدة فقط و لا تطبع اذا اردت الطباعة فأدرج صورة من قائمة Insert مع تحياتي

أعتقد أن الشرح المصور لن يكون فيه اضافة و سأعيد الرد بطريقة أخري : بضغط ALT+F11 ستجد الأسطر الثلاثة Sub tohama() Selection.Font.name= "Tahoma" End Sub و بها اسم الخط تكرر مرتين Tohama انسخ الثلاثة أسطر كما هي و استبدل Tohama باسم الخط الذي تريد ( فى الكلمتين : العنوان و السطر الذي يليه ) هذا بالنسبة للخط ذكرت فى ردك أن التجربة لم تننجح معك فى كل المرات ما الذي يحدث ؟؟ عموما جرب تكرار الماكرو كما سبق اولا و لتشغيل أي منها تختار الخلايا المراد التطبيق عليها اولا ، ثم Tools Macro أو ALT+F8 و تشغل الماكرو فسيتغير الخط بإذن الله بعد ذلك تبقي عملية السحب الي القائمة هي كما كنت تفعل فى الوورد تماما و لكن ، ما ستضيفه هو الخيار الثاني المتاح فى مجموعة ماكرو (بدلا من سحب الفونت مباشرة من مجموعة فونت فى الوورد ) ثم تختار ما أضفته بالزر الايمن Assigm macro و تنتقي الماكرو المناظر للخط الذي تريد

السلام عليكم مرفق ملف مسجل به الماكرو و الان اضف قاءمة جديدة الي القوائم الموجود بجوار التعليمات كما تريد Toold Customize command new menu ثم أضف اليها زر custom button مثلا من مجموعة ماكرو ( الخيار الثاني ) ثم بعد اضافته الي القائمة و مربع الحوار مازال مفتوحا اختاره و بالزر الايمن اختار assign macro و اختار ماكرو المسمي Tohama و بالنقر علي الزر اثناء التشغيل سيتم تحويل اي خط فى الخلايا المختارة الي تهامة لا تنسي تعديل مستوي أمان الماكرو لي يعمل الكود Tools Macro security medium or low Font_Tohama.rar

لا أعرف طريقة لتغيير االايقون المناظر لبرنامج فى ملف بعينه ( دون باقي ملفات الاكسس ) سوي الاختصار أيضا بمناسبة الموضوع ، و ان كان ليس طلبك يمكن تغيير الايقونة التي تظهر في النماذج من خيارات بدء التشغيل Tools startup application icon و يمكن أيضا التحكم فيه برمجيا كما فى الموضوع الموجود فى الارشيف بعنوان تغيير خيارات بدء التشغيل برمجيا ( فى قسم النماذج و أكواد ال vba )

هل المقصود حرف واحد أم ستضع أكثر من حرف فى الخلية اذا كان حرف واحد أيا كان فيمكنك استخدام الدالة counta لعد الخلايا التي بها بيانات فى مجال محدد

من هنا http://soft.vip600.com/modules.php?name=Do...علم_الباوربوينت

هذا الكتاب وجدته فى موقع اقلاع سوفت لتعليم اكسس 97 بالعربي http://soft.vip600.com/modules.php?name=Do...7_-_الجزء_الأول http://soft.vip600.com/modules.php?name=Do..._-_الجزء_الثاني

يمكنك تسجيل ماكرو مباشرة من قائمة tools Macro Record new macro و فى هذه الحالة سيسجل لك خصائص كثيرة للخط و ما تحتاجه بعد حذف الخواص الأخري هو فقط الجزء التالي : Sub tohama() With Selection.Font .Name = "Tahoma" End With End Sub أو اختصارا حيث أنها خاصية واحدة Sub tohama() Selection.Font.name= "Tahoma" End Sub فافتح محرر البيزيك alt+f11 و ادرج موديول جديد و ضع فيه الكود السابق أو سجل أي ماكرو كما سبق ، ثم حرره و استبدل الكود بالكود السابق سيصبح لديك ماكرو يغير الخط الي خط تهامة للمنطقة المختارة و يمكنك نسخه و تغيير اسم الماكرو و نوع الخط داخل الكود الي الخطوط الأخري المطلوبة

تابع موضوع أبو حمود ================ اعادة الشرح بتفصيل أكثر : ================ لتغيير الإعدادات في مربع حوار بدء التشغيل StartUp مربع حوار بدء التشغيل يتحكم في الكثير من الخصائص الخاصة بقاعدة البيانات وقد وضعت هذه الخيارات منفصلة عن خيارات قاعدة البيانات لأنها تختص بقاعدة البيانات المفتوحة ، يبدأ عمل مربع حوار بدء التشغيل قبل بدء ماكرو Autoexec فور تشغيل القاعدة . للوصول إلى مربع حوار بدء التشغيل انقر على قائمة أدوات ثم بدء التشغيل . بعض الخيارات الموجودة في مربع حوار بدء التشغيل تعمل مباشرة عند تغييرها والبعض الآخر تعمل عند فتح قاعدة البيانات مرة أخرى وبإمكانك تجاوز خيارات بدء التشغيل بالضغط على Shift مالم يعطل هذا الخيار . ================================== أولا : عنوان وأيقونة التطبيق (ملاحظة 1و2 يستدعيان نفس الدالة) 1- عنوان التطبيق Application Title يظهر هذا العنوان في شريط الأكسس وفي إطار قاعدة البيانات إذا لم تكن مبكرة بالحد الأقصى يزيل هذا العنوان العنوان الافتراضي لأكسس ، لتغيير العنوان برمجيا ضع في حدث عند النقر على زر الأمر مثلا الكود التالي : Dim intX As Integer Const DB_Text As Long = 10 intX = AddAppProperty("AppTitle", DB_Text, "عنوان جديد") intX = AddAppProperty("AppIcon", DB_Text, "C:WindowsCars.bmp") Application.RefreshTitleBar السطر الثاني في الكود السابق : إعلان عن ثابت من النوع Long ويمكنك حذف العبارة السابقة واستبدالها في السطر الثالث بـ dbtext أو db_text أو كتابة رقم 10 في نفس الموضع . السطر الثالث : تم وضع المتغير intX لتخزين القيمة العائدة من الدالة المعرفة من قبل المستخدم AddAppProperty تعيد الدالة إذا تم تغيير العنوان بنجاح قيمة -1 وإذا لم يتم تغيير العنوان 0 . ثم الوسيطة الأولى اسم الخاصية في الأكسس والثانية نوعها والثالثة العنوان الجديد . إذا لم ترغب في حفظ القيمه العائدة من الدالة فاحذف المتغير ويساوي والأقواس لتكون العبارة كالتالي : AddAppProperty "AppTitle", DB_Text, "عنوان جديد" السطر Application.RefreshTitleBar ليظهر العنوان الجديد مباشرة وإذا لم تضعها يتم حفظ العنوان الجديد في مربع الحوار بدء التشغيل دون ظهوره في الشريط العلوي لأكسس حتى تقوم بتشغيل قاعدة البيانات مرة أخرى . إذا كنت تريد تمكين المستخدم من تغيير العنوان بدون اللجوء إلى مربع حوار بدء التشغيل فاستخدم دالة InputBox كالتالي : intX = AddAppProperty("AppTitle", DB_Text, InputBox("اكتب العنوان الجديد:")) ملاحظة هامة : إذا كان عنوان القاعدة فارغ واستخدمت السطر السابق لمطالبة المستخدم بالعنوان الجديد ولكن المستخدم نقر زر Cancel ولم يضع عنوان فستظهر رسالة الخطأ التالية (الخصائص المعرفة من قبل المستخدم لاتدعم القيم الخالية) ولتصحيح الخطأ اكتب عبارة من عبارات معالجة الخطأ أو أعد مطالبة المستخدم أو أنظر ما يأتي . وبإمكانك اسناد قيم موجودة في جدول أو استعلام أو وضع حدث Timer لتغيير العنوان بشكل متتابع وغير ذلك . لمسح العنوان الذي كتبته اكتب : intX = AddAppProperty("AppTitle", DB_Text, " ") انتبه ضع مسافة بين الفاصلتين المزدوجتين . 2- السطر الرابع في الكود السابق : intX = AddAppProperty("AppIcon", DB_Text, "المسار واسم الأيقونة أو ملف الصورة") هذا السطر خاص بوضع أيقونة للبرنامج أو تغييرها أو حذفها . ملاحظة : لحذف الأيقونة : intX = AddAppProperty("AppIcon", DB_Text, "") تظهر الأيقونة في الجزء العلوي الأيسر من الشاشة . أما إذا أردت تغيير الأيقونة الخاصة بالقاعدة التي تظهر على ملفات الأكسس (المفتاح) فاجعل للقاعدة إختصار مثلاً على سطع المكتب ثم انقر عليه بزر الفأرة الأيمن واختر خصائص ثم تغيير الرمز ثم اختر الأيقونة المناسبة وإذا كانت الأيقونة موجودة في ملف آخر فاختر ملف الأيقونة من نوع ICO أو Exe أو dll أو غيرها من الملفات حسب نوع الملف الموجودة فيه ، ولتغير الأيقونة في قائمة أبدأ اعمل نفس الطريقة السابقة وأما تغيير أيقونة الملف نفسه فلا أعرف طريقتها وهناك برامج لتغيير الأيقونات . طبعاً يمكنك تغير العنوان فقط أو تغيير الأيقونة فقط أو كلاهما . -------------------------------------------- الحدث السابق يستدعي الدالة التالية : -------------------------------------------- Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer On Error GoTo AddProp_Err Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function وعملها يتلخص في البحث عن العنوان أو الإيقونة السابقة في مربع حوار بدء التشغيل ، فإذا لم يجدهما (أي قيمهما في مربعي النص الخاص بكل منهما) أو أحدهما يعطي خطأ فيبدأ تنفيذ الأسطر بعد الخطأ . ولقراءة خاصية العنوان : Dim dbs As Database Set dbs = CurrentDb MsgBox dbs.Properties![AppTitle] dbs.Close لكن لاحظ أن الطريقة السابقة تكون بعد إنشاء العنوان أو الأيقونة أو كتابتهما من قبل المستخدم وإلا ستظهر رسالة الخاصية غير موجودة . ولقراءة خاصية الأيقونة : Dim dbs As Database Set dbs = CurrentDb MsgBox dbs.Properties![AppIcon] dbs.Close ====================================== (ثانياً) لتغيير بقية خيارات مربع حوار بدء التشغيل : أعلن عن الثابتين التاليين : Const DB_Text As Long = 10 Const DB_Boolean As Long = 1 1- تشغيل نموذج عند بدء تشغيل القاعدة : ChangeProperty "StartupForm", db_Text, "اسم نموذج” لاختيار النموذج الذي يفتح عند بدء تشغيل البرنامج واسمه في مربع حوار بدء التشغيل (عرض النموذج/الصفحة). لعدم عرض نموذج عند بدء التشغيل استبدل اسم النموذج بالعبارة التالية "(None)" . غالباً ما يستخدم لتشغيل لوحة التبديل Switchboard أو وضع صورة على نموذج وجعلها مثل النوافذ التي تظهر عند بدء تشغيل الأكسس أو الوورد أو غيرهما من البرامج وتكون ذات تنسيق جيد وباسم البرنامج وبدون حدود للنموذج ، مع تشغيل حدث المؤقت لإغلاقها بعد مرور ثلاث ثواني مثلا . فائدة : بإمكانك إظهار صورة عند بدء تشغيل قاعدة بوضع الصورة في نفس مجلد القاعدة وتغيير اسمها إلى نفس اسم القاعدة ولكن يعيب هذه الطريقة سرعة ظهور وإختفاء الصورة ولو أمكن التحكم بسرعة ظهورها لكانت أفضل من طريقة وضع صورة على نموذج . 2- إظهار أو إخفاء إطار قاعدة البيانات : ChangeProperty "StartupShowDBWindow", DB_Boolean, قيمة إطار قاعدة البيانات هو الإطار الذي يحوي كائنات التطبيق من الجداول والاستعلامات والنماذج والتقارير وصفحات البيانات والماكروات والوحدات النمطية . لعرض إطار قاعدة البيانات اجعل مكان قيمه True ولعدم ظهوره اجعل False . قد تحتاج إلى إخفاء الإطار لغرض عدم تمكين المستخدم من الاطلاع على كائنات القاعدة أو التعديل فيها وهو خيار أفضل لكن مع مراعاة تمكين المستخدم من وظائف القاعدة لا أن تدعه أمام إطار فارغ . لإظهار الإطار انقر F11 ، يبدأ التطبيق بعد التشغيل التالي لقاعدة . 3- عرض أو إخفاء شريط المعلومات ChangeProperty "StartupShowStatusBar", DB_Boolean, قيمة لإظهار أو إخفاء شريط المعلومات وهو الشريط الذي يظهر في أسفل الأكسس ضع بدلا من القيمة True لعرض الشريط و False لإخفاءه . 4- منع أو السماح بأشرطة الأكسس الافتراضية في مربع حوار بدء التشغيل اسمها السماح بأشرطة الأدوات المضمنة ChangeProperty "AllowBuiltinToolbars", DB_Boolean, قيمة إظهار أشرطة الأدوات الافتراضية لأكسس ضع بدلاً من القيمة True ولإخفائها False . عند منع أشرطة الأدوات المضمنة تختفي كل الأشرطة الخاصة بالأكسس وتبقى الأشرطة الخاصة بالتطبيق (التي من إعداد المبرمج) . 5- السماح بالقوائم الكاملة ChangeProperty "AllowFullMenus", DB_Boolean, قيمة تختفي القوائم الافتراضية الخاصة بالأكسس وتظهر قوائم محدودة تختص بالتحرير والطباعة والتعامل مع السجلات والإطارات والتعليمات وهي تفي بحاجة المستخدم من حيث إدخال وعرض البيانات خاصة إذا لم ترغب في إنشاء قوائم خاصة بالتطبيق . لإظهار القوائم الكاملة ضع بدلاً من قيمة True ولإخفائها False . وإخفاء القوائم الكاملة مع إخفاء الأشرطة الإفتراضية لأكسس مفضل جداً حتى لايستطيع المستخدم تغييير تصميم قاعدة البيانات . 6- منع المستخدم من مقاطعة الإجراءات بضغط Ctrl+Braek ChangeProperty "AllowBreakIntoCode", DB_Boolean, قيمة تمنع المستخدم من إيقاف الإجراء الطويل بالنقر على زري Ctrl+Break . ضع بدلاً من قيمة True لمنع مقاطعة الإجراءات وFalse للسماح له بذلك ، وفي التعليمات الخاصة بالأكسس هذه العبارة : You can use the AllowBreakIntoCode property to specify whether or not the user can view Visual Basic code after a run-time error occurs in a module. ولكن بعد التجربة لم ألحظ أنها تمنع المستخدم من الاطلاع على الوحدة النمطية في حالة حدوث الخطأ فما أدري أين الخطأ ؟ . 7- استخدام مفاتيح وصول خاصة ChangeProperty "AllowSpecialKeys", DB_Boolean, قيمة لمنع أو السماح للمستخدم من استخدام للمفاتيح التالية : (ALT+F1 (F11), CTRL+F11, CTRL+BREAK, and CTRL+G) فالأولى للوصول إلى إطار قاعدة البيانات وجلبه إلى الأمام والثاني للتبديل بين شريط القائمة المخصص وشريط القائمة المضمن والثالث لإيقاف التعليمات البرمجية والرابع لإظهار إطار التصحيح Dubeg . Ctrl+F11 : إذا تم اختيار شريط قوائم مخصص في مربع حوار بدء التشغيل يظهر مباشرة عند فتح القاعدة ويخفي قوائم الأكسس الافتراضية وعند النقر على مفتاح Ctrl+F11 يختفي شريط القوائم المخصص ويظهر شريط القوائم الخاص بالأكسس ، قد يكون هنام صعوبة في فهمها ولكن انقر على أدوات ثم تخصيص ثم جديد ثم اكتب اسم لشريط الأدوات الجديد ثم سيظهر في قائمة أشرطة الأدوات اختاره ثم انقر على زر خصائص ثم حوله الى شريط قوائم ثم إغلاق ثم ضع فيه القوائم التي ترغب في ظهور وسواء تختار من القوائم المضمنه أو القوائم الجديدة ثم إغلاق ثم افتح مربع حوار بدء التشغيل وانتقل الى شريط القوائم تجد اسم القائمة التي أنشأتها اخترها ثم موافق ثم أغلق القاعدة وأعد تشغيلها ستجد شريط القوائم قد ظهر واختفى شريط القوائم الخاص بالأكسس اضغط Ctrl+F11 سيختفي الشريط ويظهر شريط القوائم الافتراضي الخاص بأكسس . إذا لم ترغب في ظهور شريط القوائم المخصص فاضغط Shift باستمرار أثناء فتحه القاعدة لتعطيل خيارات مربع حوار بدء التشغيل على أنه بإمكانك إظهار شريط القوائم بالنقر بزر الفأرة الأيمن على شريط الأدوات واختيار تخصيص ثم اختيار شريط القوائم ثم إغلاق إذا لم يعطل كما سيأتي . 8- منع أو السماح بتأثير Shift عند بدء تشغيل القاعدة هذا الخيار غير ظاهر في مربع حوار بدء التشغيل وطريقته : ChangeProperty "AllowBypassKey", DB_Boolean, قيمة منع المستخدم من إيقاف الماكرو AutoExec أو الخيارات المحددة في بدء التشغيل عن طريق ضغطه لـ Shift عند بدء فتح قاعدة البيانات . استبدل قيمه بـ True لتمكين تأثير Shift وFalse لإيقاف تأثيرها . 9- السماح بتغييرات أشرطة الأدوات القوائم ChangeProperty "AllowToolbarChanges", DB_Boolean, قيمة يعطل أمر تخصيص في قائمة أدوات وكذلك لاتظهر القائمة اليمنى عند النقر بزر الفأرة الأيمن على قائمة أو شريط أدوات .استبدل قيمه بـ True للسماح بالتغيير وFalse للمنع من التغيير . 10- السماح بالقوائم المختصرة الافتراضية ChangeProperty "AllowShortcutMenus", DB_Boolean, قيمة وهي القوائم التي تظهر عند النقر على أحد كائنات القاعدة بزر الفأرة الأيسر لتنفيذ أوامر على هذا الكائن فمثلا النقر بزر الفأرة الأيمن على النموذج تظهر قائمة تحوي تصميم النموذج – طريقة عرض صفحة البيانات – خصائص وقد تتغير هذه بنود القوائم حسب خيارات أخرى . استبدل قيمه بـ True للسماح بظهور القوائم المختصرة الافتراضية وFalse للمنع . 11- شريط القوائم المختصرة ChangeProperty "StartupShortcutMenuBar", db_Text, "اسم شريط منبثق” لإظهار شريط قوائم مختصر للتطبيق ككل (ويسمى في مربع حوار تخصيص منبثق) ، تظهر هذه القائمة عند النقر بزر الفأرة الأيسر على الجداول أو الاستعلامات أو النماذج أو التقارير مالم تخصص شريط قوائم منبثق لأحدها ، وإذا رغب أحد في تعلم كيفية إنشاء قائمة منبثقة كتبتها له . ولإزالة الشريط المختصر : ChangeProperty "StartupShortcutMenuBar", DB_Text, "(default)" 12- شريط القوائم ChangeProperty "StartupMenuBar", db_Text, "اسم شريط قوائم” تخصيص شريط قوائم للقاعدة ككل يظهر عند بدء تشغيل القاعدة ، ولإزالته : ChangeProperty "StartupMenuBar", db_Text, "(default)" 13- استخدام التقويم الهجري ChangeProperty "HijriCalendar", DB_Boolean, قيمة لاستخدام التقويم الهجري أو غيره ، غير قيمه إلى True لاستخدام التقويم الهجري وإلى False لجعل التقويم ميلادي . ---------------------------------------------------------- جميع أسطر الكود السابقة تستدعي الدالة التالية : --------------------------------------------------------- Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Change_Err Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function طريقة مختصرة لتغيير أحد القيم السابقة بعد إنشائها بالدالة السابقة : Dim dbs As Database Set dbs = CurrentDb dbs.Properties![اسم الخاصية] = False dbs.Close وللقراءة أسند القيمة العائدة إلى متغير : Dim dbs As Database Dim Rr Set dbs = CurrentDb Rr= dbs.Properties![اسم الخاصية] dbs.Close ولكم تحياتي

كاتب الموضوع : الأخ أبو حمود: =================== الأخوة اليكم طريقة تغيير خيارات مربع الحوار بدء التشغيل : لتغيير الإعدادات في مربع حوار بدء التشغيل StartUp تم تقسيم تغيير إعدادات مربع حوار بدء التشغيل إلى إجراءين ودالتين لأن عنوان قاعدة البيانات ودليل أيقونة البرنامج يمكن أن يكونا فارغين مما يعطي خطأ في الدالة . (أولا) لتغيير عنوان التطبيق وأيقونة البرنامج : ضع الحدث التالي في المكان المطلوب : Dim intX As Integer Const DB_Text As Long = 10 intX = AddAppProperty("AppTitle", DB_Text, "عنوان جديد") intX = AddAppProperty("AppIcon", DB_Text, "C:WindowsCars.bmp") Application.RefreshTitleBar 1- السطر الثاني : إعلان عن ثابت من النوع Long ويمكنك حذف العبارة السابقة واستبدالها في السطر الثالث بـ dbtext أو db_text أو كتابة رقم 10 في نفس الموضع . 2- السطر الثالث : تم وضع المتغير intX لتخزين القيمة العائدة من الدالة AddAppProperty ، ثم الوسيطة الأولى اسم الخاصية والثانية نوعها والثالثة العنوان الجديد . وللسؤال عن العنوان الجديد ضع السطر التالي : intX = AddAppProperty("AppTitle", DB_Text, InputBox("اكتب العنوان الجديد:")) 3- السطر الرابع : هذا السطر خاص بوضع أيقونة للبرنامج أو تغييرها أو حذفها . ملاحظة : لحذف الأيقونة : intX = AddAppProperty("AppIcon", DB_Text, "") 4- السطر الخامس لغرض ظهور التعديل مباشرة في البرنامج . الحدث السابق يستدعي الدالة التالية : Function AddAppProperty(strName As String, varType As Variant, varValue As Variant) As Integer On Error GoTo AddProp_Err Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb dbs.Properties(strName) = varValue AddAppProperty = True AddProp_Bye: Exit Function AddProp_Err: If err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strName, varType, varValue) dbs.Properties.Append prp Resume Else AddAppProperty = False Resume AddProp_Bye End If End Function وعملها يتلخص في البحث عن العنوان أو الإيقونة السابقة في مربع حوار بدء التشغيل ، فإذا لم يجدهما (أي قيمهما في مربع النص الخاص بكل منهما) أو أحدهما يعطي خطأ فيبدأ تنفيذ الأسطر بعد الخطأ ؛ وهي لإنشاء اسم جديد . ولقراءة خاصية العنوان : Dim dbs As Database Set dbs = CurrentDb MsgBox dbs.Properties![AppTitle] dbs.Close (ثانياً) لتغيير بقية خيارات مربع حوار بدء التشغيل : ضع الحدث التالي في المكان المطلوب : 1 Const DB_Text As Long = 10 2 Const DB_Boolean As Long = 1 3 ChangeProperty "StartupForm", db_Text, "اسم نموذج" 4 ChangeProperty "StartupShowDBWindow", DB_Boolean, قيمة 5 ChangeProperty "StartupShowStatusBar", DB_Boolean, قيمة 6 ChangeProperty "AllowBuiltinToolbars", DB_Boolean, قيمة 7 ChangeProperty "AllowFullMenus", DB_Boolean, قيمة 8 ChangeProperty "AllowBreakIntoCode", DB_Boolean, قيمة 9 ChangeProperty "AllowSpecialKeys", DB_Boolean, قيمة 10 ChangeProperty "AllowBypassKey", DB_Boolean, قيمة 11 ChangeProperty "AllowToolbarChanges", DB_Boolean, قيمة 12 ChangeProperty "AllowShortcutMenus", DB_Boolean, قيمة 13 ChangeProperty "StartupShortcutMenuBar", db_Text, "اسم شريط منبثق" 14 ChangeProperty "StartupMenuBar", db_Text, "اسم شريط قوائم" 15 ChangeProperty "HijriCalendar", DB_Boolean, قيمة توضيح العبارات السابقة : 1- السطر الثالث : لاختيار نموذج الذي يفتح عند بدء تشغيل البرنامج (عرض النموذج/الصفحة). لعدم عرض نموذج عند بدء التشغيل استبدل اسم النموذج بالعبارة التالية "(None)" . 2- السطر الرابع : إظهار أو إخفاء إطار قاعدة البيانات (عرض إطار قاعدة البيانات) – True =إظهار وFalse=إخفاء . هو الإطار الذي يحوي كائنات التطبيق من الجداول والاستعلامات والنماذج والتقارير وصفحات البيانات والماكروات والوحدات النمطية . 3- السطر الخامس : لإظهار أو إخفاء شريط المعلومات (عرض شريط المعلومات) – True =إظهار وFalse=إخفاء . هو الشريط الذي يظهر أسفل إطار أكسسس . 4- السطر السادس : المنع أو السماح بأشرطة الأدوات المضمنة (السماح بأشرطة الأدوات المضمنة) – True =السماح وFalse=المنع . عند إزالة العلامة من مربع الخيار هذا ثم إغلاق التطبيق وتشغيله مرة أخرى تختفي كافة أشرطة الأدوات الخاصة بالأكسس وتبقى الأشرطة الخاصة بالتطبيق (التي من إعداد المستخدم) . 5- السطر السابع : المنع أو السماح بالقوائم الكاملة – True =السماح وFalse=المنع . تختفي القوائم الخاصة بالأكسس وتظهر قوائم تختص بالتحرير والطباعة والتعامل مع السجلات والإطارات والتعليمات وهي تفي بحاجة المستخدم من حيث إدخال وعرض البيانات خاصة إذا لم ترغب في إنشاء قوائم خاصة بالتطبيق . 6- السطر الثامن : لمنع المستخدم من الاطلاع على التعليمات البرمجية والأخطاء التي تحدث في وقت التشغيل . 7- السطر التاسع : (استخدام مفاتيح وصول خاصة) لمنع المستخدم من الوصول للمفاتيح التالية : (ALT+F1 (F11), CTRL+F11, CTRL+BREAK, and CTRL+G) فالأولى للوصول إلى إطار قاعدة البيانات والثاني للتبديل بين شريط القائمة المخصص وشريط القائمة المضمن والثالث لإيقاف التعليمات البرمجية والرابع لإظهار إطار التصحيح Dubeg . 8- السطر العاشر : منع المستخدم من إيقاف الماكرو AutoExec أو النموذج الموجود في بدء التشغيل عن طريق ضغطه لـ Shift . 9- السطر الحادي عشر : (السماح بتغييرات أشرطة الأودات / القوائم) يعطل أمر تخصيص في قائمة أدوات وكذلك لايظهر هذا الأمر عند النقر بزر الفأرة الأيمن على قائمة أو شريط أدوات . 10- السطر الثاني عشر : (السماح بالقوائم المختصر الافتراضية) وهي التي تظهر عند النقر على أحد كائنات القاعدة بزر الفأرة الأيسر . 11- السطر الثالث عشر : (شريط القوائم المختصرة) لإظهار شريط قوائم مختصر للتطبيق . ولإزالته : ChangeProperty "StartupShortcutMenuBar", DB_Text, "(default)" 12- السطر الرابع عشر : (شريط القوائم) لإظهار شريط قوائم خاص بالنموذج . ولإزالته نفس السطر ماقبل السابق . 13- السطر الخامس عشر : (استخدام التقويم الهجري) لاستخدام التقويم الهجري أو غيره . — الحدث السابق يستدعي الدالة التالية : Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer On Error GoTo Change_Err Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb dbs.Properties(strPropName) = varPropValue ChangeProperty = True Change_Bye: Exit Function Change_Err: If err = conPropNotFoundError Then Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ChangeProperty = False Resume Change_Bye End If End Function طريقة مختصر لتغيير أحد القيم السابقة بعد إنشائها بالدالة السابقة : Dim dbs As Database Set dbs = CurrentDb dbs.Properties!اسم الخاصية = False dbs.Close (التالي كان عبارة عن جدول فيحتاج منكم إلى تنسيق) الاسم في مربع حوار بدء التشغيل اسم الخاصية القيم عنوان التطبيق AppTitle عنوان نصي رمز التطبيق AppIcon دليل إلى ايقونة عرض النموذج/الصفحة StartupForm اسم نموذج من القائمة عرض إطار قاعدة البيانات StartupShowDBWindow True False عرض شريط المعلومات StartupShowStatusBar True False شريط القوائم StartupMenuBar True False شريط القوائم المختصرة StartupShortcutMenuBar True False السماح بالقوائم الكاملة AllowFullMenus True False السماح بالقوائم المختصرة الافتراضية AllowShortcutMenus True False السماح بأشرطة الأدوات المضمنة AllowBuiltInToolbars True False السماح بتغييرات أشرطة الأدوات / القوائم AllowToolbarChanges True False استخدام مفاتيح وصول خاصة AllowSpecialKeys True False عرض أو منع إظهار الكود بعد الخطأ* AllowBreakIntoCode True False منع تجاوز مربع حوار بدء التشغيل وكذلك الماكرو *AutoExec AllowBypassKey True False استخدام التقويم الهجري HijriCalendar True False * الأول والأخير منهما لايوجد لهما أدوات في مربع الخيار وإنما يمكن تعيين قيمهما عن طريق الفيوجل بيسك . ------ ملاحظة : يوجد فى المشاركة التالية فى نفس هذا الموضوع اعادة للشرح بتفصيل أكثر لأبو حمود أيضا -----

اذا كان المقصود اضافة خط بعينه فاعتقد أنه لا يمكنك اضافته مباشرة بالسحب مثل الوورد و لكن مازال يمكنك عمل ذلك بماكرو ووضع ايقون للماكرو او سحب الماكرو الي القائمة

موجود مربع سرد الخطوط داخل قائمة تنسيق Tools Customize Commands Format fonts بالعربي غالبا ستكون : ادوات تخصيص اوامر تنسيق خطوط