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

kanory

الخبراء
  • Posts

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

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

  • Days Won

    140

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

  1. ,وعليكم السلام تفضل أخي @Elsayed Bn Gemy ka_lin.mdb
  2. أخي @حمدى الظابط أعانك الله أخي على انجاز عملك ..... والاخوة في المنتدى لن يبخلوا بافكارهم ومساعدتهم ..... بارك الله فيك .
  3. أخي حمدي غفوا على السؤال : 1- هل جربت برامج أخرى للجداول المدرسية ( أنا شخصيا أنصحك بها لأنها أقوى من الاكسس ) لأن الاكسس ضعيف نوعا ما في هذه الفنيات 2- شاهد مثال لهذه البرامج أخي الفاضل في الرابط ادناه https://youtu.be/MA84DMmGmMA
  4. حياك الله والحمد لله رب العالمين
  5. ,تفضل أخي @Elsayed Bn Gemy مرفق البحث.accdb
  6. ,وعليكم السلام ورحمة الله حياك أخي @Elsayed Bn Gemy لو ارفقت مثال مبسط حتى نطبق الكود عليه ... بارك الله فيك
  7. اخي @عبد اللطيف سلوم الحمد لله رب العالمين
  8. نعم افضل .. كل عام وانت بخير اخي الكريم @انس المنصوري
  9. اخي @عبد اللطيف سلوم حول الاستعلام الى امر vba
  10. أخي @عبد اللطيف سلوم هذا الكود يصلح لقاعدة بيانات خارجية غير التي تعمل عليها
  11. أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟ أخي @عبد اللطيف سلوم وجدت هذا الكود ضمن أكواد قديمة مجمعه من منتديات أخرى جربه وأعطني خبر هل يعمل أو لا ... SendKeys "{F10}" SendKeys "]sq"
  12. أخي @عبد اللطيف سلوم عادة ضغط القاعدة تحتاج إغلاق القاعدة ثم فتحها لتعمل على ضغط الجداول الموجودة ..... فلذلك عند الضغط على الزر الذي تحته الكود ... اغلق البرنامج لترى الفرق بعد عمل الكود .. فلذلك الافضل يتم الضغط عند الاغلاق .. والله أعلم
  13. حياك أخي @محمود أبوسيف الحمد لله رب العالمين
  14. أخي @عبد اللطيف سلوم دون تعديل مباشرة تحت حدث عند النقر على الرز فقط .... دون تعديل
  15. أخي @محمود أبوسيف المشكلة لدية في الاستعلام غير عبارة زبون في الاستعلام الى 2 لترى النتيجة
  16. أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق
  17. أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض 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
  18. كذلك الحال في النموذج ... نعم صحيح .. بالمناسبة انا لست خبيرا كما تظن بل انا مجرد محاول للتعلم . بارك الله فيك انك رفعتني فوق ما استحق ... رفع الله قدرك .
×
×
  • اضف...

Important Information