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

فى نموذج التعديل أو لااضافة ضع الكود التالي 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 بالعربي غالبا ستكون : ادوات تخصيص اوامر تنسيق خطوط

الموضوع ليس اكسيل فقط و لكنه مليء بالمصطلحات الرياضية و سافتح المجال لمن لديه المام أكثر بالموضوع : هذا ما فهمته من التعليمات : الدالة Trend تعطيها مجال البيانات المتاح من س و ص و تستنتج لك القيمة ص المناظرة ل س جديدة بناء علي المعطيات س = x ص = y بناء علي امتداد معادلة خطية يتم استنتاجها من القيم المتاحة باستخدام طريقة رياضية تسمي Least square الدالة FORECAST تقوم بنفس المهمة للمعادلة y=mx+b أي يمكن تعربف ثابت اضافي فيها و في النهاية تستنتج Y المناظرة ل x و b ايضا الاستنتاج يتم بما يسمي Linear regression و مرفق مثال يوضح حالة trend و حالة Forecast بثابت و بدون أما عن الفارق ببين الزيادة الخطية و الاسية فهذا لا يخص الدوال و لكنه يخص أمر Edit Fill Series فمثلا 1 2 يكملها اكسيل 3 4 لو الزيادة خطية و يكملها 4 8 16 لو الزيادة أسية Trend.rar

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

مرفق المثال و يمكن اختيار مجموعات الحروف المطلوب اعتيارها متماثلة من مربعات الخيار علي اليسار و ايضا هو تطبيق لفكرة البحث الفوري بمجرد الكتابة التي طرحها الاخ طارق و مضاف عليها انه بالنقر المذدوج علي مربع كتابة حروف البحث تظهر شاشة zoom و التي تمكننا من كتابة كلمات متتالية و مسافات بين الكلمات ، و الذي لم يمكن عمله فى المثال الاصلي ملاحظة : أيضا يمكن تفعيل شاشة الزوم بخلاف النقر المذدرج بالكريقة الطبيعية بكتابة Shift + F2 Search.rar

هذه الدالة لأخونا أبو هاجر و الهدف منها استبدال كلمة البحث التي تحوي الحروف المتناظرة مثل ا أ آ Dim tempstr As String Dim tempend As String tempstr = Me.ser_txt If tempstr Like "*[أاإ]*"Then tempend = "" For b = 1 To Len(tempstr) If mid(tempstr, b, 1) = "ا" Or mid(tempstr, b, 1) = "إ" Or mid(tempstr, b, 1) = "أ" Then tempend = tempend & "[أاإ]" Else tempend = tempend & mid(tempstr, b, 1) End If Next End If

أخي الكريم لتسجيل القيمة فى جدول يتم الكود الذي ذكره الأخ أنسي و يمكن وضع نفس الجملة فى حدث بعد التعديل للتاريخ الأول و التاريخ الثاني مع اضافة nz لتحسب كون احد التاريخين خالي Private Sub d1_BeforeUpdate(Cancel As Integer) Me.dd.Value = Nz(Me.d2 - Me.d1 + 1) End Sub Private Sub d2_BeforeUpdate(Cancel As Integer) Me.dd.Value = Nz(Me.d2 - Me.d1 + 1) End Sub حيث dd هو الحقل الذي مصدر بيانته حقل المجموع فى الجدول

يوجد من ضمن مجموعة صندوق الادوات التي تختار منها الزر زر آخر يشبه العصا السحرية اضغط عليه قبل اختيار الزر

من مجلد الفونت داخل مجلد الويندوز أو من هنا http://www.arabsgate.com/software/arabic_f...nts/index.shtml

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

اذا كنت تقصد أنك أدرجت كائن عبارة عن ملف وررد جربت أوامر refresh , requery للكائن و المنوذج سريعا و لم تنجح فى التحديث الفوري حل مؤقت : فاذا كان الاغلاق و الفتح هو الحل فيمكنك وضع الكود التالي فى حدث عند عداد الوقت Private Sub Form_Timer() Dim m As String m = Me.Name DoCmd.Close DoCmd.OpenForm m End Sub و اختيار الفترة Timer interval 10000 مثلا أي 10 ثواني سيتم التحديث التلقائي

طريقة الاستخدام هي فتح قاعدة جديدة ثم تعريف الملف السابق ارفاقه كاضافة Add-in فى أي ملف جديد من Tools Add-ins ثم تشغيل هذه ال Add-in و منها نحدد القاعدة الهدف ثم نستورد منها التقارير و النماذج

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

السلام عليكم بما أن عدد السجلات يظهر فى الرسالة ، فهذا مؤشر جيد لكن الا تأتيك رسالة بعدها بسبب فشل الالحاق ؟؟ أحد الاحتمالات هو عدم تناظر أنواع الحقول بين الجداول ، مثل أن تحاول الحاق قيمة نصية الي حقل رقمي أو أن يكون الالحاق يخالف قواعد الفهارس و التكرار بمعني أن هناك حقل مثلا ممنوع التكرار فيه و تريد الحاق قيمة مكررة اليه أو أن يكون هناك حقل مطلوب ( required ) و لا تشمله عملية الالحاق فبالتالي لا يتم تسجيل السجل اذا لم تنجح المحاولة ، فارجو رفع الملف علي اي موقع تحميل مجاني ، فقد تأتيك اجابة أفضل و أسرع من أحد الأخوة ، فضلا عن ان التراسل المباشر فى مواضيع المنتدي يخالف قواعد المشاركة طلبا لعموم الفائدة مع تحياتي