Barna

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

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

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

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

ما شاء الله تبارك الله ... الله ينور عليك أخي @kanory تفكير رائع ...

انظر صور للبرنامج نفسه من جهازي .... لاحظ الثلاث طلاب وفصولهم !!!!

اعتقد الطالب الثالث الذي تذكره في فصل اخر غير فصل الطالبين ... ابحث عنه

البرنامج يعمل لدي دون مشاكل المشكلة تظهر عند تشغيل المرفق المرسل لك ام عند تطبيقه على برنامجك الاساسي؟؟ على كل حال جرب هذا البرنامج لعله يصلح الاخطاء الموجودة في اسماء الكائنات التي تم حذفها

اين ظهر هذا الخطأ ... في استيراد ملف الاكسل ... ام ماذا وضح اكثر

تفضل هل هذا ما تريد ... importmarks.accdb

وهذه طريقة اخرى ... ايضا عملت على الزر الاول وانت طبق للبيقة .. سجلات 05.accdb

انظر المرفق عملت على اول زرار .... طبق انت على بقية الازرة سجلات 06.accdb

لم افهم .... هل تقصد ان الترقيم الذي تم اجراءه في السابق يتم بعد تحديد الرقم المطلوب من خلال نموذج منبثق ..؟؟

ربنا يسهل ..... طيب شوف كدا .... يارب يكون المطلوب سجلات 03.accdb

استبدل الكود بهذا أخي الكريم Public Function re_Num() Dim rst As DAO.Recordset Dim i As Long Dim RC As Long Set rst = CurrentDb.OpenRecordset("Select * From b14") rst.MoveLast: rst.MoveFirst RC = rst.RecordCount For i = 0 To RC - 1 rst.Edit rst!HNO = 1 + i rst.Update rst.MoveNext Next i rst.Close: Set rst = Nothing MsgBox "Done" End Function