kanory

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

نعم ... بارك الله فيك @nogom أنظر أعلا المنتدى تجد هذه الملاحظات .... أشكرك على سعة صدرك ....

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

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

أنظر لهذا المثال أخي الكريم @nabil1972 ...... كل هذا الكلام لانك لم ترفق مثال توضيحي للمشكلة حتى نعرف المشكلة تماما لكن شاهد المثال .... AddGrade.rar

أخي @ابو زاهر السلام عليكم ورحمة الله وبركاته الحل الذي توصلت له يعتبر ممتاز .... لكن بقية حكاية لون المؤشر .... أحاول البحث لها عن حل . ان شاء الله تعالى

اهلا بك اخي الكريم

بارك الله اخي حمدي ... كلنا نتعلم من بعض