كل الانشطه

ارسل القاعدة التي تعمل عايها !!!!!!!!!! لانها تعمل لديا كما بالشرح .

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

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

السلام عليكم أثناء البحث داخل النموذج الأساسي حرفاً بحرف لاحظت حركة بسيطة للنموذج الفرعي الذى يحتوي على ناتج التصفية بحثت فى خصائص كل من النموذجين وأجريت تجارب متعددة ، لكن يبدو أنني لم أوفق بالطبع ليس لها تأثير على عملية البحث ، ولكن أبحث أيضاً على الناحية الجمالية .. هل من معترض ؟ الشرح بالصورة التالية ومرفق ملف بالمرفقات db.mdb

السلام عليكم استاذ عند تحميل الصورة وعند الصغط لمعاينة الصورة تظهر لي ملف عير موجود

وده ملف أخر برنامج مزرعة دواجن.rar

صباح الخير محتاجه اكسل متابعه دوره تسمين دواجن وحساب الاستهلاك السولار والاغلاف عشان اعرف ايردات الدوره دي بعد البيع

تفضل استاذ @بلال بلال . Images-bilal.rar

من المشكلات الشائعة في برنامج البوربوينت أنه عند تشغيل العرض التقديمي والتنقل بين الشرائح، ثم الرجوع إلى شريحة سابقة تحتوي على عناصر مضافة إليها تأثيرات حركية، لا تعمل هذه التأثيرات مرة أخرى. وللتغلب على هذه المشكلة، يمكن اتباع الخطوات التالية: 📝ملاحظة: إصدار البرنامج الخاص بالشرح هو MICROSOFT POWERPOINT 365. نقوم بإضافة شريحة قبل الشريحة التي تحتوي على الكائنات، ويُفضَّل أن تكون بنفس الخلفية. نحدد الشريحة المضافة، ثم نذهب إلى تبويب (انتقالات) ثم نحدد الخيار (بعد) والتوقيت صفر (00:00.00). الآن عند الرجوع للشريحة التي تحتوي على الكائنات المضاف لها تأثيرات حركية، فإنه سيتم تفعيل الحركات تلقائيًا. ⬇️احصل على نموذج لهذا الدرس من المرفقات. إعادة تفعيل حركات الكائنات بعد الرجوع للشريحة.pptx

شكراً لك اخي منتصر على هذه الإلتفاته .. فعلاً فاتتني تماماً ولم اتيقن لها . بسيطة هذه مهندسنا الغالي .. سيتم العمل على تصحيح النقاط التي تم طرحها وملاحظتها .. هذه النقطة خطرت ببالي ، ولكني تجاهلتها وتركتها مفتوحة بحرية للمستخدم دون قيود . أشكرك من كل قلبي على هذه الإضافة الجميلة .. ولو تعلم أنني بحثت عن نسخة أوفيس 2003 ISO كي أقوم بتثبيته على جهازي الآخر وأقوم بفحص الأخطاء التي يمكن أن تأتي مع فرض الإصدارات البسيط .

لحساب تاريخ ووقت نهاية الإنتاج نستخدم الدالة getEndDate كالتالي: - نمرر رقم 1 إذا كانت العطلة الأسبوعية يوم واحد: =getEndDate(Z$2,AC4,6,1) - نمرر رقم 2 إذا كانت العطلة الأسبوعية يومين: =getEndDate(Z$2,AC4,6,2) - نمرر رقم 3 إذا كانت العطلة الأسبوعية ثلاثة أيام: =getEndDate(Z$2,AC4,6,3) أما رقم 6 فهو رقم أول يوم في عطلة نهاية الأسبوع وهو قيمة يوم الجمعة فكما هو معروف فأيام الأسبوع تبدأ برقم 1 ليوم الأحد وتنتهي بيوم 7 ليوم السبت.

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

عند استرجاع كتاب او كتب مطلوب علامة على checkbox وتحديق التاريخ تلقائيا او الافضل والاسرع الضغط على زر استرجاع لكل كتاب

السلام عليكم الجزء الاول هو المرجع لتوضيح عمل القائمة المختصرة : . في الموضوع السابق ، تحدثنا عن القائمة الثابتة ، وفي هذا الموضوع سنتكلم القائمة المؤقتة ، وعن طرق اخرى لإستعمال القائمة. وللعلم ، هناك قائمة مختصرة للنموذج واخرى للحقل ، سواء قائمة ثابته او مؤقته . القائمة الثابتة هي التي تجدها جاهزة للاستعمال ، وبدون عمل اي كود لها ، سواء في النموذج او التقرير ، مثلا : . اما القائمة المؤقته فيحتاج تناديها بالكود لكل استعمال ، ولما تغلق النموذج/التقرير ، يحتاج تحذفها ، والسبب مثل ما بتشوفون في المرفق ، نستعمل نفس القائمة ببعض الاختلافات بين النموذج/التقرير وحقوله. . التحدي الاكبر في القائمة المؤقته ليس البرمجة ، وانما معرفة الحدث الصحيح للحصول على النتيجة ، ثم تمرير النتيجة ، مثلا ، للحصول على عدد صفحات التقرير ، يجب استعمال الحدث On Page ، ومنها اخذ عدد الفحات وتمريرها الى دالة القائمة المؤقته. حاولت عمل اكبر قدر من التشكيلات ، وبأبسط طرق البرمجة ، حتى يكون تغييرها سهل للمبرمج. وفي المرفق وحدة نمطية لتصدير/استيراد كائنات قاعدة البيانات ، وحسب طلب اخي العزيز @ابوخليل ققد اضفت لها دالة لإرجاع كود القائمة المختصرة (اذا صارت الحاجة اليه). myRight_Click_Shortcut_Menu.zip

جربت ملف Menu Builder 2003.mdb وأنتج ما تم عمله مع الملف الأصلى وإن كانت الأزرار غير ظاهرة ( دون أن أذهب لويندوز 10 الذى عليه أكسس 2024 ) لكن الأخ فادى وضع مسمى تحت كل زر يوضح عمله وكان كافياً

لايوجد فرق بين الإصدارات المهم ماهو الإصدار الذي تعمل به فطالما أنك تعمل في اكسس 2024 فستظهر لك نفس البيئة سواء كان الملف الذي تفتحه mdb او accdb حاولت تعديل الملف ليعمل في 2003 وكانت هذه هي النتيجة سنجد هنا أن الأزرار لم تظهر كما يجب أن تكون عليه ولكن لو فتحت نفس الملف في اكسس 2024 ستظهر بشكل طبيعي ارفق لكم الملف لمن يحب أن يجربه Menu Builder 2003.rar

بارك الله لك هذا التوفيق أخي فادي 🙂🌹 جعله الله في موازين حسناتك .. 😊🤲 ------------------------------------------------ بعد التجربة بشكل سريع .. أول ما بحثت عنه هذا الأمر ولم أجده من ضمن القائمة 😅 ---------------------------------------------------- حبذ إضافة شرط عدم تكرار إضافة نفس الأداة 🙂 ---------------------------------------------------- والباقي بعد ما أكمل بحث وبعد التجربة الفعلية 😁

فعلاً له منا كل الشكر والتقدير على هذا العمل طبقت ما ذكره الزميل العزيز "منتصر الانسي" بضرورة إضافة وظيفة Addin فى أكسس 2024 ، ثم فتحت تطبيقي ( للعلم بصيغة mdb يحتوي على 124 تقرير ) في نفس برنامج أكسس ومن خلال وظيفة Addin استطعت الوصول لتطبيقى ( تذكر يا فوكش إنه 2003 ) وتم إضافة القائمة المختصرة مرة واحدة لكل التقارير بعد تحديدهم معاً كم كان توفير الوقت والجهد رائعاً جداً شكراً لكم مرة أخرى

يبدو أنك قمت إما بالتعديل على الوظيفة الإضافية مباشرة وبالتالي لن يتم حفظ التعديلات أو قمت بالتعديل على الملف الأساسي ولم تقم بإعادة إنشاء الوظيفة الإضافية مرة أخرى لأني طبقت الخطوات ونجحت معي سأرفق لك الملف بعد التعديل قم بفتحه وأنقر زر Addin ثم اغلقه وافتح تطبيقك وافتح الوظيفة الإضافية لتجد أنه سيتم إظهار النموذج والتقرير كما بالصورة التالية إسمح لي أخي @Foksh بملاحظة المشكلة لم تكن في أن جداول النظام مخفية أو في نوع مصدر البيانات بل كانت في أن الوظيفة الإضافية كانت تقرأ من جدول MSysObjects الخاص بها وليس الجدول الخاص بالملف المضيف لذلك فبعد إذنك قمت بتعديل الكود الخاص بك مع إضافة التعليقات لتوضيح الأمر بالشكل التالي Private Sub Form_Load() Dim strHostPath As String Dim strSQL As String 'تحديد مسار الملف المضيف strHostPath = CurrentProject.FullName 'بناء جملة الإستعلام عن النماذج والتقارير الخاصة بالملف المضيف strSQL = "SELECT Name, IIf(Type=-32768,'نموذج','تقرير') AS ObjType " & _ "FROM MSysObjects IN '" & strHostPath & "'" & _ "WHERE Type In (-32768,-32764) And Left(Name,1)<>'~' " & _ "ORDER BY Type, Name;" 'تعيين خاصية مصدر الصف للقائمة بالإستعلام هذا Me.List_Objects.RowSource = strSQL End Sub وإذا فتحت خصائص مربع القائمة ستجد أني لم أقم بتغيير مصدر الصف أو نوع مصدر الصف كذلك ستلاحظ أني قمت بالإستغناء عن السطر الخاص بإستبعاد النموذجين FrmMain و FrmAssignMenu (أقصد السطر التالي) "AND Name Not In ('FrmMain', 'FrmAssignMenu') " & _ وذلك لسببين الأول لأن النموذجين سيكونان موجودان في الوظيفة الإضافية فقط ولن يظهرا في مربع القائمة أما السبب الثاني فحتى لايتم إستبعاد إي نماذج في الملف المضيف وتحمل نفس الإسم (خصوصاً FrmMain فالكثير يسمي النموذج الرئيسي بهذا الإسم) شاكراً لك كل مابذلته من جهد في هذه الأداة القيمة ولا غنى عنها بحق تحياتي Menu Builder.accdb

العفو أخي الكريم ...

بارك الله فيك اخى الكريم مشكوووووور

برأيي أن تجعل النموذج الحالي في الملف المرفق هو أول نموذج يعمل لديك لأنه لا يعتمد على أي جدول كمصدر بيانات . مع تعديل اسم النموذج لما لديك في الحدث ليصبح :- Private Sub Form_Load() On Error Resume Next If CheckLinks("") = False Then Call Quit End If Dim tdfs As DAO.TableDefs Dim tdf As TableDef Dim sSourceDB As String Dim sBackupDB As String Dim backDBName As String Set tdfs = CurrentDb.TableDefs Set tdf = tdfs(tdfs.count - 1) sSourceDB = Right(tdf.Connect, Len(tdf.Connect) - 10) backDBName = Dir(Mid(tdf.Connect, 11)) sBackupDB = Mid(tdf.Connect, 11, Len(tdf.Connect) - (Len(backDBName) + 10)) ' DoCmd.OpenForm "frmLogin", acNormal DoCmd.Close acForm, Me.Name End Sub بحيث ، عندما يتم فتج قاعدة لبيانات ، سيتم التأكد من ربط جميع الجداول بالمسار الحالي أو اختيار ملف قاعدة بيانات الجداول لأول مرة . وبعد التحقق من صحة الربط سيعمل لديك النموذج الخاص بتسجيل الدخول .

اخى الكريم احتاج تنفيذ هذا لدى نموذج البدائة هو frmLogin احتاج خطوات التنغيذ على هذا النموذج

تجربتي على إصدارين مختلفين أعلى من 2003 ، وأما بخصوص الإصدار 2003 فليس لدي هذا الإصدار للأسف كي أقوم بتجربته .

تم عمل التعديلات التى أشرت إليها وما زالت هذه النقطة عالقة .. فى انتظار تجربتك أنت