أبو آدم

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

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

ومما تعلمنا ... نقول : يقول حذيفة رضي الله عنه : " كان الناس يسألون رسول الله صلى الله عليه وسلم عن الخير ، وكنت أسأله عن الشر ، مخافة أن يدركني " فأتقن علم الشر بهذا الحرص ، وأحاط خُبراً بما سيكون من فتن وسوء ونفاق ، حتى إحتاج الى علمه كبار الصحابة ، و طفق مثل عمر رضي الله عنه يسأله ، ويستشيره . .............

الحمدلله الذي بفضله تقضى الحاجات تمت الإجابة ............

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

جزيتم خيراً هل لنا ان نوضح (ما هو هذا الرقم) لعموم الفائدة و التوضيح ..... ............

فكروا معنا ودعونا نطبق كل ما يخطر بالبال ، بتحليلات ونسق منظم كي نسُد حاجات إخوتنا وحاجاتنا والله من وراء القصد .............

جزيتم خيراً على طيب القول والتشجيع نتابع وإياكم طلب العلم والتمتع بما انعم الله علينا ننقل للفائدة ... ونستفيد من النقل حياك الله ابا الحارث ومتعنا واياكم بالعافية والبركة ....................

اذا كنت قد أحسنت الفهم عنكم ما تريدونه متغيرات تذهب للجدول كسجل جديد تحت شرط معين المرفق فيه تعديل آمل أن يفي بالغرض ، إسم النموذج والوقت والمستخدم إستلزم الأمر تعديل الجدول Function AddAction(strFormName As String) Dim strSQL As String strSQL = "INSERT INTO logaction(cUserCode, dDateTime,FormName) VALUES ('" & CurrentUser & "', #" & Now & "#, " & Chr(34) & Replace(strFormName, Chr(34), Chr(34) & Chr(34)) & Chr(34) & ")" CurrentDb.Execute strSQL, dbFailonerror End Function جرب ووافني بالنتيجة .... والله من وراء القصد وهو حسبي ............ NA_SQLVariable_UP.rar

إخوتي الفضلاء لإضافة سجل جديد للنموذج الفرعي ، من خلال النموذج الرئيسي ، بواسطة زر أمر يظهر مربعات نص لإضافة السجل الجديد للجدول الثاني (مصدر النموذج الفرعي) ، مع خيارات الاضافة والإلغاء ، تطبيق يقدمه لكم العبد الفقير لرحمه ربه ، أخوكم نارت لبزو http://www.officena.net/ib/index.php?showtopic=43859 ......

إخوتي الفضلاء إضافة سجل جديد للنموذج الفرعي ، من خلال النموذج الرئيسي ، بواسطة زر أمر يظهر مربعات نص لإضافة السجل الجديد للجدول الثاني (مصدر النموذج الفرعي) ، مع خيارات الاضافة والإلغاء مرفق بإصدار 2003 و 2007 مجرد فكرة ... ولكم خيارات التطبيق والله من وراء القصد ... وهو حسبي ........ NA_DatasheetNewRecord.rar

منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK منقول من مكتبة العبد الفقير لله / نارت لبزو http://www.officena.net/ib/index.php?showtopic=43858 .........

إخوتي الفضلاء أقدم من مكتبتي تطبيق التقويم لتثبييت المواعيد والأحداث ، وقد إستخدمت الفكرة و أجزاء من التطبيق في كثير من التطبيقات الخاصة وهو منظومة للتقويم ولتثبيت المواعيد و الأحداث ، ويمكن إظهار التقويم كنموذج لليوم و / أو الأسبوع و / أو شهر ويحاكي التصميم المستخدم في MS OUTLOOK آملاً عموم الفائدة والله من وراء القصد وهو حسبي ............ NA_Calendar.rar

يموت الفتى من عثرةٍ بلسانه .......... وليس يموت المرء من عثرة الرِجل فعثرته بلســـانه تُذهب رأسه .......... وعثرته برجلـــــــــه تبرأ على مهل .................

أختي الفاضلة لم أحسن فهم الفكرة جيداً أتأمل بعض التوضيح ...........

أخي العزيز إليك مثال لما يفترض ... ........................... ..

جزيت خيراً أخي العزيز نأمل بعد رضى الله عموم الفائدة ............

لم افهم قصة 40 رقم زودني بصورة ... التطبيق المرفق للأخ محمد لم يعمل لدي كما في الصورة ............

معروف أن هناك كثير من التطبيقات حول موضوع شريط المعلومات ، ولكنني هنا أقدم تطبيقا يستخدم الفكرة مقترنة بجعل مصدر المعلومات للشريط جدول أو إستعلام أو جملة SQL ، وللشريط غاية إخبارية رقابية. تطبيق العبد الفقير لرحمة ربه نارت لبزو / أبو آدم http://www.officena.net/ib/index.php?showtopic=39192

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

أخي العزيز هنا افترضت وجود مربع نص في النموذج باسم Text0 لإظهار الرقم ............

إخوتي الفضلاء لست بينكم إلا طالب علم التمس بعض ما لديكم ولكن جُلّ ما استخدمتم يسرد أرقام المحركات الرئيسي منها والثانوي و المتحرك ، وندخل في التعداد لا الحصر أفضل حصر الأمر بمحرك الأقراص الرئيسي باستخدام شرط If objItem.DeviceID = "\\.\PHYSICALDRIVE0" Then وإدراج النتيجة في الكود ضمن متغير حيث نطلب التعامل مع PHYSICALDRIVE0 وهو يمثل دائماً (فيما أعلم ) محرك الأقراص الرئيسي والله أعلم ... وقد طبقت مثل ذلك في الأكسيس .... http://www.officena....showtopic=43842 أما أهل الإكسيل فأدرى بشعابها ... والله من وراء القصد وهو حسبي ..............

إخوتي الفضلاء أنت تسأل ونحن نجيب ... للتعرف على الرقم الفعلي للصانع والذي خصص لمحرك الأقراص على جهازك ، وليس ذاك المؤقت الذي يتغير عند إعادة تنصيب الويندوز إستخدم الكود التالي : strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive", , 48) For Each objItem In colItems If objItem.DeviceID = "\\.\PHYSICALDRIVE0" Then Me.Text0 = objItem.SerialNumber End If Next وهنا وعلى غير ما اعتاد أهل اللصق والنسخ ، فإننا سنستخدم ما يلزمنا لا ما قدم لنا ، حيث سنطلب التعامل مع PHYSICALDRIVE0 وهو يمثل دائماً (فيما أعلم ) محرك الأقراص الرئيسي ، وبذلك نبتعد عن ما حوله من الأقراص المتحركة أو محرك الأقراص الثانوي . وكل يستخدم نطاق الكود كما يشاء ... والله من وراء القصد وهو حسبي ...................... ............... ................................................

تمت الفائدة ....... جزيتم خيراً .........

فيا أيها الإخوان : تعوَّذوا بالله جلَّ وعلا من الفتن , تعوَّذوا بالله جلَّ وعلا من الفتن التي تحرق الدين ,وتحرق العقل ,وتحرق البدن,وتحرق كل خير,تعوَّذوا بالله منها؛فإنه لا خير في فتنة أبداً؛فإن النبي صلى الله عليه وسلم كان يتعوَّذ بالله كثيراً من الفتن,وكان عليه الصلاة والسلام يحذَّر من الفتن.