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

kanory

الخبراء
  • Posts

    2310
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    138

كل منشورات العضو kanory

  1. بسم الله ما شاء الله ... اضيفوني طالب معكم
  2. وعليكم السلام أخي @ali2017 هل هذا هوطلبك Ka_count.mdb
  3. ,وعليكم السلام تفضل أخي @Elsayed Bn Gemy ka_lin.mdb
  4. أخي @حمدى الظابط أعانك الله أخي على انجاز عملك ..... والاخوة في المنتدى لن يبخلوا بافكارهم ومساعدتهم ..... بارك الله فيك .
  5. أخي حمدي غفوا على السؤال : 1- هل جربت برامج أخرى للجداول المدرسية ( أنا شخصيا أنصحك بها لأنها أقوى من الاكسس ) لأن الاكسس ضعيف نوعا ما في هذه الفنيات 2- شاهد مثال لهذه البرامج أخي الفاضل في الرابط ادناه https://youtu.be/MA84DMmGmMA
  6. حياك الله والحمد لله رب العالمين
  7. ,تفضل أخي @Elsayed Bn Gemy مرفق البحث.accdb
  8. ,وعليكم السلام ورحمة الله حياك أخي @Elsayed Bn Gemy لو ارفقت مثال مبسط حتى نطبق الكود عليه ... بارك الله فيك
  9. اخي @عبد اللطيف سلوم الحمد لله رب العالمين
  10. نعم افضل .. كل عام وانت بخير اخي الكريم @انس المنصوري
  11. اخي @عبد اللطيف سلوم حول الاستعلام الى امر vba
  12. أخي @عبد اللطيف سلوم هذا الكود يصلح لقاعدة بيانات خارجية غير التي تعمل عليها
  13. أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟ أخي @عبد اللطيف سلوم وجدت هذا الكود ضمن أكواد قديمة مجمعه من منتديات أخرى جربه وأعطني خبر هل يعمل أو لا ... SendKeys "{F10}" SendKeys "]sq"
  14. أخي @عبد اللطيف سلوم عادة ضغط القاعدة تحتاج إغلاق القاعدة ثم فتحها لتعمل على ضغط الجداول الموجودة ..... فلذلك عند الضغط على الزر الذي تحته الكود ... اغلق البرنامج لترى الفرق بعد عمل الكود .. فلذلك الافضل يتم الضغط عند الاغلاق .. والله أعلم
  15. حياك أخي @محمود أبوسيف الحمد لله رب العالمين
  16. أخي @عبد اللطيف سلوم دون تعديل مباشرة تحت حدث عند النقر على الرز فقط .... دون تعديل
  17. أخي @محمود أبوسيف المشكلة لدية في الاستعلام غير عبارة زبون في الاستعلام الى 2 لترى النتيجة
  18. أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق
  19. أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض Dim status As Boolean status = 0 If (MsgBox("ضغط عند الخروج" & Chr(13) & Chr(13) & "هل تريد ضغط قاعدة البيانات عند الخروج", vbYesNo, "ضغط اٍختياري")) = vbYes Then status = 1 Else status = 0 End If Application.SetOption "Auto Compact", status
×
×
  • اضف...

Important Information