Barna

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

في حدث عند النقر على رز اظهار لديك ضع هذا الكود ... If Me.أمر60.Caption = "اخفاء" Then Me.Combo1.Visible = False Me.أمر60.Caption = "اظهار" Else Me.Combo1.Visible = True Me.أمر60.Caption = "اخفاء" End If

تلميذك يا بشمهندس .... تحياتي لك .... بارك الله فيك اخي الكريم .... الحمد لله رب العالمين

حياك الله ... لا اظن ذلك ....ولكن عمل اختيار متعدد .... انظر هذا ....

تفضل ....... Nouveau Microsoft Access Database.accdb

ممكن مرفق مصغر للمطلوب

جرب المرفق ..... طبعا انا غيرت بل الرسالة نص لان الرسالة لو افترضنا ان الطالب ذكي ممكن يترك الرسالة كما هي ويبحث هو عن الاجابه لكي يستفيد من توقف الوقت ... ههههه InterClock (2).mdb

وعليكم السلام ... اجابة سريعه استخدم هذا مثلا Forms!frm2!Number1 = Forms!frm1!Number1

استغفر الله العظيم ... انا مجرد طالب ذكر اخاه الطالب فقط .. بارك الله فيك

جرب هذا المرفق .... Test 1.accdb

ضع هذا الكود في حدث بعد التحديث في مربعي النص : number1 number2 If Me.txtTOTAL.Value > 50 Then Me.cbo1.Visible = False Else Me.cbo1.Visible = True End If Test 1.accdb

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

اعتقد هناك برامج خاصة مخصصة لتعطيل اي زر ... حاول تبحث في النت تجدها ...

جرب المرفق ... ربما يكون هو طلبك استخدمنا طبعا هذا الكود في حدث بعد التحديث If IsNull(Me.txtSS) Or Me.txtSS = "" Then MsgBox "Enter Passcode", vbCritical, "Movement System" Exit Sub Else If DCount("sta", "barna", "[txtPassword] = '" & Me.txtSS & "' And [sta]= '" & "Open" & "'") > 0 Then MsgBox "لديك طلب مفتو ويجب اغلاقة", vbCritical, "عملية خاطئة" Exit Sub Else Me.txtFullNameEN = DLookup("[FullNameEN]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtEmployeeNumber = DLookup("[txtEmployeeNumber]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtEmpID = DLookup("[txtIntPersonID]", "qryUsers", "[txtPassword]='" & Me.txtSS & "'") Me.txtSS = "" Me.cmbVehicleNameEN.Enabled = True End If End If مع اضافة استعلام ... Database1.accdb

ممكن لو عرفنا هدفك من تعطيل هذا الزر ..... ممكن نجد حل اخر ؟؟؟

عموما الفكرتين وحدة .... فقط تعديل الارتباط بدل الاسم يصبح الرقم فقط ؟؟؟؟ تفضل المطلوب New.rar

الملف شغال ما فيه مشكلة المشكلة في برنامج الرار لديك يحتاج تحديث

انظر هذا الموضوع قد يفيدك

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

تفضل .... New.rar

لدي اوفيس 19 البرنامج يعمل بصيغة mde ولا مشكلة انظر .....

حاول الكتابة بهذه الصورة .... " & me.textbox & "

نفضل طبقتها على زرين وانت طبيق الباقي مثال19.rar

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

هل بحثت في المنتدي ... هناك صور واشكال كثيرة جدا تم طرحها في المنتدى ومن ضمنها طلبك ....