محمد عبد القادر

جزاكم الله خيرا كثيرا

السلام عليكم و رحمة الله و بركاته هل فى طريقة يمكن بها ازالة الهمزات و التاء المربوطة الهمزات.xlsx

شكرا جزاكم الله خيرا

السلام عليكم و رحمة الله و بركاته ما الخطأ فى هذه المعادلة =IF(B3>=42,"ممتاز",IF(B3>=36,"جيد جدا",IF(B3>=25,"جيد",IF(B3="غ","ضعيف","ضعيف")))) Book1.xlsx

شكرااااااااااااااااااااااااااا جزاكم الله الجنة

الاخوة الأفاضل كيف يمكن فك حماية هذا الملف و جزاكم الله خيرا وفيرا 123.xlsx

شكرا اخي الحبيب بارك الله فيكم

كيف نشغل الكودين مع بعض كودين.xlsx

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

استاذنا الفاضل لا حرمنا الله من افضالك

ما الخطأ فى هذا الكود و سلفا لكم جزيل الشكر Book1.rar

استاذنا الحبيب زادكم الله علما وجزاكم الخير كله

هذا الكود للعلامة عبدالله المجرب لكنه لا يعمل الترحيل.xlsm

تمام اخى الحبيب جزاكم الله خيرا كثيرا

لا حرمنا الله منكم عند طباعة الكل يستمر فى الطباعة حتى ما بعد آحر صف

عند اعطاء امر طباعة من 1 إلى10 مثلا يطبع ورقة واحد عشر مرات و لا يطبع ورقة 2و3و4و .......

ما الخطأ فى هذا الكود و سلفا لكم جزيل الشكر اكتوبر1.rar

الأخ الفاضل شكر الله لك و جزاكم الله الخير كله

فى ميزان حسناتك جزاكم الله خيرا

برجاء توضيح الخطأ فى هذا الكود و لكم سلفا وافر الشكر Function searchcriteria() Dim strtype, strgender As String Dim task, strcriteria As String If IsNull(Me.cbotype) Then strtype = "[type] like ' * ' " Else strtype = "[type]= ' " & Me.cbotype & " ' " End If If IsNull(Me.cbogender) Then strgender = "[gender] like ' * ' " Else strgender = "[gender]= ' " & Me.cbogender & " ' " End If strcriteria = strtype & "and" & strgender task = "select * from tbl_customers where " & strcriteria Me.customers_subform.Form.RecordSource = task Me.customers_subform.Form.Requery End Function المحاولة الرابعة.rar

الأخ الفاضل جزاكم الله خيرا كثيرا فعلا كانت هى دى المشكلة

السادة المحترمون سلام الله عليكم مش عارف ايه الغلط فى الكود ده Private Sub cbotype_AfterUpdate() Dim ctype As String ctype = "select* from tbl_customers where ( [ type ] = ' " & Me.cbotype & "')" Me.customers_subform.Form.RecordSource = cbotype Me.customers_subform.Form.Requery End Sub New Microsoft Access Database (2).rar

اللهم بحق هذه الأيام المباركات اجعله من أهل الجنات

الأخوة الكرام جزاكم الله الخير الوفير و زادكم علما و كل عام و انتم بخير

الاخ الفاضل رمهان لو عدد طلاب الفصل 41 و التقرير فى الصفحة 20 اسم فقط فى هذه الحالة يوجد اسم واحد فى الصفحة و السؤال هل ممكن تكون صفحة بها 20 و صفحة بها 21