متقاعد

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

في مثل هذه الحالات نعمل استعلام للجدولين ثم نربط حقل الضامن في الجدولين ونجعل الصلة كما في الصورة المرفقة
بالنسبة للبحث اجعل الاستعلام ☝️مصدر لسجلات النموذج وفي معايير الاستعلام ضع التعبير التالي ⬇️ تحت اسم الضامن
Like "*" & [Forms]![frm1]![c_list] & "*" مع ملاحظة تغيير اسم النموذج واسم القائمة وفقا للتسميات لديك
اخيرا الافضل عندما ترفق مثال ان يحتوي على بعض البيانات فيكون الامر اسهل لمن يرغب بالمساعدة
تحياتي

عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد
وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف
الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار
صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال
 
تحياتي
برنامج اعداد الخطط لمركز السلام(3).accdb

عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد
وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف
الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار
صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال
 
تحياتي
برنامج اعداد الخطط لمركز السلام(3).accdb

عملت لك نموذج الاختيار الاهداف في نموذج اختيار الخطة وضعت زر امر يفتح النموذج المساند للاختيار المتعدد
وبالتالي يمكن اختيار اكثر من هدف كل مرة ويمكنك الاستمرار على الطريقة السابقة اي انه يمكن اضافة هدف كل مرة او مجموعة من الاهداف
الاهداف بلون مختلف في النموذج الجديد تعني انها موجود مسبقا لدى الطفل فلا يتم اضافتها مره اخرى حتى لا يحصل تكرار
صحيح ممكن منع التكرار او منع ظهور هذة الاهداف ضمن النموذج ولكن ليس لدي وقت ولا طولة البال
 
تحياتي
برنامج اعداد الخطط لمركز السلام(3).accdb

تم تصحيح خطا في تقرير الاهداف المنتهية 
الملف مرفق
 
برنامج اعداد الخطط لمركز السلام(2).accdb

استكمال للرد السابق
ولكن في البداية نقدم احلى تحية لاستاذنا @ابو جودي وننتهز الفرصة ونقول له كل عام وانتم بخير
الان نعود للموضوع
دوال تجميع المجال او مايسميها بعض المختصين دوال D تتشابه في طريقة كتابتها ولها ثلاث معلمات
المعلمة الاولى الحقل * الذي نبحث فيه عن القيمة وقد يكون الحقل في جدول او استعلام
المعلمة الثانية المجال وهو تعبير نصي يمثل اسم الجدول او اسم الاستعلام
المعلمة الثالثة المعيار وهو اختيار وقد يكون معيار واحد او اكثر وقد يكون نصي او رقمي او منطقي
بعض هذة الدوال يمكنها التعامل مع اكثر من حقل لذا في مثل هذه الحالة لدينا حقل الرقم وحقل اللون وقد يكون لدينا حقول اخرى مثلا الموديل او الجهة المصنعة ... الخ
فيكون السؤال هل نقوم بتكرار كتابة الدالة بعدد الحقول المطلوبة ونحن نعلم ان تشغيل الدالة كل مره يمثل عملية استعلام ؟
الاجابة لا نحتاج الى ذلك فبعض هذه الدوال كما اشرنا تتعامل مع اكثر من حقل فيكون الامر على النحو التالي
Dim x() As String a = DLast("[m]&'|'&[k]&'|'&[r]", "GTTT") x = Split(a, "|") M = x(0) + 1 k = x(1) R = x(2) M = اخر رقم تم تسجيله + 1
K = اخر قيمة مسجلة في حقل الشركة المصنعة
R = اخر قيمة مسجلة في حقل اللون
السؤال الاخير هل يمكن تحقيق النتيجة بدون استخدام DLast ؟ نعم ممكن توجد اكثر من طريقة منها استخدام مصفوفة من خلال مصدر السجلات
وسوف اتوقف هنا فالاستطراد قد يشتت الفكرة
قالت العرب :
يكفيك من الزاد ما بلغك المحل
تحياتي وتقديري

ملاحظة تجنب تسمية الاحقول بالارقم
الملف مرفق
Database51.accdb

لا مشكلة استاذ طاهر حتى لو اردت جمع الفكرتين مع اني لا اجد فائده من ذلك
يكون الامر في حدث عن عداد الوقت
dd = dd + 1 If dd = Val(x) Then Me.TimerInterval = 0: x = 0 وفي زر الامر
dd = 1 x = DCount("*", "tbl_item") Me.TimerInterval = x هنا يكون x هو ناتج عدد سجلات الجدول
الملف مرفق
145(1).accdb

في زر الامر نفذ ضع الامر التالي
Dim rs As Recordset Set rs = CurrentDb.OpenRecordset("SELECT * FROM tmb2") rs.FindFirst "[links]=" & Me.مربع_تحرير_وسرد17.Column(0) If Not rs.NoMatch Then rs.Edit rs!rsid = rs!rsid + Val([نص50]) rs.Update End If rs.Close Set rs = Nothing Me.حذف_فرعي.Requery مع ذلك سوف تواجهك رسالة نصها "مستخدم اخر قام بتحرير البيانات الخ"
هذه الرسالة ليس لها بالكود ولكن لكونك عند اعداد النموذج الرئيسي جعلت مصدر بياناته استعلام وقمت بربط الجدول الرئيسي والفرعي

امر الطباعة
DoCmd.PrintOut له 6 بارمترات لكل منها عمله والي يهمنا في تحديد عدد النسخ هو الخامس Copies
ولكوننا نرغب في تحديد النسخ عن طريق مربع او قائمة نكتب الامر
DoCmd.PrintOut , , , , [tx3] tx3 هو مربع النص الذي نحدد فيه عدد النسخ
ويكون الامر هكذا
DoCmd.OpenReport "r_1", acViewPreview, , , acHidden DoCmd.PrintOut , , , , [tx3] نفتح التقرير في وضع مخفي ونطبع النسخ المحددة
انا ماعندي طابعة ولكن استخدمت طابعة مايكرواسوفت لبي دي اف وطبع ثلاث نسخ مثلما حددت

الشكر لله اخي احمد
لكن لازم تنتبه اننا استخدمنا كود بيكون بطئ لو كان لديك عدد كبير من السجلات التي سيتم تحديثها في المره الواحدة يعني مثلا بتنقل عشرات الموظفين في كل حركة نقل
لذا ارفق لك تعديل باذن الله بيكون اسرع وان شاء الله ما تواجه فيه اي مشاكل
 
إدارة المشاريع(1).accdb

الشكر لله اخي احمد
لكن لازم تنتبه اننا استخدمنا كود بيكون بطئ لو كان لديك عدد كبير من السجلات التي سيتم تحديثها في المره الواحدة يعني مثلا بتنقل عشرات الموظفين في كل حركة نقل
لذا ارفق لك تعديل باذن الله بيكون اسرع وان شاء الله ما تواجه فيه اي مشاكل
 
إدارة المشاريع(1).accdb

في زر امر ضع
Dim intnewrec As Integer intnewrec = Form.NewRecord If intnewrec = True Then MsgBox "You're in a new record." End If ويمكن ايضا استخدام الشرط في اي حدث او ضمن كود معين مثلا اذا رغبنا في منع التعديل للسجلات ماعدا السجل الجديد او .... الخ