kanory

أخي حمدي غفوا على السؤال : 1- هل جربت برامج أخرى للجداول المدرسية ( أنا شخصيا أنصحك بها لأنها أقوى من الاكسس ) لأن الاكسس ضعيف نوعا ما في هذه الفنيات 2- شاهد مثال لهذه البرامج أخي الفاضل في الرابط ادناه https://youtu.be/MA84DMmGmMA

حياك الله والحمد لله رب العالمين

,تفضل أخي @Elsayed Bn Gemy مرفق البحث.accdb

,وعليكم السلام ورحمة الله حياك أخي @Elsayed Bn Gemy لو ارفقت مثال مبسط حتى نطبق الكود عليه ... بارك الله فيك

الحمد لله رب العالمين

ممكن ترفق النموذج

اكتب هذا me.x1=me.x2

اخي @عبد اللطيف سلوم الحمد لله رب العالمين

نعم افضل .. كل عام وانت بخير اخي الكريم @انس المنصوري

اخي @عبد اللطيف سلوم انظر الرابط

اخي @عبد اللطيف سلوم اقصد من sql الى vba

اخي @عبد اللطيف سلوم حول الاستعلام الى امر vba

أخي @عبد اللطيف سلوم هذا الكود يصلح لقاعدة بيانات خارجية غير التي تعمل عليها

أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟ أخي @عبد اللطيف سلوم وجدت هذا الكود ضمن أكواد قديمة مجمعه من منتديات أخرى جربه وأعطني خبر هل يعمل أو لا ... SendKeys "{F10}" SendKeys "]sq"

أخي @عبد اللطيف سلوم عادة ضغط القاعدة تحتاج إغلاق القاعدة ثم فتحها لتعمل على ضغط الجداول الموجودة ..... فلذلك عند الضغط على الزر الذي تحته الكود ... اغلق البرنامج لترى الفرق بعد عمل الكود .. فلذلك الافضل يتم الضغط عند الاغلاق .. والله أعلم

حياك أخي @محمود أبوسيف الحمد لله رب العالمين

أخي @عبد اللطيف سلوم دون تعديل مباشرة تحت حدث عند النقر على الرز فقط .... دون تعديل

أخي @محمود أبوسيف المشكلة لدية في الاستعلام غير عبارة زبون في الاستعلام الى 2 لترى النتيجة

أخي @عبد اللطيف سلوم إما يحت زر أو عند الخروج من البرنامج ... والأفضل عند الخروج من البرنامج ... بالتوفيق

أخي @عبد اللطيف سلوم جرب هذا الكود قد يفي بالغرض 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

الحمد لله رب العالمين

كذلك الحال في النموذج ... نعم صحيح .. بالمناسبة انا لست خبيرا كما تظن بل انا مجرد محاول للتعلم . بارك الله فيك انك رفعتني فوق ما استحق ... رفع الله قدرك .

اشكرك @عاشق الرقي الحمد لله رب العالمين .

أخي @ابو زاهر السلام عليكم ورحمة الله وبركاته دوخني موضوعك السبع دوخات .... ههههههه

ولكن أخي @عاشق الرقي أين الكائن المسمى ليس له وجود If Me.المسمى = "عضو الجوازات" Then ElseIf Me.المسمى = "عضو مساند جوازات" Then ElseIf Me.admin = "admin" Then Me.Page363.Enabled = True Else ,ولكن حسب تصوري استخدم هذا الكود ... لأني لم استطع التجربة لأن النموذج الذي ارفقته ناقص يعض المسميات 'غير مسميات الازرة حسب 'Kl1 'kl2 If Me.المسمى = "عضو الجوازات" Then Me.Kl1.Enabled = False Me.Kl2.Enabled = False ElseIf Me.admin = "admin" Then Me.Kl1.Enabled = True Me.Kl2.Enabled = True End If