الحلبي

جزاك الله عنا كل خير

استاذنا الفاضل @محمد ابوعبد الله مثال رهيب وجميل وما اروع جزاك كل خير خبيرنا الجميل وبارك الله فيك لى ملحوظة صغيرة هى تبديل حرف الخاء (خ) والجيم (ج) عكس بعض في قائمة الحروف

مزيد من التقدم والرقى لخبرائنا / @محمد ابوعبدالله و @sandanet تهئنة لخبيرنا محمد ابو عبد الله فكان واضح من ردوده واجاباته لنا تهئنة لخبيرنا sandanet فكان واضح منذ فترة طويلة وارجو بمناسبة الترقية ان يهدينا فتح برنامجه الاخير " حماية اكسس من بعيد" كما اشكر استاذنا الحليل ومعلمنا وخبيرنا الاستاذ / جعفر على حسن متابعته لنا وياسلام على كلمة تلأ لأ فهى كلمة جميلة جعلتى عند قراءتها اتهته كثيرا دائما احب اداعب استاذنا ومعلمنا القدير/ جعفر وايضا استاذنا ومعلمى مروض الاكسس / محمد عصام احب مداعبتعم وخفه ظلهم

الاستاذ الفاضل / @عبد اللطيف سلوم جزاك الله خيرا هذا من طيب قلبك وحسن تعاملك ان اوكد كلامك بان المنتدى فعلا موقع تعليمى احترافى وانا ايضا استفدت منه كثيرا بارك الله فى كل القائمين عليه .

الاستاذ الفاضل / @محمد سلامة جميل جدا هذا الموضوع بارك الله فيك وجعله في ميزان حسناتك نرجو المزيد مثل هذه المواضيع

شكرا لك وجزاك الله خيرا كل ما اريده هو عدم قيام اي موظف بشركتنا بنسخ البرنامج وضياع تعبى ومجهودي فيه حتى تعب كل من قام في المنتدي بمساعدتى الا من رحم ربى وجاء يستاذن ويستفسر عن شئ . مع العلم ان لحضرتك موضوع مضمونه مثل هذا وهو عدم النسخ وقمت بتطبيقه عندى ولكن قلت يمكن هذا يكون اقوى انا فى انتظار ان يكون مفتوحا ان شاء الله

تم التفعيل ولكن متى يكون مفتوح المصدر حتى يمكننا التطبيق على برنامجنا

والله يااستاذ/ @sandanet دائما اعمالك مفيدة لى ـ احسن الله اليك وبارك الله في رزقك ان امكن : رقم النسخة عندى هو 285432006 جزاكم الله خيرا

بارك الله فيك استاذنا / @ابوآمنة وجعله في ميزان حسناتك

استاذي وخبيرنا / خالد يسعدنى مرورك فانت دائما طيب القلب ونصير المبتدئين بارك الله فيك وجعله في ميزان حسناتك

استاذنا وحبيبنا / @SEMO.Pa3x نعم هذا هو المطلوب بارك الله فيك وزادك من علمه ورحم الله والديك ورزقك الله رزقا واسعا خبير وعبقرى وعندك الحل دائما وفى اي وقت بارك الله فيك وكان هناك شئ بسيط ناقص وهو عند الضغط على اي حقل فى الفرعى تنتقل قيمة K1 الى الحقل R1 فى الرئيسي وقام الاخ الفاضل / @محمد ابوعبدالله جزاه الله خيرا بالحل فى مشاركة سابقة بان نضغ في حدث "فى الحال" للفرعى الكود التالى: On Error Resume Next Forms!f1.Form!R1 = Me.k1 والآن اصبح كل شئ تمام التمام ولن ننسى مشاركة استاذي والقريب الى قلبى ومروض الاكسس / @ابا جودى جزاه الله كل خير اخواني الافاضل لكم كل التحية والتقدير لشخصكم الكريم

مرحب بشمهندسنا ومروض اكسسنا استاذى الجليل ومعلمى / @ابا جودى اوضح المطلوب اكثر فى خطواط مرتبه الاسم الرابع مثلا هو "احمد" وبجانبه خانة الاختيار (فارغة) فيكون المربع الفارغ D1 لونه احمر ومكتوب فيه "غير متعاقد" واذا اردنا ان نعدل ونجعله "متعاقد " فنذهب الى خانة الاختيار R1 (فى الرئيسى) ونغيرها الى علامة الصح (نعم) فيتغير اتوماتيكا المربع D1 من الاحمر الى اللون الابيض اى ان نبدأ اولا بالضغط على اي حقل في الفرعى حتي نرى فى الرئيسى نفس قيمة خانة اختيار الفرعى ثم الضغط على خانة اختيار الرئسي يتغير في الفرعى ان كانت K1 فى الفرعى فارغة يصبح المربع لونه احمر ومكتوب غير متعاقد والعكس صحيح هذا هدفى من الموضوع يابشمهندس معلش ان كررت الكلام لانى عايز اوصل المطلوب واضحا جزاكم الله خيرا

السلام عليكم اخوانى الاعزاء كما فى المرفق كيف يمكن عند الضغط على خانة الاختيار فى النموذج الرئسي وكانت (نعم) ان يتلون الحقل المسمى D1 باللون الاحمر وتكتب بداخله كلمة "غير متعاقد" اتوماتيكيا وعند الضغط خانة الاختيار فى الرئيسى وكانت( لا) يتلون الحقل D1 باللون الابيض وتكتب بداخله كلمة "متعاقد" اتوماتيكيا الضغط على الفرعى (1).accdb

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

الاخ الفاضل/ @محمد ابو عبدالله انا متاسف لك فعلا النموذج يعمل جيدا ـ جزاكم الله خير استاذ / محمد بارك الله فيك وجعله في ميزان حسناتكم ومادام حضرتك "محب الله ورسوله " فاللهم حبب الله فيكم ورحمكم في الدنيا والاخره بعيدا عن الدعاء لكم - لى طلب اخر ان سمحت لكم ظروفكم ووقتكم هل يمكن ان نضع مربع فارغ في النموذج الفرعى وعند الضغط على خانة الاختيار R1 في الرئيسي يتلون المربع في النموذج الفرعى باللون الاحمر ويكتب بداخله اتوماتيكيا "غير متعاقد" واذا ضغطنا على R1 مرة اخري يتلون المربع الفارغ الى اللون الابيض وتتحول الجملة الى " متعاقد" داخل المربع المنشأ ارجو ان لا اكون قد اثقلت عليك وحسب وقتك بارك الله فيك

لا والله يااخى محمد ابو عبد الله ما صبطت جرب حضرتك بنفسك جزاكم الله خيرا

السلام عليكم اخوانى الاعزاء مرفق نموذج رئيسى به خانة الاختيار R1 (عبارة عن نعم/لا ) واخر فرعى به خانة الاختيار K1 ( عبارة عن نعم /لا ) في المرفق تلاحظ عند الضغط على حقل التاريخ في الفرعي تنتقل( او تتساوى) قيمة خانة الاختيار من الفرعى الى الرئيسى المطــــــــلوب : عند الضغط على اي حقل فى الفرعى تنتقل القيمة الى الرئيسى وليس الضغط فقط على حقل التاريخ فهل هناك كود لعمل ذلك جزاكم الله خيرا الضغط على الفرعى.accdb

هذا موضوع شيق وهام جدا واشكر الاخ السائل لطرح هذا الموضوع كما تعودنا من استاذنا / @ابو ياسين المشولي جزاه الله خيرا مساعدة الاخرين لى سؤال هنا لماذا لا يتم النسخ عندما اختار مثلا المسار رقم 1 واضغ على زر نسخ لا يتم النسخ ولكن عندما اختار الخمس مسارات يتم الحفظ لكم خالص تحياتى

الاخ الفاضل / على وعليكم السلام اولا شكرا لك للمشاركة للمساعدة جزاك الله خيرا اخى الحبيب انت قمت فقط بتعديل الربط بين الرئيسى والفرعى وجعلته حقل التاريخ (xdate) بدل من حقل (sr) وهذا لا يفى بالغرض حيث انى اريد كل موظف على حده بين بياناته في الرئسي والفرعى فيلزم الربط بالحقل (sr) بمعنى ان كل موظف فى الرئيسي له اكثر من سجل فى الفرعى عموما كانت مشاركة بها محاولة جميلة للتغلب على عدم تكرار كود الموظف جعله الله في ميزان حسناتك انا اكتفيت بالحل الذي قمت به في المشاركة السابقة ولكم جزيل الشكر

استاذي وخبيرنا الفاضل / ابو ياسين لقد توصلت الى الحل بعد عدة محاولات والفضل يرجع لله ثم لحضرتك استعرت الكود الجميل الرائع جدا جدا جدا جدا جدا من حضرتك دون باقى الكود If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#") > 0 Then MsgBox " الاسم مكرر ", vbExclamation, " : خطــــــــأ " واضفت له شرط حقل (القسم) ايضا واصبح كالتالي If DCount("*", "t2", "[nume]='" & Me.nume & "'" & "AND [xdate]=#" & Format(Me.xdate, "yyyy/mm/dd") & "#" & "and xpart='" & Me.part & "'") > 0 Then وعملت استعلام الحاق وغيرت خصائص الحقل sr في الجدول t2 وجعلته رقم حتى يقبل التكرار وارفقت المثال للافادة لكل من ياتى بعدنا بعد عمل بعد التغيرات عليه وبمجرد الضغط على زر الالحاق اصبح يظهر في النموذج الفرعى بمجرد الضغط حاول ان تغير القسم او التاريخ ترى ماذا يحدث طبعا هذا والله العظيم بفضل الله ثم فضلكم علىٌ ربنا يزيدك علما ينتفع به ويكثر من امثالك ويرحم والديك في الدنيا والاخره لك كل احترام وتقدير لشخصكم الكريم عدم التكرار (1).accdb

استاذنا الفاضل / ابو ياسين جزاكم الله خيرا وجعله في ميزان حسناتكم بعد الضغط علي زر الترحيل يتم الترحيل وعند اغلاف النموذج وفتحه تظهر رسالة خطأ اعتقد ان السبب هو تكرار كود الموظف بعد الترحيل مع اني محتاج ان يكون النموذجين يتم الربط بينهما بكود الموظف sr حتى تظهر بيانات كل موظف لحاله وايضا لم يظهر السجل الذي تم ترحيله في الفرعى بمجرد الضغط علي الزر اسف لتعبك معي

مش فاهم الالحاق يتم من النموذج

جعلت الاربع حقول مفتاح اساسى لم يتم اي الحاق جرب على المثال المرفق وشوف بنفسك

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

اولا اشكرك على مرورك فكرت فى نفس فكرة حضرتك ولكن انا محتاج ان الاسم يكون مكرر وجميع البيانات مكررة ما عدا التاريخ