kanory

احذف الاستلام والكود تحت الزر واستبدله بالتالي DoCmd.RunSQL "INSERT INTO table2 ( المعرف, yr2, mn2, emp_code2, salary2 ) " & _ " SELECT table1.المعرف, table1.yr1, table1.mn1, table1.emp_code1, table1.salary1 " & _ " FROM table1;" DoCmd.Requery

وعليكم السلام أهلا بك هذا ملفك بعد التعديل نسخ .rar

اخي الكريم ابا جودي .... السلام عليكم ورحمة الله وبركاته ... كل عام وانت بخير .... شرف لي تعليكم وامثلتكم القيمة ... بارك الله فيكم

السلام عليكم ورحمة الله وبركانه أخي الكريم مثالك بعد التعديل طبعا قمنا بانشاء وحدة نمطية فيها التأثيرالمطلوب وبامكانك التعديل في الالوان حسب ماتراه مناسب لك ثم يتم استدعائه من أي نموذج تريدعن طريق حدث عند فتح النموذج ... بالتوفيق اتمنى اني وفقت في الاجابة Ka_test.accdb

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

بارك الله فيك ....

أخي أبا فتحي . قد اكون وفقت في طلبك شريط_متحرك.rar

أخي أبا فتحي . فهم المطلوب اذن : اضف مثالا للتعديل عليه

ما شاء الله تبارك الله . لاحظ اخي حربي .. بعد ما تم معرفة الغرض من السؤال والتعديلات المطلوبة بدأ الاخوة بالرد . لان المطلوب والسبب معروف

يمكن استخدام النقطة التي ذكرها الاستاذ الفاضل ابا خليل

بارك الله فيك ......

وعليكم السلام ورحمة الله وبركاته هل هذا ما تريد

وعليكم السلام ورحمة الله هدية جديرة بالتجربة ...... شكرا لك أخ ريباز

جرب وبلغني بالنتيجة ... بالتوفيق

وعليكم السلام ورحمة الله وبركانه أخي الكريم لو وضعت مثال توضيحي ليسهل التطبيق عليه بارك الله فيك لكن طبق هذا الكود لربما يفي بالمطلوب Public Sub EkCtrControl(frm As Form) On Error Resume Next Dim EkCtr As Control For Each EkCtr In frm If TypeOf EkCtr Is TextBox Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد If TypeOf EkCtr Is CommandButton Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد If TypeOf EkCtr Is Label Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد If TypeOf EkCtr Is ListBox Then EkCtr.ForeColor = اكتب ماتريد EkCtr.FontSize = اكتب ماتريد EkCtr.FontName = اكتب ماتريد EkCtr.BackColor = اكتب ماتريد Next EkCtr End Sub اتمنى اني وفقت في الاجابة

تطبيق جميل اخي عبداللطيف ... بارك الله فيك

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

الْلَّھُم أَهِلَهُ عَليْنَا بِالْأمْنِ وَالإِيْمَانِ وَالْسَّلامَةِ وَالْإِسْلَامِ وَالْعَوْنٓ عَلَى الْصَّلاةِ وَالصِّيَامِ وَتِلَاوَةِ الْقُرْآَنِ الْلَّھُمّ سَلِّمْنَا لِرَمَضَانَ وَسَلِّمْهُ لنا وَتَسَلَّمْهُ مِنّا مُتَقَبَّلاً يٓارٓبٓ العٓالِٓمينْ . مُبارٓكٌ علٓيْكُمْ شّٓهرُ رٓمٓضٓان 🌱

أخي الفاضل : أولا : غيرنا خصائص النموذج s2 شكلي أو مشروط الى .. لا ثانيا : أضفنا الكود التالي في خصائص النموذج واجه_المحاسبة في حدث عند تحريك الماوس والهدف من الكود هواغلاق النموذج s2 DoCmd.Close acForm, "s2", acSaveNo أرجو أن أكون قد وفقت في هذا الشرح السريع

قد أكون فهمت طلبك .... أنظر المرفق اغلاق_النموذج.accdb

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

أخي فراس لا أظن أن الماكروا يستطيع فعل ذلك

تفضل قد يكون هو مطلبك Ka_12.rar

تقضل ملفك بعد التعديل num.rar

ملفك بعد التعديل Database6.rar