Barna

تابع هذا ...

اضف مربع اختيار .... ويتم التصفية للطباعة فقط المختار من خلال الشيك بوكس

لاحظ التقرير .... بعد التعديل ..... اما بالنسبة للوقت هناك خطأ لديك وهو انك جعلت الحقل الخاص بالوقت نص المفروض تجعله وقت وتاريخ حتى يمكن جمع الساعات والدقائق ويمكن ان تساوي يوما في حالة التاخر حتى يتم الخصم على الموظف يوم في حال اكتمالها يوما .... Dawam1 (1)1.accdb

هل هذا ماتريد؟؟؟؟ انظر النموذج ..... كلمة المرور هي نفسها mohd1234 Dawam1 (1)1.accdb

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

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

في حدث عند النقر على رز اظهار لديك ضع هذا الكود ... 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