أبو آدم

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

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

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

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

الرقم في جدول الندب مفتاح أساسي لا يقبل التكرار العلاقة بين الجدولين رأس برأس تفضل ... جرب ووافني بالنتيجة .......... ............. NA_PopUpFormUp.rar

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

وعليكم السلام ورحمة الله وبركاته أنزلتني منازلاً لست أهلاً لها فما زلت ألوم نفسي لتقبلي مديحاً ، حتى ظنَّ الإخوة أنني أستمرئُ المديح وتشتاق له نفسي ، وحتى بِتُ ممن يُخشى عليهم الفتنة ... !!! أقدرُ عالياً كلماتك الطيبة الأخوية العفوية وأتمنى أن يبقى تسلسل المشاركات كما هو على أن تختار للموضوع إسماً جديداً يحيط بما إستجد به شكراً ............

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

حياك الله ( عبد المجيد ) جزيت خيراً على مؤازرتك لإخوتك وشكراً ...............

RDBMS RDBMS يرمز لنظام إدارة قواعد البيانات العلائقية. RDBMS هو الأساس لSQL، وبالنسبة لجميع أنظمة قواعد البيانات الحديثة مثل MS SQL Server و DB2 IBM، Oracle ، MySQL، و Microsoft Access. يتم تخزين البيانات في RDBMS في كائنات قاعدة البيانات وتسمى الجداول. والجدول هي عبارة عن مجموعة من إدخالات البيانات ذات الصلة، وتتكون من أعمدة وصفوف. نعرف أن قاعدة البيانات في أغلب الأحيان تحتوي على واحد أو أكثر من الجداول. يتم تعريف كل جدول بواسطة اسم (على سبيل المثال "العملاء"، أو "الطلبيات"). الجداول تحتوي على سجلات (صفوف) مع البيانات. فيما يلي مثال من جدول يسمى "Persons":يحتوي الجدول أعلاه ثلاثة سجلات (واحد لكل شخص)، وخمسة أعمدة (P_Id، اسم العائلة، الاسم الأول، العنوان، والمدينة). عبارات SQL معظم الإجراءات التي تحتاج إلى تنفيذ على قاعدة بيانات مع عبارات SQL. سيكون عبارة SQL التالية تحديد كافة السجلات في الجدول "Persons": SELECT * FROM Persons فائدة : نضع في اعتبارنا أن ... SQL ليست حساسة ل case فاصلة منقوطة بعد بيانات SQL؟ أنظمة قواعد البيانات تتطلب فاصلة منقوطة في نهاية كل عبارة SQL. الفاصلة المنقوطة هي الطريقة القياسية للفصل بين كل بيان SQL في أنظمة قواعد البيانات التي تسمح بتنفيذ أكثر من عبارة SQL في نفس الجملة إلى الملقم. ملاحظة : جميع المعالجات و النسخ الحديثة تستخدم الفاصلة المنقوطة في نهاية عبارة SQL ................................

أخي العزيز إختراق جميل للفكرة و التطبيق سهل ممتنع ... بوركت ونفع الله بك .............. نتمنى أن تتفاعل معنا في سياسة تعريب أسماء الظهور ...... http://www.officena.net/ib/index.php?showannouncement=21&f=89 ..............

دعوة للمساهمة والإطلاع .... ، سعياً لعموم الفائدة http://www.officena.net/ib/index.php?showtopic=41731 ..................

أصي - من أراد - و أُوضح " وكفى " التي ورد في المشاركة 21 هي " كفى ما قيل في المقال " وليست كفى بمعنى آخر مهما كان ، فقد بِتُ أخشى سوء الفهم ، وإختراق و إختلاق سوء النوايا. أما ما أوصى به هنا ، فهو إستخدام معالج الأخطاء دوماً ، سعياً للخروج برسالة خطأ واضحة من النظام ، ومنعاً للدخول الى كودات التطبيق ، وهي مثلاً : On Error GoTo Err_Tracker ......... Exit_Tracker_ASS: Exit Sub Err_Tracker: MsgBox Err.Description Resume Exit_Tracker_ASS ..............

أما التطبيق فهذا ما آل اليه ... تفضل ... جرّب ووافني بالنتيجة ... والله من وراء القصد .... وهو حسبي .......... NA_PopUpForm.rar

جلَّ من لا يسهو سهوت أن أقول لكم ، لمعرفة اسم المستخدم وتوثيقه في أي مكان ، جدول ، استعلام ، نموذج ، تقرير ، ...... نستخدم = VBA.Environ("USERDOMAIN") ................

أما أخر ما واجهني من " ماذا لو " حدث خطأ ما أو عبث ما وغيرت خصائص حقلي جهة الندب ونوعه ، وأصبحت غير مطلوبة ، وبدأت تتراكم لدينا سجلات لا معنى لها وفيها نقص مُخِل ؟ وجاء الحل بجملة sql في حدث عند الاغلاق لنموذج تسجيل معلومات الندب ، ليتم حذف أي سجل يكون فيه حقل جهة الندب أو نوع الندب فارغاً ، وهو كما يلي: Private Sub Form_Close() DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tblAssignments.strTo, tblAssignments.strType " & vbCrLf & _ "FROM tblAssignments " & vbCrLf & _ "WHERE (((tblAssignments.strTo) Is Null)) OR (((tblAssignments.strType) Is Null));" DoCmd.SetWarnings True End Sub وهنا يكتمل العقد لهذا المدى ... وكفى .. ...........

وجاء الحلّ بفضل من الله ، في هذا الروتين في حدث الحالي لنموذج إدخال معلومات الموظفين Form1: Private Sub Form_Current() On Error GoTo Err_Tracker If Not Me.NewRecord Then Dim varXX As Variant varXX = DCount("[strID]", "tblAssignments", "[strID] = " _ & Me![Text1]) If varXX = 0 Then Me.strAssignment = 0 ElseIf varXX = 1 Then Me.strAssignment = -1 End If Else End If Exit_Tracker_ASS: Exit Sub Err_Tracker: MsgBox Err.Description Resume Exit_Tracker_ASS End Sub حين نقوم مرة أخرى بإحصاء عدد السجلات في الجدول tblAssignments بمعيار تطابق الرقم الوظيفي في النموذج مع الرقم في الجدول ، فإذا كانت = 1 (أي أن الموظف له سجل إنتداب) نقوم بفرض القيمة -1 (نعم) على قيمة حقل الندب في جدول الموظفين بإستخدام المعيار أعلاه ، وإذا كانت النتيجة صفر (أي أن الموظف ليس له سجل إنتداب) قمنا بفرض القيمة 0 (لا) على قيمة حقل الندب في جدول الموظفين . وهكذا تتطابق مدلولات معلومات الجدولين معاً بشكل دقيق. ...................

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

لم أستخدم الترقيم التلقائي و إنما لجأت للترقيم التلقائي الممنهج باستخدام DMax ، خلف زر الأمر لإضافة موظف جديد والتحكم برقمه الوظيفي ، آخر رقم مستخدم في الجدول tblEmp مضافاً له (1) Private Sub Command5_Click() DoCmd.GoToRecord , , acNewRec If Me.NewRecord Then Me.ID.Value = Nz(DMax("[id]", "tblEmp") + 1, 1) Me.Text3.SetFocus End If End Sub ...............

بدأنا بتسجيل موظف جديد وعند محاولة إستخدام حقل الندب (نعم/لا) الذي يستدعى من خلاله الروتين السابق ، إعترض المعالج بأن السجل المنوي الربط معه غير موجود ، فقمنا بأستخدام الأمر : RunCommand acCmdSaveRecord في حدث بعد التحديث للحقل "إسم الموظف" وقبل الوصول لحقل الندب ................

بعد أن بدأنا بالتنفيذ واجهتني مشكلة كيف نفرق بين الموظف الذي سجلنا له قيد ندب و الذي لم يسجل له قيد ندب ؟ كيف نظهر قيودهم ؟ فقمت بكتابة الروتين التالي الذي يحل المشكلة : Sub Chick_ASS() On Error GoTo Err_strAssignment Dim varX As Variant varX = DCount("[strID]", "tblAssignments", "[strID] = " _ & Me![Text1]) Select Case varX Case 1 Me!strAssignment = -1 Dim stDocName As String Dim stLinkCriteria As String stDocName = "frmAssignment" stLinkCriteria = "[strID]=" & Me![Text1] DoCmd.OpenForm stDocName, , , stLinkCriteria Case 0 DoCmd.OpenForm "frmAssignment", acNormal DoCmd.GoToRecord , , acNewRec Forms!frmAssignment!strID.Value = Me![Text1] End Select Exit_Chick_ASS: Exit Sub Err_strAssignment: MsgBox Err.Description Resume Exit_Chick_ASS End Sub حيث نقوم بإحصاء عدد السجلات في الجدول tblAssignments بمعيار تطابق الرقم الوظيفي في النموذج مع الرقم في الجدول ، فإذا كانت = 1 (أي أن الموظف له سجل إنتداب) نقوم بإظهار السجل ضمن النموذج المنبثق frmAssignment بإستخدام المعيار أعلاه ، وإذا كانت النتيجة صفر (أي أن الموظف ليس له سجل إنتداب) قمنا بإظهار نفس النموذج فارغاً ثم أسندنا قيمة الحقل التي تمثل الرقم الوظيفي الى الحقل strID في النموذج المنبثق ، ليبدأ التسجيل لمعلومات الندب. ...............

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

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

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

كلامك سليم ولكن العام عام و الخاص بقدره اذا كانت المسألة تتعلق بحقل واحد فلا داعي للفصل ، متزوج (نعم/لا) - عدد الاولاد (رقم) أما اذا كانت المسألة أكثر من ذلك ، الا ترى أن الفصل أولى ؟ اذا كانت الحقول للتأمين مثلاً ، وعدد الحقول أكثر مما سلف.... الا يستحق الامر الخوض فيما أسلفتَ في مشاركتك ... ............