الاقسام

نفذت الكود الاول و لكن فى حالة وجود نموذج فرعي لا يعطي الاسم الصحيح  forms!fotm1!child1!text0 اريد اذا ضغطت على اي حقل ان يعطني عنوان هذا الحقل كاملا  اشكرك على الاهتمام

[CENTER]شركة المثالي اون لاين لاعمال التنظيف ومكافحة الحشرات وكشف تسربات المياة 0537224070 تعد شركتنا افضل شركة توفر جميع الخدمات المنزلية حيث يوجد لدينا افضل عمالة مدربة على اعلى مستوى فى مجال التنظيف فنقوم باعمال التنظيف للفلل والشقق والمنازل و يوجد لدينا مجموعة كاملة من احدث واقوى الادوات والمعدات المخصصه فى اعمال التنظيف ومواد التنظيف الخاصة بالشركة تنظيف بالدمام فقط كل ذلك فى مقابل اقل الاسعار المتواجده فى الاسواق وشركتنا معتمدة فى المملكة العربية السعودية لما شهده لنا عملائنا من كفاءة وأمانة فى العمل فنحن افضل شركات التنظيف بالمنطقة الشرقية تنظيف منازل نستخدم في شركة المثالي اون لاين أدوات خاصة وحديثة في عملية التنظيف وذلك لتسهيل عملية التنظيف وللوصول إلى الأماكن الصعب الوصول إليها، يتم أيضا استخدام تقنيات خاصة كعمليات التنظيف الجاف للحفاظ على الموكيت والسجاد خدمة ممتازة ليعود العميل مرة أخرى للمزيد زورو موقعنا [URL="http://almomtazz.com/"]شركةالمثالي اون لاين[/URL] [SIZE="6"][COLOR="Red"]خدمات الرياض [/COLOR][/SIZE][URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%AA%D9%86%D8%B8%D9%8A%D9%81-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة تنظيف بالرياض[/URL] [URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%AA%D9%86%D8%B8%D9%8A%D9%81-%D9%85%D9%86%D8%A7%D8%B2%D9%84-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة تنظيف منازل بالرياض [/URL][URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%AA%D9%86%D8%B8%D9%8A%D9%81-%D8%AE%D8%B2%D8%A7%D9%86%D8%A7%D8%AA-%D8%A7%D9%84%D9%85%D9%8A%D8%A7%D9%87-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة تنظيف خزانات المياة بالرياض[/URL] [URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D9%86%D9%82%D9%84-%D8%A7%D8%AB%D8%A7%D8%AB-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة نقل اثاث بالرياض [/URL][URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%AA%D8%AE%D8%B2%D9%8A%D9%86-%D8%A7%D8%AB%D8%A7%D8%AB-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة تخزين اثاث بالرياض[/URL] [URL="http://almomtazz.com/%D9%83%D8%B4%D9%81-%D8%AA%D8%B3%D8%B1%D8%A8%D8%A7%D8%AA-%D8%A7%D9%84%D9%85%D9%8A%D8%A7%D9%87-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة كشف تسربات المياة بالرياض [/URL][URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D9%85%D9%83%D8%A7%D9%81%D8%AD%D8%A9-%D8%AD%D8%B4%D8%B1%D8%A7%D8%AA-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة مكافحة حشرات بالرياض[/URL] [URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D9%85%D9%83%D8%A7%D9%81%D8%AD%D8%A9-%D8%A7%D9%84%D9%86%D9%85%D9%84-%D8%A7%D9%84%D8%A7%D8%A8%D9%8A%D8%B6-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة مكافحة النمل الابيض بالرياض [/URL][URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%B1%D8%B4-%D9%85%D8%A8%D9%8A%D8%AF%D8%A7%D8%AA-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة رش مبيدات بالرياض[/URL] [URL="http://almomtazz.com/%D8%B4%D8%B1%D9%83%D8%A9-%D8%AC%D9%84%D9%8A-%D8%A8%D9%84%D8%A7%D8%B7-%D8%A8%D8%A7%D9%84%D8%B1%D9%8A%D8%A7%D8%B6/"]شركة جلي بلاط بالرياض[/URL][/CENTER]

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

وعليكم السلام   اعمل زر في النموذج ، وضع عليه هذا الكود ، وسيعطيك جميع اسماء الكائنات في النموذج: Dim ctl As Control For Each ctl In Me.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & Me.Name & "!" & ctl.Name 'End If Next   اما اذا اردت معرفة كائنات نموذج آخر ، فضع الكود التالي في وحدة نمطية: Function Control_Names(frm As Form) Dim ctl As Control For Each ctl In frm.Controls 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next End Function ثم تناديها من اي نموذج ، وترفق اسم النموذج الذي تريد معرفة كائناته call Control_Names("frm_Main")   واذا اردت معرفة كائنات جميع النماذج في قاعدة البيانات ، فضع الكود التالي في وحدة نمطية: Function DB_Form_Control_Names2() Dim AccObjects As Object Dim frm As Form Dim ctl As Control For Each AccObjects In CurrentProject.AllForms Set frm = Forms(AccObjects.Name) For Each ctl In frm 'If ctl.ControlType = acTextBox Then MsgBox "Forms!" & frm.Name & "!" & ctl.Name 'End If Next Next End Function وتناديها من اي نموذج هكذا: call DB_Form_Control_Names2   جعفر

مشكور استاذنا ابا خليل عذرا للتاخير كونني كنت خارج منزلي لمدة 3 ايام ولا يوجد انترنت  اولا اعاده الله عليك وعلى الاخوة الافاضل والاكارم بالصحة والعافية واليمن والبركات  ثانيا ليس هذا ما اطلبه اريد عند ارجاع قلم نفوس وdate_maha  يبقى كما هو ولكن date_taslim_nfous في جدول فرز farez يجب ان ينمحي التاريخ   التابع لقلم النفوس &    date_maha  اي يصبح المقابل ل nfous & date_maha المحددين  تاريخ تسليم النفوس date_taslim_nfous = null  وشكرا ارجو ان تكون وصلت الفكرة  -----------------   للرفع -------------------------   iiii5.rar