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

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

ممتاز حبيبي الله يعطيك العافية هذا المطلوب بارك الله فيك بقي حاجة واحدة فقط وهي تفعيل 10 ثواني او 30 ثانية في حالة السكون . وتظهر شاشة الفيرم تلقائي اذا كان ذلك ممكن

والي يعملها لك بكود آخر بتنسى طلبي

تمام بيض الله وجهك بجرب وان شاء الله تضبط معي واعذرني على الاطالة

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

لعل هذا ما تريد .... ضع هذا الحدث تحث زر GO واخبرنا ..... لأني لم افهم طريقتك في العمل .... Dim rs As Object Set rs = Forms![test1]![SUBX].Form.RecordsetClone rs.MoveLast Forms![test1]![SUBX].Form.Bookmark = rs.Bookmark Forms![test1]![LastNumberx] = Forms![test1]![SUBX].[Form]![NumberX] rs.Close DoCmd.Close

لم افهم عليك ؟؟؟؟؟ عند الضغط على GO يعطي خطأ ... انظر ...

اذا كان فهمي صحيح انظر الصورة =DMax("[NumberX]";"[SUBX]";"[id] ="& [Forms]![test1]![id1] &"")

جرب هذا الموقع للتحويل ملفات pdf

هذا الموضوع يا ازهر ⬇️

السلام عليكم عليك بتثبيت الخلية التي سوف تقوم بضربها في الاعمدة عن طريق الضغط على f4 بعد تحديدها أو فضلا ارفق مثال

السلام عليكم تعريف الوحدات النمطية : هي دالة او مجموعة من الدوال مكتوبة بلغة VBA تؤدي غرضاً معيناً او تعيد قيماً محددة بناءً على قيماً مدخلة.ويتم استدعاء الوحدة النمطية في اي موقع في قاعدة البيانات سواءً في الاستعلامات او النماذج او في اشرطة الادوات. الغرض من الدالة : اختصار الوقت والمساحة في قاعدة البيانات مثلاً ربما يكون لدينا كود او مجموعة من الكودات المتشابهة في مواقع مختلفة من قاعدة البيانات فبدلاً من كتابتها في كل مرة نكتبها مرة واحدة في وحدة نمطية ونستدعيها في الموقع الذي نحتاجها . --------------------------------------------------------------------------------------------------------------------------- انشاء الوحدة النمطية بكون بالدخول الى محرر فيجيوال بيزيك: الكود التالي يمثل الدالة الاجرائية وهي ابسط انواع الدوال: Function Function_Name( ) Statement End Function شرح الكود :يجب ان تبدأ الدالة بهذه الكلمة للتعريف بانها دالة وهناك كلمات اخرى للتعريف بنوع الدالة لكن هذا النوع الشائع. (اسم الدالة) Function_Name ويجب مراعاة مايلي عند اختيار اسم الدالة : - اختيار الاسم باللغة الانجليزية - اختيار اسم يدل على وظيفة الدالة - اختصار الاسم قدر الامكان ويفضل ان تكون كلمة واحدة. - في حال استخدام عدة كلمات يجب ان لا تحتوي على فراغ يما بينها ولذلك يتم الفصل بينها بواسطة الشرطة السفلية. - تجنب استخدام الكلمات المحجوزة واذا لزم الامر اضف حرفاً الى بداية او نهاية الكلمة . ----------------------------------------------------------------------------------------------------------------------------------------- - مجموعة الكودات الاجرائية التي نحتاجها (Statement ) - التصريح عن نهاية الدالة (End Function) وتستخدم الدالة الاجرائية في تنفيذ الاوامر مثل فتح واغلاق النماذج , التنقل بين السجلات , التحكم في خصائص النماذج وعناصر التحكم , تشغيل جمل ال SQL , اظهار الرسائل المختلفة ... الخ ويتم استدعاء هذه الدالة كالتالي بالكود: Call Function_Name ( اسم الدالة) هذه بعض التلميحات المنقولة حول الدوال ارجو ان يكون فيها الفائدة هذا نموذج لوحدة نمطية لاخفاء شاشة الاكسس عند الفتح ونموذج رسالة ترحيب test.rar رسالة ترحيب.rar