king5star

تسلم ايدك كلها افكار جميلة

وبارك عليك شكراً للمرورك الكريم .

إن شاء الله يومين على الأكثر وأقوم بتحميل الاصدار الثاني معه الفيديو ولكن اتمني تعليقات بطلبات أو مشاكل واجهتكم أثناء استخدام البرنامج لمعالجتها. وشكرا اخي على مرورك الكريم

السلام عليكم ورحمة الله وبركاتة فى البداية صورة توضيحية للمقصود الحمد لله الذى بنعمته تتم الصالحات فكرة عمل البرنامج انشاء قوائم احترافة للاكسس باستخدام Ribbon واوامر XML بدون تعب او شقاء او توهان فى الكود🧐 الاعدادات المطلوبة قبل التشغيل : 1- التأكد من ان المنطقة واللغة Arabic(Egypt) ولا يشترط ان تكون مصر فقط بل اى دولة عربية ولكن الاهم اللغة العربية خطوات التشغيل : 1- قم بأنشاء مشروع جديد يحمل مثلا أسم قاعدة البيانات الذى تريد تركيب الريبون عليها ومن ثم تحديد مسارها وستفيد هذه الخطوة أ- يانك سوف تصدر الريبون عليها دون استخدام اى شئ وسوف يكون فى الاصدار التالي بعد ايام ولكن حتى هذا الحين سوف اوضح كيفية التركيب . ب- سوف تستدعلى اسماء النماذج بالقاعدة وستعرف لماذا بالخطوة رقم 4 . 2- قم باختيار قائمة التبويب من الاعلي وانشاء تبويب جديد والحقة بالمشروع المنشئ مسبقاً والتبويب هو ( المشاريع - التبوييب - .... ) كما بالصورة بالاعلي . 3- قم بالدخول على المجموعات ومن ثم انشئ المجموعات داخل التبويب كمجموعة ( أضافة مشروع جديد ) كما بالصورة بالاعلي . 4- قم بالدخول لتاب العناصر والكنترول ومن ثم انشئ العناصر الذى تريدها داخل المجموعة المنشئه بالخطوة رقم 3 وعند اختيار نوع الكنترول انه Button سوف تجد اسماء النماذج بالقاعدة المحددة مسبقاً بالخطوة رقم 1 . 5- وبعد الانتهاء توجة الى المشاريع وافتح المشروع ومن ثم تصدير ملف Txt خطوات التركيب بالبرنامج لديك 1- قم بالضعط كليك يمين على ايقونه البرنامج بسطح المكتب الخاص بك ومن ثم open file location ستجد ملفان هما (basGDIPlus.bas - RibbonFunctions.bas) استدعهما من محرر الاكواد VB 2- وبعد ذلك قم بانشاء جدول تحت مسمي USysRibbons وبداخلة ثلاث حقول وهم Field Name Field Type Field Size ID AutoNumber Long Integer RibbonName Text 255 RibbonXml Memo وبحقل RibbonName اكتب اسم الشريط وبحقل RibbonXml قم بلصق الملف المصدر من البرنامج بالخطوة رقم 5 بالاعلى . ويجب ان تغلق قاعدة البيانات وتعيد فتحها بعد نسخ الشريط حتى يتم تحميلة ويظهر فى خصائص النموذج ومن اعدادت النموذج ثم غير ذلك ثم اسم الشرط اختار اسم الشريط لتجده ظاهراً وقريباً سوف اقوم بعمل فيديو توضيحي مع الاصداء الاحدث وبالتوفيق للجميع . AccessRibbonMaker.zip

امتى العطل دا بيطلع ركز معايا 1- فى مكتبة خارجة انت مستخدمها مكتبة "OCX" خاصة بالباركود مثال متسطبة على جهازك ولكن مش متسطبة على جهاز العميل يطلع العطل دا 2- اعدادت اللغة الاساسية والمنطقة لو مثال انت بتشتغل بلغة جهازك عربي والعميل انجليزي 3- فى بداية الكود بتستدعي مكتبة من مكتبات النظام زى User32 وبتستخدم بارميتر فيها فى بعض الاحيان Runtime مش بيقدر يشغلها فحاول انك تغير الكود 4- فى حالة استخدام خاصية النموذج عند الفتح وبستدعي ملف او صورة او اى حاجة من مسار محدد والمسار دا مختلف فى جهاز العميل . دى اغلب النقط الى بيتعمل العطل دا مع Access Runtime وبالتوفيق وبما ان المشكلة بتختفي مع النسخة الكاملة يبقى ركز فى النقطة رقم 3 اوي وخصوصاً مع النموذج الى بيفتح الاول ومشتقاته كنموذج فرعي او استداعاءات من دوال اخري .

بارك الله فيك وعلى المعلومات القيمة اخى @SEMO.Pa3x ولدى سؤال عن كيفية حساب ارباح العام .

شكراً للاهتمام وسرعة التجاوب

بسم الله ما شاء الله مجهود جبار بارك الله فيك اخي ووفقك الى ما تريد .

تسلم ايدك وفعلاً كنت محتاج حاجة زى دى بس عندي سؤال اعدادات اللغة فى تويب Administrative يجب ان تكون عربي كما موضح بالصورة هل من الممكن تعديلها برمجياً ايضاً .

ارسل الكاتالوج او نوع وموديل الميزان المستخدم .

ممكن تشارك بقسم الطلبات هتلاقي دعم افضل .

لا يمكن لان تم تحويل الملف الى ملف تنفيذي فقط يجب ان ترجع للمصدر وتعدل عليه .

اتمني يكون المطلوب ‫‫‫‫‫‫‫‫قاعدة الدورات التدريبية 5 والاخيرة - نسخة.rar

انا مش لاقي خطأ ومش عارف اوصل للمشكلة حتى الان ولكن ليلاً ساحاول مجدداً اعتذر لك اخي .

تمام انا كنت لسا براجع ان شاء الله نجد المشكلة .

لقد نظرت الي قاعدة البيانات الخاصة بك ووجدت انه بالفعل الارقام الموضحة المفترض ان يبدأ بها بدأ بها بالفعل فى المنازل الخاصة بالمنتظم كما يشير السهم الازرق ولكن انت لم تستدعها بالتقرير ولكن البيانات المدخلة انها هى بالفعل الظاهرة كما هو موضح بالصورة :

الحمد لله الذي وفقني ووفقك . وعفواً اخي @حامل المسك تحت امرك باي وقت . وبارك الله عليك ووفقك دائماً . شكراً خى @أبو عبدالله الحلوانى لاهتمامك ومرورك الكريم .

بامكانك تعديل الشروط بالاستعلام Final حسب ما تحب ! كما ان التعديل يفي بالمطلوب حسب الشروط الموضحه بالاعلي . واعتذر لك ان لم يصلنى المطلوب بشكل سليم فان امكن التوضيح اكثر وسنصل سوياً للهدف بأمر الله ❤️ .

Private Sub Form_BeforeInsert(Cancel As Integer) If Nz(Count(Me.[column1]), 0) > Me.Parent![TargetCount] Then ' معادلة للتأكد من بلوغ الحد الاقصي لعدد البنود المطلوب فى النموذج الاب Me.Undo 'الغاء العملية الاخيرة MsgBox "لقد وصلت للحد الاقصي لعدد البنود" 'تنبيه بالوصول للحد الاقصي Me.AllowAdditions = False 'ايقاف الاضافة بالنموذج الفرعي End If ' Nz(Count(Me.[column1]), 0) > Me.Parent![TargetCount] End Sub كنت اتمنى وجود مثال مبسط بعيد عن البرنامج الرئيسي للتعديل عليه مباشراً والتحقق من النتائج . وعند عدم معرفة استخدام الكود برجاء ارفاق مرفق للتعديل عليه . بالتوفيق .

اتمني يكون المطلوب CK.accdb

اتمنى يكون المطلوب تنبه بوجود مسبق.accdb

السلام عليكم فى البداية اشكر فريق العمل على المحافظة على هذا الكيان ودعمه باستمرار اقتراحى هو : اضافة زر مفضلة او ستار على المشاركات التى اريد الاحتفاظ بها لمراجعتها او استخدامها لوقت لاحق فستسهل كثيراً من الامور . ولكم جزيل الشكر .

هل كل الموظفين ام المحددين وعند ترحيلهم يظهرو مره اخري فى نفس النموذج ام المرحل لا يظهر ولو على الترحيل استخدم هذا الكود : DoCmd.RunSQL "INSERT INTO tbl_Retr SELECT tbl_BB.* FROM tbl_BB;"

وبارك عليك اخي اما السؤال فلا يمكن وضع نصوص او كلمات او احرف او رموز داخل حقل نصي ولكن ممكن انشاء وحدة نمطيه تحدث البيانات المرتبطة وتغير حقل الربط لاى شئ تريدة بشرط يكون مفهرس وبارك الله فيك اخى ووفقك الله دائماً الى ما تحت وترضي . كود ممتاز اخى @kha9009lid شكراً لمشاركة الخبرات

فى حدث عن التحميل فى التقرير يوجد التعديل . امتحانات.mdb