jjafferr

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

وعليكم السلام البرنامج الذي ارفقته انت ، ID ليس AutoNumber ، وانما هو نص ، وكان في اعتقادي ان المرفق هو جزء من برنامج اكبر ، بحيث انه عندك نموذج رئيسي للأب ، ونموذج فرعي للأبناء ، والربط بين النموذجين بالحقل FatherNum ، وبهذه الحالة ، كل شئ سيتم ربطه تلقائيا بين الجدولين. جعفر

وعليكم السلام انت قلت الان: ولكنك في اول مشاركة قلت: وعلى هذا الاساس ، مفهومي هو: بالنسبة للمعلمين ، فإن اجازاتهم ثابته كما تفضلت انت بشرحك ، ولا علاقة لها بفترة العمل ، وغير المعلمين ، فإن اجازاتهم متغيرة بحسب فترة العمل. وانا ذكرت هذه الملاحظة , والتي على اساسها يعمل البرنامج: . فما المطلوب الان؟ جعفر

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

انا عندي عمل بنسبة 100% ، فما اسم النموذج الفرعي الذي لم يعمل؟ وهل كلامنا عن البرنامج Accurate.accdb ؟ جعفر

السلام عليكم بعد ان قارنت الجدولين Fathers و Sons ، رأيت ان معظم الحقول تحمل نفس البيانات ، باستثناء اسم الاسم (اسم الاب في جدول الاباء ، واسم الابن في جدول الابناء) ، فقمت بنسخ الاستعلام السابق ، وعمل استعلامين منه ، واحد للأب والاخر للابن ، وبتعديل اسم خانة الاسم ، حققت التالي: . والمهم عندي هنا هو ، اننا نستطيع تعديل البيانات (وليس قراءتها فقط) . فعند منادات الاب ، نستخدم استعلام الاباء ، وعند منادات الابن ، نستخدم استعلام الابناء والكود التالي يوضح الطريقة Private Sub chk_Father_Click() If Me.chk_Father = -1 Then Me.cmd_son = "" Me.RecordSource = "qry_Fathers" Else Me.RecordSource = "qry_Sons" End If Me.Requery End Sub Private Sub cmd_FatherNum_AfterUpdate() Me.chk_Father = -1 Me.cmd_son.Requery Call chk_Father_Click End Sub Private Sub cmd_son_AfterUpdate() Me.chk_Father = 0 Call chk_Father_Click End Sub Private Sub Form_Load() Call chk_Father_Click End Sub . وقد استفدت من مرفق اخي صالح ، واستخدمت حقلي البحث منه جعفر 479.Fiamlies.accdb.zip

السلام عليكم أخي صالح الطريقة التي استدعيت بها انت البيانات من الجدول ، هي بواسطة الدالة Dlookup لكل حقل ، اي استخدمت الدالة 8 مرات هذا الرابط يشرح طريقة اسرع ، بحيث نجلب جميع الحقول ، ولكن باستخدام الدالة Dlookup مرة واحدة فقط: جعفر

تفضل البرنامجين 83.Search.mdb.zip SearchHighlight.zip

هلا والله اخوي شفان جعفر

الفخر لي انا بالاجابة على احد اعلام المنتدى جعفر

السلام عليكم تم عمل مثل هذا المشروع سابقا ، هنا http://arabteam2000-forum.com/index.php?/topic/282469-عند-الضغط-على-زر-الحرف-يتم-تلوين-الحرف-الأول/ جعفر

اخي الفاضل في سطر في الكود لازم نحذفه (مكرر مرتين ، فلازم نحذفه مرتين) ، فبدل ان اكتبه هنا ، فقد اصلحت الكود في مشاركتي الاصليه اعلاه ، وتستطيع ان تنسخه الى برنامجك وتجربته ، وقد جربته واشتغل تمام شكرا على التنبيه جعفر

انا بدأت العمل عليه ، وان شاء الله اخلص اللي في يدي ، وابدا في موضوعك جعفر

وعليكم السلام اخوي بدر اولا: إلا في حالات قهرية ، لا تستخدم الرقم كإسم اي من كائنات برنامجك (مثل 1 ، 2 ، ...) ، ولا تبدأ إسم اي من الكائنات برقم (مثل 1tbl ، 2MyForm، ...) ، واقصد بالكائنات هنا ، الجداول والنماذج والتقارير والاستعلامات ، واسماء الحقول . ثانيا: تأكد ان تسلسل المرور على الحقول "متسلسل" ، يعني كل حقل يكون تسلسله بعد الحقل السابق: . ونعمل كود لقبل تحديث الحقل ، يرى فيه اذا تم ادخال المعلومة الى الحقل الذي يسبقه ، وإلا ، فلا يسمح له بإدخال المعلومة التالية ، والكود شئ من هذا القبيل: Private Sub txt_2_BeforeUpdate(Cancel As Integer) If Len(Me.txt_1 & "") = 0 Then MsgBox "You cannot leave the Fields txt_1 Empty" cancel=true me.undo End If End Sub Private Sub txt_3_BeforeUpdate(Cancel As Integer) If Len(Me.txt_2 & "") = 0 Then MsgBox "You cannot leave the Fields txt_2 Empty" cancel=true me.undo End If End Sub Private Sub txt_5_AfterUpdate() Me.txt_3 = Me.txt_5 End Sub . ولا تجعل التسلسل يتوقف على الحقلين 3 و 4 ، وبالنسبة للحقل 3 يأخذ قيمته من الحقل 5 ، فيكون بعد تحديث الحقل 5 (كما تشاهده في الكود) جعفر

ولا داعي للجداول ، اريد النماذج والتقارير فقط. قد تكون المشكلة في النموذج الفرعي ، فلم اجرب هذا. جعفر

لوسمحت ترفق برنامجك حتى القي نظرة عليه ، نعم ، على احد برامج المنتدى المليئ بالنماذج والتقارير ، وقبل ان ارفق لك الكود لك. جعفر

هل النماذج التي انتهى منها الكود ، هل تم تغيير نوع الخط فيها الى "الاندلس" (ستلاحظ اسماء النماذج التي انتهى منها الكود في الشاشة اسفل الكود ، ولكن ليس اسم النموذج الاخير) ؟ اسم النموذج الاخير هو النموذج الذي فيه المشكلة ، فهل بالامكان ارفاقه وبدون بقية البرنامج. جعفر

جعفر

اخي الفاضل حتى نستطيع ان نساعدك ، يجب ان نستطيع فهم ملاحظتك ، ويجب ان تعطينا اين المشكلة ونوع المشكلة ورقم الخطأ وووو !! مجرد " الطريقة لم تنجح يقف عند فورم معين ويعطي خطا عند سطر الخط " لا تعطينا معلومة كافية لمعرفة اي من اسطر الكود الـ 43 فيها المشكلة ، او اذا كان في نموذجك شئ خاص!! هل تاكدت من الكود؟؟؟؟ لا ، ليس على برنامجك ، ولكن بالاشارة الى الرابط السابق ، فالكود اشتغل تمام هناك جعفر

وعليكم السلام أخي عبدالله ولو انه يمكن عمل المطلوب هكذا: Dim a1, a2 a1 = Me.EntryType a2 = Me.EntryCode DoCmd.OpenForm "frmtr", , , "[trtype]=" & a1 & " And [TTTT]=" & a2 ولكني انصح بهذه الطريقة ، لمرونتها ولسعة مجالات استعمالها: جعفر

وعليكم السلام الرابط الذي ارفقته لك في مشاركتي السابقة فيه الخطوات جعفر

هذا احد الحلول وهذه طريقة اخرى . جعفر

تفضل 1. بالفأرة اليمين انقر على المثلث الاخضر في الدائرة الحمراء 2. انقر على Navigation Options . ثم اختار المربع الذي على اليسار ، واذا اخترت المرع الذي على اليمين ، فان جميع جداول اكسس المخفية سوف تظهر كذلك . جعفر

السلام عليكم شباب اذا تسمحوا لي اوضح شو المشكلة ، وشو الحل انت جعلت الحقل No مفتاح اساسي في الجدول Ded_k2_In ، اي لا يمكن اضافة سجل بدون ادخال رقم في هذا الحقل ايضا . الاستعلام qry_Ded_k2_In هو مصدر بيانات النموذج Ded_k2 ، والعمل يبدا من هنا 1. العلاقة الموجودة بين الجدولين تقول: اجلب جميع السجلات التي بها قيمة في الحقل CustomerNr من الجدول tblCustomer ، سواء اكانت قيمة الحقل No من الجدول Ded_K2_In موجودة او لا ، 2. الحقول في ربط الجدولين هما: CustomerNr من الجدول tblCustomer ، والحقل No من الجدول Ded_K2_In ، 3. طريقة عرض السجلات هي Dynaset . وعلى اساس هذه العلاقة ، نجد هذه السجلات والملاحظ اننا لا نستطيع ادخال اي قيمة للحقلين New_Tot والحقل New_Mon من السجل الذي رقم CustomerNr هو 6 ، رجاء الملاحظة ان السجل رقم 5 فيه نفس المشكلة (سنرجع لهذا السجل لاحقا في النموذج) . نعمل التغيير التالي للإستعلام: نضيف الى الاستعلام الحقل No من الجدول Ded_k2_In ، ونغير طريقة عرض السجلات الى Dynaset (Inconsistent Updates . الان اصبح بامكاننا ان ندخل البيانات في السجل السابق ، ولكن بشرط ادخال الرقم في الحقل No والذي يجب ان يساوي CustomerNr ، وفي هذا السجل الرقم هو 6 ، وادخال اي قيمة للحقلين New_Tot والحقل New_Mon . والان لادخال البيانات في النموذج ايضا ، نضيف الحقل No الى النموذج ، ونغير طريقة عرض السجلات الى Dynaset (Inconsistent Updates . والان نستطيع ادخال البيانات في النموذج كذلك ، ولكن بشرط ادخال الرقم في الحقل No والذي يجب ان يساوي CustomerNr ، وفي هذا السجل الرقم هو 5 (انظر الى ملاحظتي اعلاه عن هذا السجل) ، وادخال اي قيمة للحقلين New_Tot والحقل New_Mon . ملاحظة مهمة: عندما تكون طريقة عرض السجلات في النموذج Dynaset (Inconsistent Updates ، وعند حذف سجل ، فإنه سيُحذف من جميع الجداول المرتبطة في الاستعلام ، وفي حالتنا هنا ، الجدولين tblCustomer و Ded_K2_In جعفر 477.db1.mdb.zip

عفوا على التدخل ، ولكن اذا كان الاستفسار عن رسالة الخطأ ، فقومي بتغيير الكلمة flase الى false حيث تم طباعتها خطأ جعفر