jjafferr

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

حيا الله اخوي أبوخليل ، واخوي صالح جعفر

السلام عليكم ايش رايكم بتغيير تنسيق الحقل في الجدول مباشرة . . وسيتغير تلقائيا الى . والنتيجة . ولكن ، بما انه مجرد تنسيق ، فالرقم الاصلي لا يزال كم هو ، وصيغة الحقل رقم ، كما نراه في الاستعلام التالي ، فالمعيار الذي استخدمناه هو 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 . ثم اختار المربع الذي على اليسار ، واذا اخترت المرع الذي على اليمين ، فان جميع جداول اكسس المخفية سوف تظهر كذلك . جعفر