نجوم المشاركات

السلام عليكم ورحمة الله وبركاتة فى البداية صورة توضيحية للمقصود الحمد لله الذى بنعمته تتم الصالحات فكرة عمل البرنامج انشاء قوائم احترافة للاكسس باستخدام 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

انظر الصور ربما تفي بالغرض <<<<<<<>>>>>>>

تفضل <<<<<<<<>>>>>>> الجدول_Kanory.accdb

جرب المرفق واعلمنا بالنتيجة <<<<<<<<>>>>>>> export _kanory.accdb

هذا المثال مبسط لفهم الفكرة ..... Fatoorh2000.mdb

بارك الله فيك وبالتوفيق .....

كود اخي الوزير يعمل بكفاءة .... كيف لا يصفي الباركود ؟؟؟؟؟؟؟

استخدم هذا ... <<<<<<<<<>>>>>>>>> .usedRange.rows(1).Interior.Color = vbYellow تفضل ملفك .... export _kanory.accdb

هكذا <<<<<>>>>>> DoCmd.OpenReport "rpt_class", acViewPreview, , "class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'" دائما الشروط تكتب بين علامتي تنصيص انظر للكود بعد تفريغ الشرطين يصبح هكذا DoCmd.OpenReport "rpt_class", acViewPreview, , "هنا بكتب جميع الشروط والمعاريير" وهذا شكل الشرطين class Like '*" & Me.lst4.Column(1) & "*' AND class Like '*" & Me.lst4.Column(1) & "*'

بالعكس النتيجة شغال في الحالتين ..... فقط تأكد من اسم الجدول المرتبط .....

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

بارك الله فيك ...... بالتوفيق ,,,,,,,

تمام ... جزاكم الله خيرا

إحدى الفوائد اختصار المعادلات وسهولة تسمية النطاق باسم يعبر عن مضمونها مثلا قائمة الأصناف موجودة في sheet1!a5:a40 فيمكن تسمية هذا النطاق products وبدلا من كتابتة هذا النطاق في المعادلة نكتب كلمة products بالتوفيق

عفوا لتأخير في الرد حضرتك ما الفائدة منها

جميعا بإذن الله

كل الشكر والتقدير لكل من مر وحاول واجتهد للمساعدة وشكرا اخي الفاضل ا/ محمد صالح للحل الرائع جزاك الله خيرا

وعليكم السلام ورحمة الله وبركاته حاولت ايجاد علاقة او فهم طريقة كتابة الارقام فلم استطع مثال ما وجه العلاقة او المعيار بين الارقام التالية 41/25 41/22/252 44/25/25/1 بمعني كيف تبدأ الارقام لديك ؟ وكيف تنتهي وبتدأ / جديد هل بالشكل التالي 41/1 >>> 41/99 42/1 >>> 42/99 41/22/1 >>> 41/22/99 42/22/1 >>> 42/22/99 44/25/25/1 >>> 44/25/25/99 45/25/25/1 >>> 44/25/25/99 ام انك تريد زيادة على اخر رقم فقط 44/25/25/3 >>> 44/25/25/99 اشرح اكثر بارك الله فيك عن كيفية كتابة الرقم وطريقة الزيادة تحياتي

What about this code Sub Test() Dim w w = Evaluate("ROW(1:" & .Cells(.Rows.Count, "B").End(xlUp).Row - 1 & ")") .Range("A2").Resize(UBound(w, 1)).Value = w End Sub

هذه هي المعادلة الموجودة في الملف الاصلي =Sum(IIf([iPage]=1 Or [iPage]=0 Or [iPage]=0 Or [iPage]=0;0;[iAmount])) المعيار iPage = 0 او iPage =1 ولو لاحظت لا يحتوي هذا الا على هذا المبلغ = 200 DATA1041-5.rar تحياتي

للأسف أخي الكريم طريقتك تقارن بين قيمة الخلية والخلية b4 فقط ولا تقارن بين الخلية في العمود A وخلية العمود b التي تجاورها

اصغر من اكبر او يساوي

استخدم هذا الكود <<<<<<<>>>>>>>> On Error Resume Next Dim resbtndelete As String resdelete = MsgBox("هل تريد حذف المنتج ؟", vbYesNo, "تنبيه") If resbtndelete = vbYes Then DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbl_Fatoora2.ID_Haraka, tbl_Fatoora2.Product_Name_Haraka " & _ " FROM tbl_Fatoora2 " & _ " WHERE (((tbl_Fatoora2.ID_Haraka)=[forms]![frm_Fatoorabuy]![Invoice_ID]) AND ((tbl_Fatoora2.Product_Name_Haraka)=[Forms]![frm_Fatoorabuy]![w1].[Form]![Product_Name_Haraka]));" DoCmd.SetWarnings True 'DoCmd.RunSQL ("delete * from tbl_fatoora2 where [ID_Haraka]=" & Forms!frm_Fatoorabuy!Invoice_ID) DoCmd.Requery End If

وهذه مشاركة بطريقة اخرى مع الاساتذة الكرام <<<<<<<>>>>>>> 1678743215_.accdb

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

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

هكذا يفعل غير المسلمين donate coffee لكن بعض المسلمين ..... لا يعرفون أن العطاء سعادة وهذا الشعور هو الذي يدفع من يساعد الآخرين إلى عمل ما يقوم به تطوعا وفقنا الله جميعا لكل ما يحبه ويرضاه

تفصل اخي الكريم Dim X As String Dim X1() As String Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.RecordsetClone.RecordCount X = Nz(DLookup("[سعر الوحدة] & '|' & [الوحدة] & '|' & [الصنف] & '|'", "اكواد", "[كود الصنف]='" & Me.كود_الصنف & "'"), "||||") X1 = Split(X, "|") Me.وحدة = X1(1) Me.السعر = X1(0) Me.اسم_صنف = X1(2) Call كود_صنف_AfterUpdate DoCmd.GoToRecord , , acNext Next 2استعلام.rar تحياتي