ندي احمد كمال قام بنشر مارس 10, 2016 مشاركة قام بنشر مارس 10, 2016 السلام عليكم ورحمه الله وبركاته الرجاء مشكورين اخواني المبرجمين عن كيفيه اضافه زرار لضغط واصلاح القواعد حيث علمت ان يجب عمل ضغط واصلاح القاعدة كل فترة وانا سوف اغلاقها ومش هعرف اعمل الامر ده من برة برجاء مشاهدة نموذج R t.rar رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 ضع الكود التالي في وحدة نمطية جديدة Public Function CompactRepairDatabase() On Error GoTo Err 'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس إنجليزي CommandBars("Menu Bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction Err: If Err.Number = 5 Then 'الكود التالي لضغط قاعدة البيانات إذا كان الأوفيس عربي CommandBars("Menu Bar").Controls("أ&دوات").Controls("أدوات م&ساعدة لقواعد البيانات").Controls("&ضغط قاعدة بيانات وإصلاحها...").accDoDefaultAction End If End Function ومن ثم توجه الى النموذج الذي يحتوي على زر ضغط واصلاح القاعدة وضع الكود التالي في حدث "عند النقر" لزر ضغط واصلاح القاعدة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Call CompactRepairDatabase End If DoCmd.Quit 2 رابط هذا التعليق شارك More sharing options...
ندي احمد كمال قام بنشر مارس 12, 2016 الكاتب مشاركة قام بنشر مارس 12, 2016 جزاك الله خيرا استاذي الفاضل sandanet بس هناك خطاء ما لا اعرفه رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر مارس 12, 2016 مشاركة قام بنشر مارس 12, 2016 وجدت طريقة اسهل .. اولاً الغي جميع ماسبق من خطوات واستخدمي فقط هذا الكود فيحدث "عند النقر" لزر ضغط واصلاح القاعدة واخبرينا بالنتيجة If MsgBox("هل ترغب في ضغط واصلاح بيانات القاعدة قبل إغلاقها" & vbCrLf & _ "اضغط على (لا) لإلغاء العملية . اضغط على (نعم) لضغط البيانات ", _ vbInformation + vbMsgBoxRight + vbYesNo + vbDefaultButton1, _ "تنبيه : رسالة تأكيد ضغط قاعدة البيانات واصلاحها") = vbYes Then Application.SetOption "Auto compact", True End If DoCmd.Quit 8 رابط هذا التعليق شارك More sharing options...
sameh_awad قام بنشر مارس 13, 2016 مشاركة قام بنشر مارس 13, 2016 بارك الله فى حضرتك رابط هذا التعليق شارك More sharing options...
ندي احمد كمال قام بنشر مارس 13, 2016 الكاتب مشاركة قام بنشر مارس 13, 2016 استاذي الفاضل sandanet لحضرتك كل الشكر والاحترام الكود الاخير فعلا اشتغال تمام وقلل حجم القاعدة فعلا بعد التجريب جزاك الله كل خير فقط ان امكن لي ان اسال مرة اخري هل يمكن ان يفتح القاعدة مرة اخري عن طريق النموذج الرئيسي ؟ وجزاك الله خيرا مرة اخري رابط هذا التعليق شارك More sharing options...
كرار صبري _ أبو جنى قام بنشر مارس 14, 2016 مشاركة قام بنشر مارس 14, 2016 (معدل) 15 ساعات مضت, ندي احمد كمال said: هل يمكن ان يفتح القاعدة مرة اخري عن طريق النموذج الرئيسي ؟ السلام عليكم و رحمة الله و بركاته ... عفوا اختي ... اذا أردت يمكن وضع زر الضغط و الاصلاح كما في الصورة ... في ١٢/٣/٢٠١٦ at 02:39, sandanet said: وجدت طريقة اسهل عفوا اخي لكن الكود لايعمل ... فمثلا عندي حقل ترقيم تلقائي وصل الى 12 وحذفت السجل رقم 12 و عملت الكود المرفق من حضرتك المفروض عند الادخال يبدأ من رقم 12 لكنه يكمل من 13 ... تم تعديل مارس 14, 2016 بواسطه karrar sabry رابط هذا التعليق شارك More sharing options...
sandanet قام بنشر مارس 14, 2016 مشاركة قام بنشر مارس 14, 2016 ندي احمد: اعتقد انه بامكانك فتح القاعدة مرة اخرى لكن يلزمك ازالة docmd.quit ووضع الامر التالي docmd.close ومن ثم docmd.openForm "Form1" اخي كرار الموضوع ليس له علاقة بالترقيم التلقائي فهناك طرق عديدة في هذا المنتدى تعمل على اعادة ضبط الترقيم التلقائي وشكراً 1 رابط هذا التعليق شارك More sharing options...
ندي احمد كمال قام بنشر مارس 14, 2016 الكاتب مشاركة قام بنشر مارس 14, 2016 5 ساعات مضت, sandanet said: ندي احمد: اعتقد انه بامكانك فتح القاعدة مرة اخرى لكن يلزمك ازالة docmd.quit ووضع الامر التالي docmd.close ومن ثم docmd.openForm "Form1" اخي كرار الموضوع ليس له علاقة بالترقيم التلقائي فهناك طرق عديدة في هذا المنتدى تعمل على اعادة ضبط الترقيم التلقائي وشكراً جزاك ربي الفردوس الاعلي عاجزة استاذي الفاضل عن الشكر والثناء علي مجهودك الكريم معي شكرا مرة اخر واللهم اجعل هذا في ميزان حسناتك رابط هذا التعليق شارك More sharing options...
ندي احمد كمال قام بنشر مارس 14, 2016 الكاتب مشاركة قام بنشر مارس 14, 2016 7 ساعات مضت, karrar sabry said: السلام عليكم و رحمة الله و بركاته ... عفوا اختي ... اذا أردت يمكن وضع زر الضغط و الاصلاح كما في الصورة ... عفوا اخي لكن الكود لايعمل ... فمثلا عندي حقل ترقيم تلقائي وصل الى 12 وحذفت السجل رقم 12 و عملت الكود المرفق من حضرتك المفروض عند الادخال يبدأ من رقم 12 لكنه يكمل من 13 ... جزيت خير الجزاء اخي ولاكن اريد ان الغي كل شي من الاوفيس عند الانتهاء من البرنامج ثانيا الكود فعلا خفض حجم البرنامج مما يعني انه شغال صح رابط هذا التعليق شارك More sharing options...
كرار صبري _ أبو جنى قام بنشر مارس 15, 2016 مشاركة قام بنشر مارس 15, 2016 22 ساعات مضت, sandanet said: وشكراً اخي العزيز ... بهذه الطريقة اعرف ان قاعدة البيانات تم اصلاحها ... رابط هذا التعليق شارك 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.