كل الانشطه

البرمجة مثل الطبخ ، هناك عدة طرق للطبخ ، وانا هذه طبختي لهذا الموضوع قد تكون مشاركتي مخالفه بوضع مادة تختلف عن طلب صاحب السؤال ، ولكنها بديل. هذه الفكرة لم تخطر على بالي لم يعطني الكود كاملا بحيث اعمل نسخ/لصق. انا تعمّدت عدم وضع الكود الذي عملت به القائمة المختصرة ، حتى يعرف المستخدم ان الكود غير ضروري لنسخ القوائم المختصرة بين قواعد البيانات. ان شاء الله سأفتح موضوع جديد تكملة لموضوعي السابق عن القائمة المختصرة (باقي اشياء بسيطة ، حتى اغطي اكبر كمية من الاختيارات) ، واحاول ايجاد كود يُرجع القائمة المختصرة الى ملف نص.

إضافة للاستاذ كما تفضل ملف عملي طرح تاريخين.xlsx

شكرا وفقك الله

وعليكم السلام-تفضل طالما انك لم تقم برفع ملف موضح به المطلوب بكل دقة ,وفى طلبك وبالمعادلات العادية لا يوجد أفضل من معادلة DATEDIF

مشاركة مكررة ....................وجب الحـــذف

السلام عليكم ورحمة الله وبركاتة الزملاء الكرام ازاي اطرح طريخين ويديني الفرق سنة وشهور لاني الدالة DATEDIF بتجيب خطاء هل فية طريقة اخري او اسهل

السلام عليكم مساعدة حضراتكم في هذا الامر ضروري Egypt Moulded schedule 03-03-2025.xlsx

ارجوا الرد من الزملاء الافاضل

سألت الذكاء الاكتروني فأعطاني هذا الكود .. واعتبره هندسة عكسية لم اجربه بعد على اعتبار اسم الدالة المضافة : SCM_Copy Sub ExportMyCustomMenu() Dim cmb As CommandBar Dim ctrl As CommandBarControl Dim fileName As String Dim fileNo As Integer ' تحديد مسار حفظ الملف النصي الذي سيحتوي على تفاصيل القائمة fileName = CurrentProject.Path & "\SCM_Copy_Structure.txt" fileNo = FreeFile Open fileName For Output As #fileNo On Error Resume Next ' محاولة الوصول للقائمة المخصصة التي أنشأتها Set cmb = CommandBars("SCM_Copy") If cmb Is Nothing Then MsgBox "لم يتم العثور على القائمة المعنية!", vbCritical Close #fileNo Exit Sub End If ' كتابة تفاصيل القائمة الرئيسية Print #fileNo, "=== Custom Menu: " & cmb.Name & " ===" Print #fileNo, "Type: msoBarPopup" Print #fileNo, "-----------------------------------" ' المرور على كافة الأزرار والخيارات داخل القائمة واستخراج خصائصها For Each ctrl In cmb.Controls Print #fileNo, "Control Caption: " & ctrl.Caption Print #fileNo, "Control Type: " & ctrl.Type Print #fileNo, "On Action (الوظيفة المرتبطة): " & ctrl.OnAction Print #fileNo, "FaceID (أيقونة الزر): " & ctrl.FaceId Print #fileNo, "-----------------------------------" Next ctrl Close #fileNo MsgBox "تم استخراج هيكل الدالة والقائمة بنجاح في ملف نصي بجانب قاعدة البيانات!", vbInformation End Sub

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

عمل جميل ومتقن ، وبديل عن شريط أدوات التقارير بفكرته الأولى 💐

السلام عليكم اذا الاكسس يعمل شيء معين ، فعادة انا لا عمل شيء بديل عنه ، مثل الانتقال من صفحة الى اخرى ، فالاكسس به هذه الخاصية ، وكما ان لون النص وحجمه ، هما من عمل المبرمج ، فلن تراني اضعه في يد المستخدم. بدلا عن هذا الشريط ، اليكم طريقة اسهل في التعامل ، ولست بحاجة الى سطر من البرمجة. من برنامجك استورد البرنامج المرفق (البرنامج لا يحتوي على اي كائن ، غير القائمة المختصرة) . . وفي تقريرك في وضع التصميم : . الآن افتح التقرير في وضع معاينة ، وبالنقر على زر الفأرة اليمين ستأتيك هذه القائمة (والتي تشمل على ايقونات شريط الطباعة في هذا الموضوع) . Shortcut Menu.accdb

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

عمل رائع محكم شكرا لك استاذ امين

الاستاذ / @kkhalifa1960 @jjafferr @jo_2010 اشكركم بداية من الطرح و المساعدة بمرفق و تعديلات الاخ الكريم / خليفة و سعة صدرة على التعديل مع الحافظ على جميع ادوات النموذج لا .........وكمان عاوزينة بماكرو ....... طيب ممكن من غير ماكرو اختصارا مرفقى عبارة عن جزء من الادوات التى اعتبرتها عملية من وجهة نظرى ( مع كامل احترام للملف الاصيلى ) و تلبى احتياجاتى البسيطة لم اقدم اى جديد و لكن هو مزيج من كل الاعمال بداية من الاخت/ زهرة مرورا بالاستاذ @صالح حمادي و ختاما الاخ @kkhalifa1960 ا Print_ToolBar _2 _ test .rar

السلام عليكم استاذ لقد قمت بتغير القائمة المسند لظهور قائمة جميع الموظفين استاذ في ايقونة حجز التلاميذ والأفواج التربوية تعديل نعم يتم اظهار الحقول و عند اختيار لا لا يتم اظهار الحقول استاذ ايقونة الحفظ عند اختيار نعم لا يتم حفظ المعلومات حتى يتم حجز الحقول بالون الأزرق استاذ في النموذج الفرعي اريد اضافة أيقونة لاضافة الساغات وموظف جديد وهذا عند اضغط على الزر Nouveau2026.accdb

!!!!!!!!!!!!!!!!!!!!! نزلت الملف لديا وهو يعمل تمام !!!!!!!!!!!!!!!!!!

استاذ لم اسطيع تحميل الملف

سلام عليكم بارك الله فيك الفكرة وصلت وجزاك الله حيرا وجعلها في ميزان حسناتك والشلام عليكم ورحمة الله تعالى وبركاته

تفضل استاذ @بلال بلال المرفق لا حظ يوجد زران للحفظ بالنموذجان frm_Export_3 و frm_Export_4 . وطبعا لانهم نماذج مستمرة . اختار الحالة من الكمبو بكس بأعلى النموذج .. راجع وجرب ووافني بالرد . Nouveau-111.rar

استاذ لم يتم اخفاء الحقول استاذ مازال ايقونة التالي لادراج كود حفظ البيانات

هل هذا ماتريده . Nouveau-1.rar

السلام عليكم قمت بانشاء الجداول ونموذج حجز البيانات وفي نموذج حجز البيانات توجد ايقونة حجز تعداد التلاميذ والافواج التربوية يوجد حقل هل معني بتكلمة النصاب اريد عند اختيار من مربع تحرير وسرد (لا) يتم اخفاء الحقول بالون الازرق و لا يتم اظهار الحقول حتى يتم اختيار من مربع تحرير وسرد (نعم) وفي نموذج حجز البيانات توجد ايقونة حجز توقيت عمل الاستاذ يوجد حقل هل معني بتكلمة النصاب اريد عند اختيار من مربع تحرير وسرد (لا) يتم اخفاء الحقول بالون الازرق و لا يتم اظهار الحقول حتى يتم اختيار من مربع تحرير وسرد (نعم) استاذ في النموذج Horaire اريد ادراج كود في الزر (التالي ) لحفظ البيانات و عدم ترك الحقل فارغ الا في حالة اخفاء الحقول بالون الازرق Nouveau.zip

وهذه مساهمة مني بادراج الوحدة النمطية الموجودة في الملف St.Sys2.rar

يالله يا شباب ، الهمة الهمة 🙂 اهم شيء في التعامل مع الذكاء الاصطناعي هو ، توجيهه غصبا عنه بما تريد ، ولا تخليه يشطح (بالعمانية ، يتصرف على كيفه 🙂 ) ، بس يحتاج حزم في التعامل معاه