اذهب الي المحتوي
أوفيسنا

البحث في الموقع

Showing results for tags 'حاولت دمج اكثر من امر في زر واحد ولكن فشلت'.

  • Search By Tags

    اكتب الكلمات المفتاحيه بينها علامه الفاصله
  • Search By Author

نوع المحتوي


الاقسام

  • الترحيب
    • نرحب بزوار الموقع
  • قسم تطبيقات و لغات مايكروسوفت
    • منتدى الاكسيل Excel
    • قسم الأكسيس Access
    • منتدي الوورد Word
    • منتدى الباوربوينت
    • منتدى الاوتلوك Outlook
    • المنتدى التقني العام و تطبيقات الأوفيس الأخرى
    • إعلانات شخصية للأعضاء
    • قنوات تعليمية وإعلانات دورات تدريبية
  • إدارة المشاريع والبحث العلمي وعلوم البيانات
    • إدارة المشاريع ومحافظ المشاريع
    • البحث العلمي والإحصاء
    • الذكاء الإصطناعي و التنقيب فى البيانات
  • القسم العام
    • قسم الاقتراحات و الملاحظات
    • مشاركات المدونات
    • أوفيسنا على الفيسبوك

الاقسام

  • VBA Code Library
  • قسم الإكسيل
  • قسم الأكسيس
  • قسم الوورد
  • Project Management
  • Self development التطويرالذاتي
  • معلومات مفيدة
  • أدوات عامة

مدونات

  • M-Taher's Blog
  • مدونة محمد طاهر
  • Officena
  • اا الفاروق اا
  • ‎مدونة أخبار التكنولوجيا
  • M-Taher's Blog
  • يحيى حسين's Blog
  • خبور خير's Blog
  • Dr. AbdelMalek Abu Sheikh's Blog
  • m.hindawi's Blog
  • احمدزمان's Blog
  • الحسامي
  • مدونة أ / محمد صالح
  • yahiaoui's Blog
  • عبدالله المجرب's Blog
  • صيد الخواطر
  • حمادة عمر مدونة
  • مدونة جعفر
  • مدونة عادل حنقي
  • مجدى يونس: لمسة وفاء لمنتدى اوفيسنا
  • Excel Expert Financial&Accounting
  • مدونة اعمال ايقونات الماس لمنتدى اوفيسنا
  • رقائق فى دقائق
  • Shivan Rekany

ابحث عن النتائج فى ......

ابحث عن النتائج التي تحوي ....


تاريخ الانشاء

  • بدايه

    End


اخر تحديث

  • بدايه

    End


Filter by number of...

انضم

  • بدايه

    End


مجموعه


Job Title


البلد


الإهتمامات


AIM


MSN


Website URL


ICQ


Yahoo


Jabber


Skype

تم العثور علي 1 نتيجه

  1. لدي المجموعه التاليه من الاوامر وكل واحد موضوع فى زر منفصل وعندما دمجتهم فى زر واحد البرنامج يخرج رسالة خطا وسوف اعرضها عليكم بترتيبها حيث انها مسح واضافه وتحديث ثم عند اغلاق الشاشه يقوم بمسح كل محتويات الجدول ونبدأ من الاول اضافه وتحديث وهكذا 1-زر لتشغيل استعلام الحاق واسمه Query18 Private Sub Command50_Click() Dim stDocName As String DoCmd.SetWarnings False stDocName = "Query18" DoCmd.SetWarnings True DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_Command50_Click: End Sub ________________________________________________ 2- زر لتشغيل استعلام الحاق واسمه Query6 On Error GoTo Err_Command42_Click Dim stDocName As String DoCmd.SetWarnings False stDocName = "Query6" DoCmd.SetWarnings True DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_Command42_Click: Exit Sub Err_Command42_Click: MsgBox Err.Description Resume Exit_Command42_Click ____________________________________________________ 3- زر لتشغيل استعلام تحديث لما قمنا بالحاقه اسمه Query5 On Error GoTo Err_Command43_Click Dim stDocName As String stDocName = "Query5" DoCmd.OpenQuery stDocName, acNormal, acEdit Exit_Command43_Click: Exit Sub Err_Command43_Click: MsgBox Err.Description Resume Exit_Command43_Click ____________________________________________________ 4- زر امر تشغيل تسعة استعلامات واكلهم استعلامات تحديث On Error GoTo Err_Command44_Click Dim stDocName As String DoCmd.SetWarnings False DoCmd.OpenQuery "Query7" DoCmd.OpenQuery "Query8" DoCmd.OpenQuery "Query9" DoCmd.OpenQuery "Query10" DoCmd.OpenQuery "Query11" DoCmd.OpenQuery "Query12" DoCmd.OpenQuery "Query13" DoCmd.OpenQuery "Query14" DoCmd.OpenQuery "Query15" DoCmd.SetWarnings True MsgBox "تم تشغيل الإستعلامات بنجاح", vbInformation, "نجاح التحديث" Exit_Command44_Click: Exit Sub Err_Command44_Click: MsgBox Err.Description Resume Exit_Command44_Click المستخدم يشتكي من كثرة الزرائر حيث اني مخصص لهذه العمليه اربعة زرائر بخلاف اني وضعت كود لحذف محتويات جدولين فى حدث عند الخروج من البرنامج وهو بهذا الشكل Private Sub Form_Close() DoCmd.RunSQL "DELETE *FROM Table3;" DoCmd.RunSQL "DELETE *FROM [Copy Of Table2];" MsgBox "سوف يتم الخروج من المقارنة", vbInformation, "انتبه" End Sub حيث ان الجدول الاول يوضع به البيانات ليحسب ال rank وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط شكرا
×
×
  • اضف...

Important Information