kanory

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

أخي @عبد اللطيف سلوم بالعكس هذا يجعلنا نفكر بكود أخر يقوم بالضغط دون الحاجة لأغلاق البرنامج ... السؤال : هل هذا ممكن ؟ أخي @عبد اللطيف سلوم وجدت هذا الكود ضمن أكواد قديمة مجمعه من منتديات أخرى جربه وأعطني خبر هل يعمل أو لا ... 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

ولكن أخي @عاشق الرقي لم افهم ما هو الشرط المطلوب تحقيقة لتمكن الزر ... ارجو التوضيح ...

تفضل أخي @king5star

تفضل أخي @عاشق الرقي اسف لم ارى مثالك .... لذلك عملت لك مثال أخر طبقه على مثالك ... او اطلب أن أطبقة لك على المثال ... بارك الله فيك Ka_n.accdb

اخي الفاضل @عاشق الرقي ممكن مثال نطبق عليه فكرتك ...

اخي @عاشق الرقي هذا من كرمك . هذا المنتدى لطالما استفدنا منه .. يجب ان نعطى قدر استطاعتنا لاننا لازلنا نتعلم منكم جميعا ...

جاري التجربة .....

وعليكم السلام ورحمة الله وبركاته بارك الله فيك

وعليكم السلام ورحمة الله وبركاته ...... أذا كان تصغير الصورة داخل النموذج ... جرب هذا الكود Dim intWidth As Integer Dim intHeight As Integer With Me![FormSub].Form![formsubsub].Form![Image3] intWidth = .Width intHeight = .Height .Width = intWidth / 1.05 .Height = intHeight / 1.05 .SizeMode = acOLESizeZoom End With DoEvents

أخي @انس المنصوري ارفق مثال به بيانات حتى نعمل عليه .... أبشر

بسم الله ماشاء الله تبارك الله واضح اخي @waleed907 قبل التجربة انه حافل بالتحديثات .. بارك الله فيك

وعليكم السلام ورحمة الله وبركاته اخي الكريم @انس المنصوري بحث لشاشة مكتب واحد صحيح ...

اخي @nogomالمبارك افتح موضوع جديد بالمشكلة لديك ... ويحاول اخوتنا في المنتدى الاجابة ان شاء الله تعالى .... شكرا لك اخي الكريم ..