أبو آدم

وعليكم السلام ورحمة الله وبركاته نعم يوجد طرق كثيرة ............

أرفق لكم الكود معدلاً ليقوم باستثناء حقول محددة من النموذج من عملية التدقيق ، ليصبح الكود : Private Sub Title_Exit(Cancel As Integer) Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then If ctl.Name <> "Title" And ctl.Name <> "CompanyName" Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub ويوضع الكود في حدث عند الخروج لآخر حقل في النموذج ، حيث تتم عملية التدقيق لكافة الحقول بإستثناء التي قررنا عدم التدقيق عليها

شكراَ ... شكراً مجاملاتك وتشجيعك يشعرنا بأننا نقدم ما ينفع ويقضى الحاجة .........

إخوتي الفضلاء أرفق لكم الكود معدلاً ليقوم باستثناء حقول محددة من النموذج من عملية التدقيق ، ليصبح الكود : Private Sub Title_Exit(Cancel As Integer) Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then If ctl.Name <> "Title" And ctl.Name <> "CompanyName" Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub ويوضع الكود في حدث عند الخروج لآخر حقل في النموذج ، حيث تتم عملية التدقيق لكافة الحقول بإستثناء التي قررنا عدم التدقيق عليها والمرفق تطبيق لما ورد أعلاه والله من وراء القصد ... وهو حسبي ......... NA_EmptyFields.rar

أخي الحبيب جزيت خيراً على كلماتك الطيبة الكود مصمم كي يقوم بمنع ترك أي حقل من نوعي مربع نص ومربع تحرير وسرد فارغاً في حال رغبتنا بترك أحد الحقول فارغاً نقوم بإستثنائه بجملة if في بداية الكود ، ولكنه في هذه الحالة لا يعود عام الاستخدام ويحتاج لتفصيل وتحليل حسب أسماء احقول. أما مسألة وضع الكود في حدث بدلاً من زر أمر ، فيدرج أستخدام مثل هذه الأوامر في حدث قبل انهاء التحميل On Unload ولكنني لم أجرب هذا الكود في هذا الحدث جرب ووافني بالنتيجة ..... .............

نفع الله بنا وبك والحمدلله الذي بفضله تقضى الحاجات (تمت الاجابة) ............

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

منعاً لترك أي حقل ( مربع نص أو مربع تحرير وسرد ) فارغاً ، خلف زر أمر للتدقيق ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub ...........

خلف زر أمر لتدقيق الثغرات (الحقول الفارغة) ، ضع الكود التالي : Private Sub cmdChick_Click() Dim ctl As Control Dim vIndex As Long For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or acComboBox Then With ctl If IsNull(Me.Controls.Item(vIndex)) = True Then MsgBox vIndex & ": " & Me.Controls.Item(vIndex).Name & " Value:Empty Field" Me.Controls.Item(vIndex).SetFocus Exit Sub End If End With End If 'This is used to track the actual Item Number. vIndex = vIndex + 1 Next ctl End Sub ...........

الكود التالي يعيد كافة القيم الإفتراضية لحقول النموذج ، وكأننا ننتقل لسجل جديد ... Private Sub btnClear_Click() Dim ctl As Control On Error Resume Next For Each ctl In Me.Controls ctl.Value = ctl.DefaultValue Next Set ctl = Nothing End Sub والسلام ختام

بعد إذن الأخ الحبيب أحمد خلف مرفقات المشاركة 54 ... ، بصيغة 2003 و 2007 لعموم الفائدة ............ Trteeb5.rar

سبحان الله أخي الحبيب أبو خليل بنعمة من الله ، حباك إحترافاً رائعاً بتطويع الإستعلامات ، ومن لا يفقَهُها لا يدرك قيمتها ... دُرَر ونفائس تبارك الرحمن ... وسلمت يمينك ................

SQL DML and DDL ويمكن تقسيم SQL إلى قسمين: لغة معالجة البيانات (DML) لغة تعريف البيانات (DDL). الاستعلام وأوامر التحديث تشكل جزء DML • SELECT (حَدِد ) - استخلاص البيانات من قاعدة البيانات • UPDATE ( تحديث) - تحديثات البيانات في قاعدة البيانات • DELETE ( حذف ) - حذف البيانات من قاعدة البيانات • INSERT INTO (إدراج) - إدراج بيانات جديدة في قاعدة البيانات الجزء DDL من SQL يسمح لجداول قاعدة البيانات أن يتم إنشاؤها و حذفها. ويعرف أيضا الفهارس (المفاتيح)، تحدد الروابط بين الجداول، وتفرض القيود بين الجداول. و أهم جمل (عبارات) DDL في SQL هي: • CREATE DATABASE - إنشاء قاعدة بيانات جديدة • ALTER DATABASE - تعديل قاعدة بيانات • CREATE TABLE - إنشاء جدول جديد • ALTER TABLE - تعديل جدول • TABLE DROP - حذف جدول • CREATE INDEX - ينشئ فهرس (مفتاح البحث) • INDEX DROP - حذف فهرس

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

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

جرب الاستفادة من المعلومات الواردة على الرابط ... http://blogs.msdn.com/b/sqlserverfaq/archive/2009/11/13/how-to-change-date-format-after-installing-sql-server.aspx آملاً أن تستفيد منها ... ...........

إخوتي الفضلاء أخي أبو خليل لم أقرأ كافة المشاركات ، وعلّني أغفلت بعض الأشياء ما وصلت اليه إحالة المسائل للوحدات النمطية و الكودات التسلسل وحدة نمطية - سابقاً الترتيب وحدة نمطية - سابقاً التكرار وحدة نمطية - جديد هل أغفلت شيئاً ؟؟ .........

جزيت خيراً أخي أبو خليل لا رب دار و أنت في الحيّ مقيم ..............

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

أن كان لي بينكم متسع ... فلي في الأمر محاولة ولكل أمرئ فيما يحاول مذهب ... ............

وبالصور ..... scan.rar

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

If Not Me.NewRecord Then اذا لم يكن سجلاً جديداً عندها .... Variant متغير ... أما سؤالك الثاني عن محرر أخطاء للقاعدة كوحدة نمطية سأوافيك به باذن الله والله منوراء القصد ...........

أخي ايمن عبادي أبقيت على أزرار التصميم الاصلي ،ولكنني لم أجعل النموذج ليكون لتسجيل القيود وانما لغايات الحصول على الرقم الوظيفي الذي سنعتمد عليه للتسمية أما اضافة سجلات الموظفين الجديدة تكون في نموذج آخر متخصص ، وفق ضوابطه الخاصة ، ولا علاقة لهذا النموذج بها. تفقدت المرفق ولم أجد به أي أخطاء نعيد مراحل التطبيق : اختيار الموظف (مربع تحريروسرد) اختيارنوع الوثيقة (مربع تحريروسرد) الزر الايمن للفارة على مربع الصورة (نافدة الاداة) نختار (scan/acquire) من مربع الحوار الذي يظهر لنا نختار Acquire بعد انتهاء مراحل المسح الضوئي حسب الجهاز المستخدم ، نضغط OK أعيدوا التجربة ووافوني بالنتائج ...........................

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