MOMEN AHMED قام بنشر نوفمبر 15, 2016 مشاركة قام بنشر نوفمبر 15, 2016 لدي المجموعه التاليه من الاوامر وكل واحد موضوع فى زر منفصل وعندما دمجتهم فى زر واحد البرنامج يخرج رسالة خطا وسوف اعرضها عليكم بترتيبها حيث انها مسح واضافه وتحديث ثم عند اغلاق الشاشه يقوم بمسح كل محتويات الجدول ونبدأ من الاول اضافه وتحديث وهكذا 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 وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط شكرا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 15, 2016 مشاركة قام بنشر نوفمبر 15, 2016 ممكن المرفق اخى الحبيب لو تكرمت الله يسعدك رابط هذا التعليق شارك More sharing options...
MOMEN AHMED قام بنشر نوفمبر 15, 2016 الكاتب مشاركة قام بنشر نوفمبر 15, 2016 ارفقت الملف وجعلت الملف يفتح على الشاشه التي تم شرحها فى الموضوع وبها المشكله http://www.4shared.com/zip/C-N-gJL9ce/_online.html معلش حاولت اضغط الملف بس الموقع مش قابل فرفعته على الفورشيرد شكرا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 15, 2016 مشاركة قام بنشر نوفمبر 15, 2016 10 ساعات مضت, MOMEN AHMED said: ارفقت الملف وجعلت الملف يفتح على الشاشه التي تم شرحها فى الموضوع وبها المشكله http://www.4shared.com/zip/C-N-gJL9ce/_online.html معلش حاولت اضغط الملف بس الموقع مش قابل فرفعته على الفورشيرد شكرا اتفضل ده الطلب الاول كل اكواد ازرار الاوامر الاربعة http://www.4shared.com/rar/292xPyBwce/db3_up.html? فى شئ مش فاهمه حضرتك فى المشاركة الاولى قلت المستخدم يشتكي من كثرة الزرائر حيث اني مخصص لهذه العمليه اربعة زرائر بخلاف اني وضعت كود لحذف محتويات جدولين فى حدث عند الخروج من البرنامج وهو بهذا الشكل Private Sub Form_Close() DoCmd.RunSQL "DELETE *FROM Table3;" DoCmd.RunSQL "DELETE *FROM [Copy Of Table2];" MsgBox "سوف يتم الخروج من المقارنة", vbInformation, "انتبه" End Sub حيث ان الجدول الاول يوضع به البيانات ليحسب ال rank وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط سؤالى هل تريد عمل زر امر لاغلاق النموذج ووضع الاستعلامات فى حدث عند الاغلاق على زر الامر بدلا من النموذج ؟ 2 رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 15, 2016 مشاركة قام بنشر نوفمبر 15, 2016 وهذا تعديل جديد بعدما فهمت ههههههههههههه معلش بافهم على اد حالى اتفضل ان شاء الله يعجبك http://www.4shared.com/rar/pyf3kdI-ce/db4_up.html? 1 رابط هذا التعليق شارك More sharing options...
MOMEN AHMED قام بنشر نوفمبر 16, 2016 الكاتب مشاركة قام بنشر نوفمبر 16, 2016 19 ساعات مضت, ابا جودى said: اتفضل ده الطلب الاول كل اكواد ازرار الاوامر الاربعة http://www.4shared.com/rar/292xPyBwce/db3_up.html? فى شئ مش فاهمه حضرتك فى المشاركة الاولى قلت المستخدم يشتكي من كثرة الزرائر حيث اني مخصص لهذه العمليه اربعة زرائر بخلاف اني وضعت كود لحذف محتويات جدولين فى حدث عند الخروج من البرنامج وهو بهذا الشكل Private Sub Form_Close() DoCmd.RunSQL "DELETE *FROM Table3;" DoCmd.RunSQL "DELETE *FROM [Copy Of Table2];" MsgBox "سوف يتم الخروج من المقارنة", vbInformation, "انتبه" End Sub حيث ان الجدول الاول يوضع به البيانات ليحسب ال rank وهو مربوط باستعلام ومديول ليخرج الرانك والاخر وهو خزان لتجميع بيانات معينه وعرضها بشكل معين ارجوا المساعده فى دمج هذه الاستعلامات فى زر واحد فقط سؤالى هل تريد عمل زر امر لاغلاق النموذج ووضع الاستعلامات فى حدث عند الاغلاق على زر الامر بدلا من النموذج ؟ تسلم ايدك اخوي الكريم على مجهودك الرائع انا هاخذ تعديلك db3 لان هو ده اللي انا محتاجه فعلا محتاج طبعا افهم الطريقة حيث ان حضرتك وضعت Sub b50 ووضعت Sub b42 ووضعت Sub b43 ووضعت Sub b44 واخيرا جمعتهم كلهم فى امر واحد اللي هو Private Sub cmd_all_Click الحاجه الوحيده اللي مش فاهمها فى الاكسس واللي دخلت على فيديوهات ومقالات كتيره جدا هي بناء لتعاريف المتغيرات وده اللي حضرتك عملته بالفعل واستخدمت جملة Call ودي اول مره اشوفها ومعرفش معناها طبعا ولو هثقل على حضرتك هل فى كود لاخفاء رسائل تشغيل استعلامات الالحاق؟؟؟؟ جزاك الله خير اخي ابا جودي رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 18, 2016 مشاركة قام بنشر نوفمبر 18, 2016 في 11/16/2016 at 00:39, MOMEN AHMED said: تسلم ايدك اخوي الكريم على مجهودك الرائع انا هاخذ تعديلك db3 لان هو ده اللي انا محتاجه فعلا محتاج طبعا افهم الطريقة حيث ان حضرتك وضعت Sub b50 ووضعت Sub b42 ووضعت Sub b43 ووضعت Sub b44 واخيرا جمعتهم كلهم فى امر واحد اللي هو Private Sub cmd_all_Click الحاجه الوحيده اللي مش فاهمها فى الاكسس واللي دخلت على فيديوهات ومقالات كتيره جدا هي بناء لتعاريف المتغيرات وده اللي حضرتك عملته بالفعل واستخدمت جملة Call ودي اول مره اشوفها ومعرفش معناها طبعا ولو هثقل على حضرتك هل فى كود لاخفاء رسائل تشغيل استعلامات الالحاق؟؟؟؟ جزاك الله خير اخي ابا جودي اعتذر اخى الحبيب عن التاخر فى الرد على حضرتك بص يا جميل ببساطة كده اول شئ حضرتك لما عملت ازرار الاوامر لم تقم بتسميتها تركت الاكسس يسميها من تلقاء نفسه فكان الزر الاول يحمل الاسم Command50 وكان الكود الموضوع عليه عند النقر Dim stDocName As String DoCmd.SetWarnings False stDocName = "Query18" DoCmd.SetWarnings True كل اللى انا عملته قمت بالاتى : قمت بأخذ هذا الكود من على زر الامر قص وقمت بعمل Sub b50() وهنا قمت بلصق الكود من زر الامر End Sub وسبب التسمية b50 b انا اختصرت بها كلمة button والرقم 50 لان زر الامر اسمه Command50 اى رقم الزر كان 50 حاولت الحفاظ على النسق بالترقيم الاصلى حتى عندما تفتح وتحاول فهم التعديل تون الدنيا بسيطة وللعلم كان ممكن امسح كل الازرار بالاكواد على الازرار فقط تركتها حتى تفهم انت الكود وتركيبته واليتة هذا اولا وثانيا استدعيتهم جميعا عن طريق calle كل باسمه كما تفضلتم اما بخصوص كود لاخفاء رسائل تشغيل استعلامات الالحاق؟؟؟؟ اعتقد حضرتك كنت استخدمت اصلا هذا الكود من الاول وسأشرحه هذا السطر يوضع فى بداية استدعاء الاستعلام برمجيا من النموذج سواء كان تشغيله RUN SQL او OpenQuery DoCmd.SetWarnings False هذا لايقاف اى رسائل تنبيهية من الاكسس وبعد الاستعلام يوضع هذا السطر DoCmd.SetWarnings True اجمل التحايا رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 18, 2016 مشاركة قام بنشر نوفمبر 18, 2016 شوف كده المرفق ده من غير الازرار خالص http://www.4shared.com/rar/KAbpIPdKce/db4_up__1_.html? 1 رابط هذا التعليق شارك More sharing options...
MOMEN AHMED قام بنشر نوفمبر 21, 2016 الكاتب مشاركة قام بنشر نوفمبر 21, 2016 في 11/18/2016 at 22:53, ابا جودى said: اعتذر اخى الحبيب عن التاخر فى الرد على حضرتك بص يا جميل ببساطة كده اول شئ حضرتك لما عملت ازرار الاوامر لم تقم بتسميتها تركت الاكسس يسميها من تلقاء نفسه فكان الزر الاول يحمل الاسم Command50 وكان الكود الموضوع عليه عند النقر Dim stDocName As String DoCmd.SetWarnings False stDocName = "Query18" DoCmd.SetWarnings True كل اللى انا عملته قمت بالاتى : قمت بأخذ هذا الكود من على زر الامر قص وقمت بعمل Sub b50() وهنا قمت بلصق الكود من زر الامر End Sub وسبب التسمية b50 b انا اختصرت بها كلمة button والرقم 50 لان زر الامر اسمه Command50 اى رقم الزر كان 50 حاولت الحفاظ على النسق بالترقيم الاصلى حتى عندما تفتح وتحاول فهم التعديل تون الدنيا بسيطة وللعلم كان ممكن امسح كل الازرار بالاكواد على الازرار فقط تركتها حتى تفهم انت الكود وتركيبته واليتة هذا اولا وثانيا استدعيتهم جميعا عن طريق calle كل باسمه كما تفضلتم اما بخصوص كود لاخفاء رسائل تشغيل استعلامات الالحاق؟؟؟؟ اعتقد حضرتك كنت استخدمت اصلا هذا الكود من الاول وسأشرحه هذا السطر يوضع فى بداية استدعاء الاستعلام برمجيا من النموذج سواء كان تشغيله RUN SQL او OpenQuery DoCmd.SetWarnings False هذا لايقاف اى رسائل تنبيهية من الاكسس وبعد الاستعلام يوضع هذا السطر DoCmd.SetWarnings True اجمل التحايا بارك الله فيك اخي جعله الله في ميزان حسناتك ولكن بضع الامر DoCmd.SetWarnings False قبل الاستعلام و بعد الاستعلام DoCmd.SetWarnings True وما زالت رسائل الالحاق والتحديث تظهر ما العمل؟ رابط هذا التعليق شارك More sharing options...
ابو جودي قام بنشر نوفمبر 21, 2016 مشاركة قام بنشر نوفمبر 21, 2016 11 ساعات مضت, MOMEN AHMED said: بارك الله فيك اخي جعله الله في ميزان حسناتك ولكن بضع الامر DoCmd.SetWarnings False قبل الاستعلام و بعد الاستعلام DoCmd.SetWarnings True وما زالت رسائل الالحاق والتحديث تظهر ما العمل؟ طيب ممكن مرفق من هذه القاعدة للاطلاع على تلك المشكلة رابط هذا التعليق شارك More sharing options...
MOMEN AHMED قام بنشر نوفمبر 22, 2016 الكاتب مشاركة قام بنشر نوفمبر 22, 2016 في 11/19/2016 at 00:03, ابا جودى said: شوف كده المرفق ده من غير الازرار خالص http://www.4shared.com/rar/KAbpIPdKce/db4_up__1_.html? نفس المرفق فى الاقتباس بتظهر رسائل الالحاق ولا تختفي عزيزي ابا جودى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.