أبو إبراهيم الغامدي

إليك المرفق بعد تحسين الأداء FullYearDatesH.accdb.zip

إذا سأعمل عليه وسأقوم برفعة فور الانتهاء..

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

وعليكم السلام ورحمة الله وبركاته جرب المرفق الأن FullYearDatesH.accdb.zip ملاحظة: قمت بتغيير بعض نصوص الشفرة التي ليس لها علاقة بالسؤال.. أرجو المعذرة نص شفرة الحاق البيانات لايبدوا سليما في نظري.. أرجو التحقق من ذلك

نعم! إليك هذا YourObject=date()-1

إذا كان المجلد يحتوي صور فقط .. فهذه الشفرة بعد التعديل Function GetImage(imageName As String) Dim ImagePath As String ImagePath = CurrentProject.Path & "\img\img\" GetImage = ImagePath & Dir(ImagePath & imageName & "*") End Function اكتب اسم الملف بدون اللاحقة.. أو اكتب جزء من اسم الملف.. أو لا تكتب شيء! سوف يعيد اسم أول ملف!

لا يمكن أن تعيد Enum قيما نصية للأسف.. لكن لها شقيقة تدعى Type تقوم بتعريف البيانات التي تستقبلها وتعيدها ولكي نطوعها للعمل كسابقتها نحتاج إلى عدة خطوات.. إليكم الخطة سوف نقوم أولا بتعريف البيانات كما يلي Type T_MonthNames Jan As String Feb As String Mar As String Apr As String May As String Jun As String Jul As String Aug As String Sep As String Oct As String Nov As String Dec As String End Type كما أشرت سابقا يمكن تعريف المطليات ونوع البيانات حسب متطلباتكم.. نحن هنا بحاجة إلى معطيات تحمل قيم نصية هي أسماء الشهور فقط. إذا بعد تعريف المعطيات نحن بحاجة إلى إسناد البانات لهذه المطيات.. ولهذا الغرض سوف نقوم بإنشاء وظيفة ونعرف بياناتها من نوع T_MonthNames التي أنشأنها للتو كما يلي Function MonthName() As T_MonthNames '-- هذه البيانات كمثال '-- أكمل إسناد البيانات إذا أردت MonthName.Jan = "يناير" MonthName.Feb = "فيبراير" MonthName.Mar = "مارس" MonthName.Apr = "أبريل" End Function في نافذة التنفيذ السريعة يمكنكم تجربة الوظيفة كمايلي ? MonthName.Apr 'سوف تعيد شهر أبريل إليكم المثال T004.zip

المعذرة لم أتمكن من إكمال المشاركة السابقة لعدم استجابة المتصفح للتحرير 2- إنشاءالوظيفة ()IsMonth وهي تعود بقيمة منطقية، وتستقبل أيضا متغير يعود بقيمة عددية من خلال الحاوية التي أنسأنها 3- يوضح هذا المقطع مستعرض المراجع؛ وهو هنا يسرد قيم الحاوية التي أنشانها 4- هي لنافذة التنفيذ السريعة ويمكن من خلالها فحص الوظفة السابقة ومدى استجابة المحث بسرد قيم حاوية أسماء الأشهر.. يجب أن تظهر هذه القيم عند كتابة الوظيفة وبعد كتابة القوس الأيسير. وهذا مثال للتوضح T004.zip

نعم بالمثال يتضح المقال.. دعني أقوم بشرح بعض النقاط من خلال الصورة التالية.. بحسب تسلسل الأرقم: 1- إنشاء حاوية معاملات عددية تسلسلية بأسماء الأشهر الميلادية.. اسم هذه الحاوية: T4ManthNames

وعليكم السلام الجواب الأول: قائمة القيم السردية التي تظهر معاملات (Parameters) هي في الحقيقة معرفات يعوض عنها بقيم عددية ثابتة .. وصيغتها كالتالي Enum SecurityLevel IllegalEntry = 1 SecurityLevel1 =2 SecurityLevel2 = 3 End Enum للأهمية.. يجب أن يعلن عن هذه المعرفات في أعلى الوحدة النمطية الجواب الثاني: يمكن جعل المعاملات اختيارية بوضع الصيغة الاختيارية Optional قبل اسم المعامل.. كالتالي Function Move(Optional Left As Integer, Optional Top As Integer) If IsMissing(Left) Then '..Do Something End If End Function

من الطرق السهلة والبسيطة التي يمكن استخدامها لفعل الحدث التلقائي هو استخدام الوظيفة [DoEvents] في دوارة [Do Until] ويتم وضع الإجراء الذي يحتض هذه الدوارة عند اقلاع قاعدة البيانات وتظل الدوارة تعمل بفعل الوظيفة [DoEvents] حتى تطابق المعيار المطلوب. هذا في نظري أفضل بكثير من استخدام حدث التوقيت [OnTime] في النموذج لأنه ليس من المنطقي أو المقول برمجيا إنشاء نموذج وابقائه مفتوحا من أجل فعل إجراء معين! في المثال التالي وضعت بعض الإجراءات التي تقوم بتنفيذ استعلام التحديث في وقت أو تاريخ محدد؛ ولكي تتأكد من عمل مسابق ذكره فضلا استخدم الإجراء [()UpDateDataInTime] .. فضلا استخدم التوقيت العسكري (24) لتحديد الوقت المطلوب للتنفيذ بين علامتي تنصيص مزدوجة.. كالتالي: UpDateDataInTime("00:50:00") 'الساعة الثانية عشر وخمسين دقيقة إليك المثال RunQueryInSpecificDate.zip

وعليكم السلام ورحمة الله وبركاته الوظيفة التالية تعيد قيمة (UUID) للمنتج Function UUID() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems UUID = objItem.UUID Next End Function إذا كنت بحاجة إلى معرف كامل البيانات التي يعيها المجال (Win32_ComputerSystemProduct) استخدم الإجراء التالي Sub ComputerSystemProduct() On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystemProduct", , 48) For Each objItem In colItems Debug.Print "Caption: " & objItem.Caption Debug.Print "Description: " & objItem.Description Debug.Print "IdentifyingNumber: " & objItem.IdentifyingNumber Debug.Print "Name: " & objItem.Name Debug.Print "SKUNumber: " & objItem.SKUNumber Debug.Print "UUID: " & objItem.UUID Debug.Print "Vendor: " & objItem.Vendor Debug.Print "Version: " & objItem.Version Next End Sub SCRIPTING.zip

الشفرة يعني الكود أعتقد أني لم استوعب المطلوب بالضبط لأن الأمثلة التي أدرجها الأخوان لم أستطع فتها في 2007

أين الشفرة أخوي جعفر .. الي قلت ما هي ضمن الشفرة المثال

إن شاء الله أقوم بإعداد مثال يعطل الخاصية عن طريق إدراج (Javascript) في الصفحة شكرا على مرورك أخوي رهمان

كنت اتمنى أن أطلع على مشاركاتكم ولكن استطع استعراضها بالإصدار 2007 للاسف.. أرجو التكرم بإعادة رفعها بما يتوافق مع 2007

السلام عليكم جميعا.. إليكم طريقة إلغاء الزر الأيمن لكائن المستعرض بأبسط طريقة من داخل أكسس! 1- الخطوة الأولي اضف المكتبة الخاصة بمستندات HTML من مكتة المراجع ( Microsoft Html Object Library ) 2- افتح محرر الشفرة للنوذج وأضف الإعلان التالي في رأس المحرر.. (WithEvents) تنشئ أحداثا خاصة للغرض المعلن عنه! Public WithEvents HTML As HTMLDocument 3- من القائمة المنسدلة اليسرى في أعلى المحرر: اختر الغرض (HTML) الذي سبق الإعلان عنه 4- من القائمة المنسدلة اليمنى: اختر الحدث (oncontextmenu) هذا الحدث يعيد قيمة منطقية (TRUE, FALSE).. اسند القيمة (FALSE) لهذا الحدث كالتالي Private Function HTML_oncontextmenu() As Boolean HTML_oncontextmenu = False End Function 5- في حدث (onload) للنموذج: أضف السطرين التاليين.. [قم بتبديل ما يلزم] Private Sub Form_Load() Me.WebBrowser0.Navigate "ABOUT:BLANK" Set HTML = Me.WebBrowser0.Document End Sub هذا كل شي.. إليكم المثال web_browser.zip

إذا كنت تستخدم التقرير للطباعة على قالب شهادة ورقي فيمكن عمل التالي: .. وضع مكون المتصفح في التقرير وضبط أبعاده بما يتوافق مع قالب الشهادة. .. تحديد الأبعاد التي تريد الطباعة فيها، ومن ثم ضبط عناصر هتشمل بما يتوافق مع متطلباتك. *** فائدة عناصر هتشمل يمكن ضبطها بأي نوع من المقاييس وبدقة متناهية! هي عندي أسهل بكثير من تقرير أكسس. سم بالله وابدأ بإعطائنا أفكارك وتصاميمك ونحن مع..

هذا أنا.. إذا كنت مقتنع بهذه الفكرة فإليك المرفق LINK_TABLE.zip

أعتذر إليك عن عدم تمكنك من تشغيل المثال على جهازك.. جهازي يعمل على إصدار 2007 فإذا كنت لا تتمكن من فتح مربع حوار فتح الملفات فيتوجب عليك الذهاب إلى مكتبة المراجع واستخدام النسخة التي تتوافق مع الإصدار الذي لديك. قمت بإنشاء قاعدة بيانات جديدة تحتوي فقط على المكونات التي تستخدم في المثال؛ محاولة مني استبعاد أي افتراض يؤدي إلى عدم تجواب المثال مع إصدارك., المرفق مرة أخرى LINK_TABLE.zip

قمت بإبدال الشفرة.. جربه الآن LINK_TABLE.zip

اعتذر إليكم.. هذا الرابط LINK_TABLE.zip

لله الفضل والمنه أشكرك أيا خليل على ثناءك ومرورك .. وأرجو أن يقع ثناءك في محلة.

إليك التعديل إذا.. أرجو أن يحقق بعض ما تطلب بعد التجربة الأولى غير اسم المجلد لترى الفرق LINK_TABLE.zip

أعتذر عن هذا الخطأ غير المقصود.. في حقل رقم الموقف من جدول الحركة الذي أشرت إليه لا توجد بيانات مدخلة! هل من الممكن أن تتلطف بإدخال بعض البيانات وتعيد رفع قاعدة البيانات؟