أبو آدم

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

أحسن الله اليك أخي حمادة

تفضل أخي الحبيب ابا خليل الملف 2003 cum december 2003.rar

يُرْوَى عَنْ مُعاذٍ رَضِيَ اللهُ عَنْهُ قوله : تَعَلَّمُوا العِلْمَ فإنّ تعلُّمَهُ لِلّهِ خَشْيَةً وَطَلَبَهُ عِبَادَةٌ ومُدَارَسَتَهُ تَسْبِيحٌ والبَحْثَ عنهُ جِهَادٌ وَتَعْلِيَمهُ مَنْ لا يَعْلَمُ صَدَقَةٌ وَبَذْلَهُ لأهْلِهِ قُرْبَةٌ وَهُوَ الأَنيِسُ في الوَحْدةِ والصاحِبُ في الخَلْوَةِ والدّلِيل على الدِّين والمُصَبِّرُ على السرَّاءِ الضَّرَّاءِ والوَزِيرُ عِندَ الإخِلاء والقَرِيبُ عندَ الغُرَباءِ وَمَنارُ سَبيلِ الجَنّةِ يَرْفَعُ اللهُ بِهِ أقْوَامًا فيجعلُهُمْ في الخَيْرِ قَادةً سادةً هُدَاةً يُقْتَدَى بهم أَدِلِّةً لِلْخَيرِ تُقْتَفَى آثارُهمْ وَتُرْمَقُ أَفْعالُهُمْ وَتَرْغَبُ الملائكةُ في خُلَّتِهمْ وبأَجنِحَتِهَا تمْسَحُهُمْ وَكُلُّ رَطْبِ ويابسٍ لهُمْ يَستغْفرُ حَتَّى حِيتَانُ البَحْرِ وَهَوامُّهُ وَسِبَاع البَرِّ وَأَنْعامُهُ والسَّماءُ وَنُجُومُها ، لأنَّ العِلْمَ حَيَاةُ القُلُوب مِنَ العَمَى وَنُورُ الأبْصَارِ مِنِ الظُلَمِ وَقوَّةُ الأبْدانِ مِنَ الضَّعْفِ يَبْلُغْ بِهِ العَبْدُ مَنَازلَ الأَبْرارِ والدَّرَجَاتِ العُلَى وَمُدَارَسَتُهُ بالقيام به يُطاع اللهُ عزَّ وجلَّ وَبِهِ يُعْبَدُ ، وَبِهِ يُوَحَّدُ ، وَبِهِ يُمَجَّدُ ، وَبِهِ يُتَوَرَّعُ ، وَبِهِ تُوصَلُ الأَرْحَامُ ، وَبِهِ يُعرفُ الحَلالُ والحرامُ ، وهو إمامٌ والعَمَلُ تابعُهُ يُلْهَمُهُ السُعداءُ وَيُحْرَمُهُ الأَشْقِياءُ .

أعذر الإخوة لعدم الإجابة ، لعدم وضوح الحاجة هل يمكن أن ترفق مثالاً مختصراً للتطبيق و التعديل

جزيت خيراً ابا عمر هذا يحفظ في المكتبة ... ....

في أي نموذج تود تطبيق ذلك ؟

الأحداث ذات الصلة بعناصر التحكم والنموذج Controls & Forms On Change لاستخدام مربع نص أو مربع التحرير والسرد ، يمكن للمستخدم النقر على عنصر التحكم والبدء في الكتابة. إذا كان عنصر التحكم سبق وأن سجلت فيه بعض النصوص ، فيمكن للمستخدم تعديلها باستخدام مفتاح Space أو Backspace أو Delete أو أي مفتاح من مفاتيح الأحرف . عندما يتم إدخال النص أو تحريره ، فإن عنصر التحكم يطلق حدث On Change On Not In List مربع التحرير والسرد هو عنصر التحكم الذي يحمل قائمة من العناصر. لاستخدامه ، يمكن للمستخدم النقر على السهم في عنصر التحكم لعرض القائمة وتحديد عنصر منها. بعض الإصدارات من مربع التحرير والسرد تتيح للمستخدم النقر فوق مربع نص والبدء في الكتابة. ان عنصر التحكم سيحاول العثور على العنصر الذي يطابق ما كتبه أو حاول المستخدم كتابته في بعض الأحيان ، وبعد الانتهاء من كتابة المستخدم ما يريد وضغطه على Enter أو Tab لنقل التركيز ، قد لا يجد Microsoft Access (محرك قاعدة البيانات) عنصراً في مصدر البيانات الخاص بمربع التحرير والسرد متطابقاً مع ما كتبه المستخدم ، وسيعرض رسالة خطأ ، في هذه الحالة ، فإن عنصر التحكم يطلق حدث On Not In List ويمكنك استخدام هذا الحدث لعرض رسالة ودية للمستخدم و اتخاذ الإجراءات المناسبة. On Open لاستخدام النموذج ، يجب على المستخدم فتحه ، إما من خلال متصفح الكائنات ( جداول ، نماذج ، ... ) أو من خلال كائن آخر ، عندما يتم فتح النموذج ، فإن النموذج يطلق حدث On Open On Load حال فتح النموذج ، يجب تشغل الذاكرة.، عند ذلك ، فإن النموذج يطلق حدث On Load On Resize لجعل نفسه معروفا لنظام التشغيل operating system والتطبيقات الأخرى applications على نفس الحاسوب ( الجهاز) ، يجب على النموذج رسم حدوده. عندما يتم ذلك ، فإن النموذج يطلق حدث On Resize On Activate بعد اتخاذ النموذج للحجم الذي يحتاج إليه ، وجب على نظام التشغيل تنشيطه. إن كان فتح النموذج يتم بوصفه الكائن الأول ، يحصل على موقعه في واجهة Microsoft Access أما إذا تم بالفعل فتح النموذج وكان هناك نماذج أخرى و/ أو تقارير و / أو جداول ، أو إذا كان المستخدم يريد إحضار النموذج لمقدمة التطبيق ، لا بد له من النقر فوق شريط العنوان الخاص به أو أي منطقة من النموذج . عندما يتم ذلك ، يجب على نظام التشغيل تميز شريط العنوان الخاص بالنموذج بلون مشرق ( دلالة على التنشيط ) ، وفي كلتا الحالتين أعلاه ، وعندما يتم جلب النموذج لمقدمة النوافذ الأخرى ، فإن النموذج يطلق حدث On Activate On Deactivate حال تحميل النموذج يصبح نموذجاً نشطاً ، يمكن للمستخدم استخدامه بعد استخدام النموذج يمكن للمستخدم إغلاقه ( يمكن للمستخدم إما استخدام زر إغلاق النظام أو توفير وسائل أخرى لإغلاق النموذج ) . حال حدوث ذلك ، يجب على النموذج فقدان التركيز إذا كان النموذج هو الكائن الوحيد المفتوح في Microsoft Access، يتم إفراغ واجهة التطبيق إذا كان هناك كائنات أخرى ، فسيتم إغلاق النموذج وسيصبح أي كائن آخر هو الكائن النشط ، عندما يتم ذلك ، فإن النموذج يطلق حدث On Deactivate On Unload عندما يتم إغلاق النموذج ، يصبح لزاماً إزالته من الذاكرة للإفراج عن الموارد التي كان يستخدمها حتى يتاح استخدام تلك الموارد من قبل التطبيقات الأخرى وخلال تنفيذ ذلك ، فإن النموذج يطلق حدث On Unload On Close و حال تمت عملية إزالة النموذج من الذاكرة ، فإن النموذج يطلق حدث وللحديث بقية .... ......

أرفق قاعدة مبسطة محدودة للتطبيق والتعديل وحاول توضيح الفكرة أكثر شكراً

نتابع ... قم بانشاء استعلام اختيار يحوي كافة الحقول للجدول Data انتقل لعرض التصميم للاستعلام انتقل للعامود Column التالي لآخر عامود مستخدم في الاستعلام على السطر أكتب العبارة التالية Field : [code]=[Forms]![search]![code] Or [Forms]![search]![code] Is Null السطر Show يحمل خيار Check Box أجله فارغاً – No ، وتعني إخفاء نتائج الحقل السطر Criteria أكتب True / صواب هذه العبارة تعني : أظهر النتائج على شرط ، الحقل Code = القيمة الموجودة في الحقل Code من النموذج search – أو – إذا كان الحقل Code من النموذج search فارغاً فاترك الشرط لهذا الحقل جرب على حقل واحد وقم بتشغيل الإستعلام ( بدون النموذج ) ووافني بالنتيجة وللحديث والتطبيق بقية ....

حدد أخي الشافعي سؤالاً نجيبك عليه ثم يكون لبقية الأسئلة مواضيع لاحقة منك ، إن شاء الله

كنت قد أورد بعض النصائح فيما يتعلق بالتسميات في أكثر من موضوع وأعيدها هنا للفائدة لا مجرد تكرار ... أود أن انوه هنا لمجموعة من الأمور تتعلق بالتسميات ، وحسب الاصول المريحة ، فإتباع الأصل و الأحوط ينجي صاحبة عند الالتباس ، فحين تتوحد الأسماء بلا تمييز يلتبس الأمر بين الجدول ومربع النص والحقل وغيرها ، ومن ذلك نقول ، أننا ننصح باتباع ما يلي تمثيلاً وليس قصراً وحصراً : استخدام البادئة tbl في الاسم للدلالة على الجدول tblArchives ، أو استخدام الاسم الافتراضي الذي يقترحه النظام استخدام البادئة qry في الاسم للدلالة على الاستعلام qrySearch ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية كائنات القاعدة . استخدام البادئة str في الاسم للدلالة على حقل الجدول strArchivedDocument . استخدام البادئة txt في الاسم للدلالة على مربع النص txtArchivedDocument ، أو استخدام الاسم الافتراضي الذي يقترحه النظام استخدام البادئة cmb في الاسم للدلالة على مربع التحرير والسرد cmbArchivedDocument ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية عناصر النموذج . وللحديث والتطبيق بقية ....

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

أود أن انوه هنا لمجموعة من الأمور تتعلق بالتسميات ، وحسب الاصول المريحة ، فإتباع الأصل و الأحوط ينجي صاحبة عند الالتباس ، فحين تتوحد الأسماء بلا تمييز يلتبس الأمر بين الجدول ومربع النص والحقل وغيرها ، ومن ذلك نقول ، أننا ننصح باتباع ما يلي تمثيلاً وليس قصراً وحصراً : استخدام البادئة tbl في الاسم للدلالة على الجدول tblData ، أو استخدام الاسم الافتراضي الذي يقترحه النظام استخدام البادئة qry في الاسم للدلالة على الاستعلام qrySearch ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية كائنات القاعدة . استخدام البادئة str في الاسم للدلالة على حقل الجدول strCode . استخدام البادئة txt في الاسم للدلالة على مربع النص txtCode ، أو استخدام الاسم الافتراضي الذي يقترحه النظام استخدام البادئة txt في الاسم للدلالة على مربع النص txtCode ، أو استخدام الاسم الافتراضي الذي يقترحه النظام استخدام البادئة cmb في الاسم للدلالة على مربع التحرير والسرد cmbDevType ، أو استخدام الاسم الافتراضي الذي يقترحه النظام ، وهكذا لبقية عناصر النموذج . أظن أن الفكرة وصلت دون الإكثار من الاسهاب منعاً لشبهة الإطالة وللحديث والتطبيق بقية ....

أخي العزيز أبا تميم جزيت خيراً وردت على سبيل المثال وليس التحديد و الحصر بالتطبيق لديك ، لأننا سنعمل بإذن الله على إستعلام لتنفيذ البحث

أرفق الملف

ونتابع ... في خصائص النموذج نراعي ما يلي تمهيداً لما سيتبع ونجعل : pop up ( منبثق ) – نعم Modal ( مخصص ، مشروط ) - نعم عند تحميل النموذج frmAddArchine يتم تحديد حجم النموذج ، ونضع خلف الحدث On Load ( عند التحميل ) الكود التالي : Me.Form.InsideHeight = 7000 Me.Form.InsideWidth = 9900 فائدة : الارقام في الكود أعلاه هي بوحدة القياس twips " تويب " وهي وحدة قياس ( كتباعد الأحرف وقياس الأبعاد ) تساوي 1/20 من نقطة الطابعات Point ، وهناك 1440 تويب للبوصة الواحدة ، 567 تويب للسنتيمتر الواحد . ........ ولغايات توضيح إمكانية التحكم بعنوان النموذج Caption ، سنقوم بتطبيق حركة بسيطة بتحويل هذه المنطقة من النموذج و المخصصة لحمل عنوانه أو تسميته التوضيحية ، الى ما يشبه الشريط الاعلاني ، ونحملها بما نشاء من المعلومات والعبارات ، ولتطبيق ذلك نراعي ما يلي : في محرر الفيجوال للنموذج Visual Basic نقوم بتعريف المتغيرات ( القيمة ) التالية ليتم التعامل معها عند اللزوم وهي Private statement كعبارة أو جملة خاصة : Private strText As String لتحمل strText النص الذي سنتعامل معه ولجعل التعليمات البرمجية أسهل للقراءة والتطبيق على مستوى النموذج . في خصائص النموذج ، نجعل Timer Interval ( مؤقت الفاصل الزمني ) تساوي مثلاً 60 فائدة : إعداد الخاصية Timer Interval هو Long Integer عدد صحيح طويل بقيمة بين 0 و 2,147,483,647 . كل 1000 من الرقم المحدد في Timer Interval تساوي 1 ثانية . في الحدث On Load ( عند التحميل ) نضع الكود التالي مع أصحابه : strText = "معهد تدريب أمناء الشرطة بسوهاج ---- نظام دار المحفوظات 2014 " strText = Space(110) & strText وخلف الحدث On Timer ( عند التوقيت ) نضع الكود التالي : strText = Mid(strText, 2) & Left(strText, 1) Me.Caption = strText وللحديث والتطبيق بقية .... ......

قيد النظر ...

إنشاء عنصر تحكم ActiveX " ListView " افتح نموذج قاعدة البيانات إنشاء نموذج جديد لا يعتمد على أي جدول أو استعلام ، ثم قم بحفظه بالإسم frmListView ، و إفتح طريقة عرض التصميم. من القائمة إدراج Insert ، أو تصميم Design ( حسب الإصدار ) ، انقر فوق عنصر تحكم ActiveX أو عنصر تحكم مخصص في الإصدار 7.0، انقر فوق عنصر التحكم ListView Microsoft في قائمة عناصر التحكم ومن ثم انقر فوق موافق. من خصائص العنصر يتم تعيين خصائص عنصر التحكم ListView التالية: الاسم: ctlListView العرض: حسب الحاجة وتصميم النموذج الارتفاع: حسب الحاجة وتصميم النموذج قم بإنشاء وحدة نمطية و إنسخ اليها الوظيفة filllist التالية: Function FillList(Domain As String, LV As Object) As Boolean '================================================================== ' Purpose: to fill a ListView control with data from a table or ' query ' Arguments: a Domain which is the name of the table or query, and ' a ListView control object ' Returns: A Boolean value to indicate if the function was ' successful '================================================================== Dim db As Database, rs As Recordset Dim intTotCount As Integer Dim intCount1 As Integer, intCount2 As Integer Dim colNew As ColumnHeader, NewLine As ListItem On Error GoTo Err_Man ' Clear the ListView control. LV.ListItems.Clear LV.ColumnHeaders.Clear ' Set Variables. Set db = CurrentDb Set rs = db.OpenRecordset(Domain) ' Set Column Headers. For intCount1 = 0 To rs.Fields.Count - 1 Set colNew = LV.ColumnHeaders.Add(, , rs(intCount1).Name) Next intCount1 LV.View = 3 ' Set View property to 'Report'. ' Set Total Records Counter. rs.MoveLast intTotCount = rs.RecordCount rs.MoveFirst ' Loop through recordset and add Items to the control. For intCount1 = 1 To intTotCount If IsNumeric(rs(0).Value) Then Set NewLine = LV.ListItems.Add(, , Str(rs(0).Value)) Else Set NewLine = LV.ListItems.Add(, , rs(0).Value) End If For intCount2 = 1 To rs.Fields.Count - 1 NewLine.SubItems(intCount2) = rs(intCount2).Value Next intCount2 rs.MoveNext Next intCount1 Exit Function Err_Man: ' Ignore Error 94 which indicates you passed a NULL value. If Err = 94 Then Resume Next Else ' Otherwise display the error message. MsgBox "Error: " & Err.Number & Chr(13) & _ Chr(10) & Err.Description End If End Function خلف الحدث OnLoad للنموذج frmListView إنسخ التالي : Private Sub Form_Load() Dim intResult as Integer intResult = FillList("Employees",Me!ctlListView) End Sub افتح النموذج في طريقة عرض النموذج ، سيقوم عنصر التحكم ListView بعرض محتويات الجدول أو الاستعلام الذي تحدده ضمن الكود " Employees " .

يرجى تحديد الحقول مدار البحث المتوقع

قيد النظر ...

انقل الازرار للنموذج الفرعي

بانتظار ردّ الأخ الهيثم حتى نستكمل أو يشعرنا بإنقضاء حاجته بتيسير من الله ........

الأحداث ذات الصلة بالحقول Fields Before Insert لأن Microsoft Access هو تطبيق لقواعد البيانات ، فإنه يوفر بعض الأحداث الخاصة بالسجلات وحقولها في النموذج أو التقرير . لإنشاء سجل جديد ، يجب على المستخدم الانتقال إلى سجل فارغ في النموذج . ويمكن للمستخدم النقر فوق عنصر التحكم مثل مربع نص والبدء في الكتابة . عندما يحدث هذا ، فإن النموذج يطلق حدث Before Insert . و للحديث بقية ....