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

تفسير هذا النص يعني أنك لا يمكن استخدام DoCmd.Openform مباشرة لفتح النموذج ولاكن من داخل الوظيفة.. أما استخدامه كواجهة رئيسية فهذا راجع لك!

لأنه تابع للوظيفة UInpuBox .. بمعني أن هذه الوظيفة هي المسئولة عن إقلاع النموذج، وهي التي تزوده بالمعطيات (عناوين الحقول النصية، رسالة الحث، عنوان النموذج) .. النموذج بدون الوظيفة خالي من هذه المعطيات! وسبب إنشاء هذه الوظيفة هو لإعادة كتابة المعطيات بما يتلائم مع البيانات الراجعة من الوظيفة.. وهذه صور النموذج باستخدام الوظيفة وبدونها

لا بأس.. في الحقبقة ليس هناك كبير فائدة من تعريف النموذج كنظام.. وإنما هو اسلوب اتبعه في أكسس. أما لماذا ؟ فلأن هذا النموذج مصمم للاستخدام (كتابع).. ولا يمكن استخدامه مباشرة. وأما الناحية الفنية من هذا الاسلوب.. فهو ينبه المستخدم ذو الصلاحيات الموسعة إلى أن هناك أشياء تتبع النظام يجب صيانتها من العبث! ولهذا يقوم أكسس بالتعامل معها على هذا الأساس.

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

نعم.. هذا هو الحل السهل والمناسب .. وهو طريقتي أيضا عندما أقوم بإنشاء وظائف ترجع قيمة متعددة.. هناك طريقة أخرى مكلفة بعض الشيء لكنها مرتبة ودقيقة تستخدم في وظائف برمجة واجهة تطبيق وندوز (API) الطريقة مطبقة في هذا المثال CustomInputBox2.zip

في نظري تظل القيمة الراجعة من الإدخال إشكالا .. ومع هذا إليكم هذه التجربة ودعونا نناقش الإشكال سويا. هذه صيغة الوظيفة Sub CustomInputBoxExample() Dim A A = UInputBox("الهوية", "الاسم", "اكتب البيانات المطلوبة", "تجربة") Debug.Print A End Sub وهذه هي التجربة CustomInputBox.zip

أقترح عليك استخدام المؤقت Timer لقياس الأداء أجريت بعض التعديلات .. FullYearDatesH.accdb.zip

إليك المرفق بعد تحسين الأداء 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

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