نور الدين وليد

اكتب فى الزر هذا الكود DoCmd.RunCommand acCmdSaveRecord DoCmd.RunCommand acCmdSelectRecord DoCmd.RunCommand acCmdPrintSelection

تفضل التعديل modaf.rar modaf.rar

السلام عليكم ورحمة الله وبركاته الحمد لله على عودة الموقع من جديد نكمل معكم ان شاء الله ما بدأناه فىى هذا الموضوع وهو طريقة انشاء شريط ادوات بواسطة Xml وقد تعلمنا كيفية اضافة تبويب Tab جديد وكيفية اضافة المجموعات Groups الى التبويب Tab واليوم ان شاء الله نتعلم كيفية اضافة الادوات كالازار وغيرها الى التبويب كان هذا هو الكود الذى وصلنا اليه فى نهاية الموضوع السابق <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> وهو يقوم بانشاء تبويب جديد واضافة مجموعة جديدة بداخله وكما لاحظنا فان جميع الوسمة متداخله ف ribbon بداخلها Tab ثم Group واخيرا بداخله الاوسمة الخاصة بالادوات عندما نقوم باضافة ادوات نعرف الاداة كما يلى <سمات الاداة معرف الاداة اسم الاداة/> اسم الاداة هو تحديد اذا كانت زر او خانة اختيار او قائمة منسدلة وغيرها ثم معرف الاداة وينقسم معرف الاداة الى قسمين اما معرف مايكروسوفت اوفيس او معرف خاص فالمعرف الخاص بالاوفيس هو الادوات الموجودة فى الاوفيس اصلا كالنسخ واللصق والمحاذاة وغيرها اما ان اردنا انشاء اداة خاصة بنا نستخدم معرف خاص نختاره كيفما نشاء ثم سمات الاداة وهى باختصار تشبه خصائص الاداة كالحجم والتسمية التوضيحية والصورة وغيرها وهذه اكثرها استخداما Enabled تستخدم لمعظم الادوات Visible اظهار او عدم اظهار ID/IDMso المعرف الخاص بالعنصر Image/ImageMso الصورة الخاصة بالعنصر InsertAfterMso لتحديد مكان العنصر بعد عنصر آخر InsertBeforeMso لتحديد مكانه قبل عنصر آخر Lable التسمية التوضيحية Size الحجم والآن بعد هذا الطلاع على طريقة تعريف الاداة بشكل عام دعونا نعرف تفاصيل اكثر بالتطبيق العملى <button idMso="Cut" label="My Cut Button"/> هذا هو كود انشاء زر قص Cut وكما قلت سابقا اسم الاداة button وبعد ذلك المعرف وهنا استخدمنا المعرف الخاص بالاوفيس Cut ونستخدم هذه الطريقة عندما نريد ادراج اى من الادوات الموجودة بالاوفيس والاكسيس ولمعرفة المعرف الخاص باى اداة مثلا التصدير لاكسيل افضل طريقة هى كما بالصورة نجد ان المعرف مكتوب بين قوسين وهو فى هذه الحالة ExportExcel ويجب الانتباه لحالة الاحرف <button idMso="ExportExcel" label="Export To Excel By XML" /> وكما قلنا سابقا ان هناك العديد من الخصائص او السمات التى نقوم بتمريرها للعنصر وجيمعها اختيارى ما عدا ال ID فاذا ادخلنا مثلا الكود بهذه الطريقة دون تحديد خاصية Size لهذا الزر نلاحظ ظهوره بالشكل الافتراضى الصغير وكذلك صورة الامر Cut الافتراضية وهو هكذا اذا اردنا ان تجعل حجمه يظهر بشكل كبير علينا ان نقوم باضافة السمة Size الى الكود ليصبح بهذا الشكل والخاصية size= اما normal كما فى الصورة السابقة او large كما فى الصورة التالية <button idMso="Cut" label="My Cut Button" Size="large" /> وكذلك الخاصية Enabled <button idMso="Cut" label="My Cut Button" Size="large" enabled="false" /> واذا اردنا تغيير خاصبة Visible اخفاءالامر cut نكتب كما يلى <button idMso="Cut" visible="false" /> اما الخاصية InsertBeforeMso و insertAfterMso فتكون كالتالى <button idMso="ExportExcel" label="Export For EXC" size="large" insertBeforeMso="Cut" /> فهذا الكود يقوم بانشاء زر التصدير لاكسيل ويضعه قبل الامر Cut الذى انشاناه سابقا وان اردنا ان يضعه بعده فنغير InsertBeforeMso الى insertAfterMso وهكذا اعتقد اننا قد انتهينا من شرح اهم الخصائص فى الازرار وكيفية استخدامها وكيفية انشاء زر يقوم بمهمة مضمنة فى الاوفيس اما بالنسبة لعمل زر يقوم بتنفيذ امر مايكرو فيكون الكود هكذا <button id="Msg" label="Hello" Size="large onAction="اسم الماكرو" /> و onAction هو عبارة عن سمة نكتب بها ما يحدث عند التفاعل مع الاداة كالضغط على الزر فى هذه الحالة ويصبح الكود النهائى حتى الآن <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> <button idMso="Cut" label="Cut" size="large" /> <button idMso="ExportExcel" label="Export For EXC" size="large" insertBeforeMso="Cut" /> <button id="RunMacro" label="Open" size="large" imageMso="ViewsFormView" onAction="OpenForm"/> </group> </tab> </tabs> </ribbon> </customUI> وان شاء الله فى الدرس القادم نتحدث عن ربط الازرار بالماكرو والكود بتفصيل اكثر مرفق لكم القاعدة وبها ما شرحته Ribbon Customizations.rar

السلام عليكم اخى اطرح السؤال فى الموضوع الخاص بالبرنامج ربما يجيبك مصمم البرنامج

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

السلام عليكم الآن ننتقل الى كود XML وكيفية انشاءه. كود XML لتخصيص شريط ادوات يبدأ ب <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> هنا نضع الكود الخاص بانشاء شريط الادوات <tabs> </ribbon> </customUI> طبعا انا هنا لن اتطرق لمفاهيم لغة XML لان هذا ليس موضوعنا كما اننى لا اعرف عنها الكثير ساشرح فقط ما نحتاجه لتخصيص شريط الادوات اولا نفتح CustomUI ونغلقه كما بالكود اعلى وبداخله نفتح Ribbon ونغلقه وننتبه لحالة الاحرف فى بداية Ribbon نكتب "StartFromScratch="false وهذه الخاصية اذا ضبطت على False تقوم بعمل الشريط بعد الاشرطة الافتراضية اما True تقوم باخفاء الاشرطة الافتراضية بعد ذلك نكتب الكود التالى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> rRibbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true"/> </tab> </tabs> </ribbon> <CustomUI> هذا الكود يقوم باضافة tab جديد حيث customTb1 المعرف الخاص بالشريط MY NEW TAB الاسم الذى يظهر للمستخدم Visible="true" عملية اظهار الشريط الجديد ثم نقوم باضافة المجموعات الخاصة بالشريط بنفس الطريقة حيث نستبدل TAB ب Group <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb1" Label="MY NEW TAB" visible="true" > <Group id="CustomGR1" Lable="My Group"> </Group> </tab> </tabs> </ribbon> </customUI> نضيف المجموعة customGR1 المعرف الخاص بالمجموعة MY Group الاسم الذى يظهر للمستخدم قوموا بتنفيذ هذه الخطوات ثم اغلاق قاعدة البيانات ثم اعادة فتحه و قوموا بالذهاب الى options واختيار Current DataBase ومن ثم فى جزء Ribbon And Tool Bar Options اختار الشريط الذى قمنا بتصميمه ان شاء الله فى المشاركة القادمة نشرح كيفية اضافة الادوات والازرار الى الشريط والمزيد من خصائصها وبعدها ان شاء الله نشرح كيفية التحكم فى وقت فتح هذه الاشرطة سواء تخصيصها لفورم معين او فتحها عند فتح البرنامج وهذه القاعدة تنفيذ لما تعلمناه وهذا الكود النهائى <customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui"> <ribbon startFromScratch="false"> <tabs> <tab id="customTb" label="MY NEW TAB" visible="true"> <group id="dbGroup" label="’My Group"> </group> </tab> </tabs> </ribbon> </customUI> Ribbon Customization Using XML.rar ملاحظات : 1- يجب الالتزام بحالة الاحرف الكبيرة والصغيرة 2- <ribbon>,<tab>,<group> هذه الاشياء تسمى فى لغة XML الاوسمة ومعظمها يفتح ثم يغلق ويفتح <الاسم> ويغلق <الاسم/> 3- لغة XML ليس لها اوسمة مخصصة شجعونى بآرائكم ومن كانت عنده زيادة او انتقاد او سؤال فلا يبخل علينا به

السلام عليكم ورحمة الله وبركاته الآن سنقوم بشرح الطريقة الجديدة لاضافة شريط ادوات باستخدام لغة التوصيف XML اولا: نقوم باضافة جدول نظام جديد: ننشئ جدول فى عرض التصميم وتكون حقوله كالآتى Field Name Type Field Size ID AutoNumber Long Integer RibbonName Text 255 RibbonXml Memo ونسميه USysRibbons ونحفظه نلاحظ اختفاء الجدول وذلك لان الجداول التى تبدأ ب USys او يعتبرها الاكسس من جداول النظام نفتح الجدول فى طريقة عرض Data Sheet ونضيف اول Tool Bar نضيف اسم الشريط ثم كود XML وهذا ما سنشرحه فى مشاركة قادمة ان شاء الله

السلام عليكم ورحمة الله وبركاته اخوانى الكرام بالمنتدى كل عام وانتم بخير وتقبل الله منا ومنكم صالح الاعمال لاحظت انه يوجد اسئلة حول كيفية انشاء شريط ادوات مخصص لاكسيس 2007 و 2010 حيث انه فى الاصدارات السابقة من اكسيس 2003 و 2000 كان يمكنك بواسطة الاكسيس نفسه ان تقوم بهذا الامر اما فى اكسيس 2007 وما فوق فيوجد عدة طرق لكنها لا تاتى بالغرض دائما الطريقة الاولى : هو الذهاب الى File فى حالة 2010 او زر الاوفيس فى حالة 2007 واختيار Options ثم 1- الذهاب الى Customize Ribbon ونختار New Tab ونلاحظ ظهور شريط او تبويب جديد باسم (New Tab (custom وتحته مجموعة Group جديد باسم (New Group (custom وهذا يكون بشكل افتراضى ولتغيير اسم التبويب نحدده ونضغط Rename ونكتب الاسم ولتسمية Group نحددها ونضغط Rename 2- اضافة الازرار نقوم بعد ذلك باضافة الازرار بواشسظة السحب والالقاء Drag Drop ويمكن ان نختار الازرار التى نريدها من القائمة فى الاعلى والتوضيح فى الصورة هذه الطريقة لاضافة اوامر موجودة بالاكسيس اصلا ك النسخ واللصق والمحاذاة باختصار الاوامر الموجودة بشريط الادوات 3- اذا اردنا ان قوم باضافة زر يقوم بعمل شىء مخصص مثلا يقوم بفتح فورم معين اولا نقوم بانشاء الماكرو الخاص بالعملية ونسميه مثلا OpenForm والآن نذهب الى Customize ونختار Macros ثم نضيف الماكرو الذى نريده واخيرا يمكن اظهار او عدم اظهار اى من التبويبات باغاء علامة check بجانبها وهكذا نكون قد انتهينا من الطريقة الاولى وعيوب هذه الطريقة انها تطبق على جميع قواعد البيانات الموجودة عندك وليس على واحدة فقط اذا نقلت قاعدة البيانات الى جهاز آخر لا تعمل الاشرطة لان هذا التخصيص يكون فى الاكسس نفسه ويمكن حل هذه المشكلة بتصدير التخصيص ثم نقله الى الجهاز المطلوب واستيراده

للرفع

= sum ([اسم الحقل]) اكتب هذا فى تكستبوكس فى التذييل

السلام عليكم ورحمة الله وبركاته انا عندى اكسيس 2010 قمت بعمل تبويب جديد من خلال Customize Ribbon الموجودة فى قائمة File فى Options وسميته My Screen وعملت واحد آخر واسمه Reborts ما اريده هو عند فتح البرنامج يظهر تبويب My Screen فقط وعند فتح فورم معين وليكن Reports يظهر التبويب Reports ويختفى My Screen

السلام عليكم اولا بالنسبة لطريقة الاخ كريمو2 فهى تقوم بالمطلوب لكن مشكلتها ان الناتج لا يخزن فى الجدول تفضل هذا المرفق ولكن لا يعمل الا مع 2010 وهو تحويل نوع الحقل الى calculated وكتابة المعادلة example.rar وهذا يعمل مع كل الاصدارات بواسطة الكود فى الحدث After Update للحقل الخاص بالسنة والمجموعة والفصل example - Copy.rar

السلام عليكم فكرة جيدة ولكن اعتقد ان مجرد نموذج كهذا جعله مخفى لا يؤثر على البرنامج كما انه احيانا احتاج اظهر بيانات المستخدم بنموذج اخر وهذا اسهل من عمل جدول جديد وقد تستخدم هذه الفكرة فيما اذا اردنا تسجيل اسماء المستخدمين اللذين قاموا بطباعة تقارير معينة مع ادراج وقت وتاريخ طباعتها وكذلك وقت تعديل البيانات شوف الرابط http://www.officena.net/ib/topic/62986-مطلوب-كود-تقرير-يوضح-وقت-وتاريخ-طباعه-الفاتورة-وايضا-المستخدم-معدل/

ده يكون راجع لعدم انشاء العلاقات او مشكلة فيها حاول تعدل العلاقات او ترفع المرفق للتعديل

السلام عليكم اخى المهاجر اعتقد ان الخطا عندك ان فى نموذج تسجيل الدخول يوجد كود يغلق النموذج بعد التسجيل وهذا ما نبهت عليه فى المثال اذ لا يمكن التوصل الى بيانات نموذج الا عند كونه مفتوحا لذا اجعل الخاصية visible للفورم = false بدلا من اغلاقه وهكذا يبقى مفتوح لكن غير ظاهر

وجزاك الله كل خير

عفوا كان هناك خطا وهو بدلا من y نكتب "YYYY" وتفضل التطبيق العملى Database2.rar

اولا فى الفورم فى وضع التصميم : حدد الفورم ثم اذهب الى الخصائص ومن تبويب event او الاحداث اختر current او حالى واضغظ على المربع تظهر نافذة محرر الاكواد code builder الصق الكود السابق مع ملا حظة تغيير enddate الى اسم الحقل الذى يوجد فيه التاريخ

قم بوضع عذا الكود فى الحدث حالى (current) If [endDate] = Now() Then [endDate] = DateAdd("y", 1, [endDate]) End If

تقضل التعديل تقييم الاداء الوظيفي.rar تقييم الاداء الوظيفي.rar

احيانا تظهر هذه رسالة ايضا

عندما اعمل ضغط واصلاح تظهر نفس الرسالة ولكن وكلما اغلقها تظهر ثانية وينتهى الامر باستخدام task manager لاغلاق البرنامج

السلام عليكم ورحمة الله وبركاته عندى مشكلة فى قاعدة بيانات للمخازن اول ما افتح الرنبامج تظهر الرسالة كما ب الصورة وعندما اغلق الرسالة تظهر ثانية واغلقها حتى يفتح البرنامج وعند فتح اى كائن جدول او فورم او غيره تظهر نفس الرسالة اريد ان اعرف ما هو الخطا وكيف يمكن اصلاحه وجزاكم الله خيرا

من خاصية group and sort فى التقارير اختر add group واختر حقل رقم العميل ستلاحظ اضافة جزء جديد فى التقرير اسمه costumerID Header ضع فيه اسم العميل ورقمه وفى حزء details ضع الحقول الخاصة بالاقساط واذهب الى الجروب مرة اخرى واختر من الخيارات with footer وضع فيه مجموع الاقساط ان كان الشرح غير واضح شوف الفيديو ده وان لم تستطع التنفيذ ارفع المرفق او حتى نسخة خالية من البيانات وخالية من كل شئ ماعدا الجدولين والتقرير وسوف اقوم بالتنفيذ واجراء الشرح بالصور

قم بعمل group حسب اسم العميل واضف المجموع فى group footer او ارفع المرفق للتعديل