MOMEN AHMED

اعزائي مشرفين الموقع قمت بالبحث فى المنتدى وفى الانترنت عموما عن كيفية حساب عدد الحقول فى التشيك بوكس التي بها علامه صح وحساب ما لم يدخل به علامه صح ولكني لم اجد برجاء المساعده جزاكم الله خير مرفق المثال للفهم db4.zip

نفس المرفق فى الاقتباس بتظهر رسائل الالحاق ولا تختفي عزيزي ابا جودى

بارك الله فيك اخي جعله الله في ميزان حسناتك ولكن بضع الامر DoCmd.SetWarnings False قبل الاستعلام و بعد الاستعلام DoCmd.SetWarnings True وما زالت رسائل الالحاق والتحديث تظهر ما العمل؟

تسلم ايدك اخوي الكريم على مجهودك الرائع انا هاخذ تعديلك db3 لان هو ده اللي انا محتاجه فعلا محتاج طبعا افهم الطريقة حيث ان حضرتك وضعت Sub b50 ووضعت Sub b42 ووضعت Sub b43 ووضعت Sub b44 واخيرا جمعتهم كلهم فى امر واحد اللي هو Private Sub cmd_all_Click الحاجه الوحيده اللي مش فاهمها فى الاكسس واللي دخلت على فيديوهات ومقالات كتيره جدا هي بناء لتعاريف المتغيرات وده اللي حضرتك عملته بالفعل واستخدمت جملة Call ودي اول مره اشوفها ومعرفش معناها طبعا ولو هثقل على حضرتك هل فى كود لاخفاء رسائل تشغيل استعلامات الالحاق؟؟؟؟ جزاك الله خير اخي ابا جودي

ارفقت الملف وجعلت الملف يفتح على الشاشه التي تم شرحها فى الموضوع وبها المشكله http://www.4shared.com/zip/C-N-gJL9ce/_online.html معلش حاولت اضغط الملف بس الموقع مش قابل فرفعته على الفورشيرد شكرا

لدي المجموعه التاليه من الاوامر وكل واحد موضوع فى زر منفصل وعندما دمجتهم فى زر واحد البرنامج يخرج رسالة خطا وسوف اعرضها عليكم بترتيبها حيث انها مسح واضافه وتحديث ثم عند اغلاق الشاشه يقوم بمسح كل محتويات الجدول ونبدأ من الاول اضافه وتحديث وهكذا 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 وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط شكرا

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

جربت كل الطرق ولم اتمكن من الحل

هل يوجد حل لمشكلتي اعزائي المشرفين؟

اعزائي المشرفين عندي مشكله كبيره حيث عندي تقرير على الاكسل مطلوب مني عمله على الاكسس وللاسف فشلت بكل الطرق مرفق اصل البرنامج الاكسس ومرفق ايضا شيت الاكسل في انتظار الحل من عباقرة الاكسس EX-1.zip

اسف ارسلت الصوره الخاطئة برجاء المساعده

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