kanory

حياك الله أخي الفاضل ......

تفضل DoCmd.DeleteObject acQuery , Ql1"

بارك الله فيك ... بالتوفيق

وعليكم السلام ورحمة الله وبركاته DoCmd.DeleteObject acTable, "gol" حيث gol اسم الجدول

وعليكم السلام ورحمة الله وبركاته حذف أو مسح للبيانات فقط

اخي الكريم دائما وجود المثال التوضيحي يوصل الفكرة المطلوبة ويسهل على المجيب ....

اخي الفاضل .... ذكرت سؤالك في المكان الخطأ ... فهذا منتدى الاكسس . بارك الله فيك

ماشاء الله تبارك الله اخي اباجودي 👍

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

اي خدمة ... بالتوفيق

احذف الاستلام والكود تحت الزر واستبدله بالتالي 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 اتمنى اني وفقت في الاجابة