كل الانشطه

اشكرك انت الاروع اتفضل سيريال التفعيل 03P8-0500-0000-0U1Z

عمل رائح كنت احتاج هذه الافكار 03P8-04U3-06AE-01T8

وعليكم السلام ورحمة الله وبركاته هلا والله ... حياكم الله اتفضل جرب تفعل بالسريال التالى وأخبرنى النتيجة من فضلك 03PK-0500-0000-0U2B

السلام عليكم بشمهندس ابوجودي تسلم دائما مبدع ان شاء الله 03PK-05QV-0716-01LS

جرب مع تغيير نوع مصدر الصف الى قائمة وتعديل مسمي الكمبو لديك Private Sub cmb_mjal_Enter() Dim currentValue As String currentValue = Nz(Me.cmb_mjal.Value, "") Select Case currentValue Case "فردي1", "فردي2" Me.cmb_mjal.RowSource = "فردي1;فردي2;شامل1;شامل2" Case "زوجي" Me.cmb_mjal.RowSource = "زوجي;شامل1;شامل2" Case Else ' لو لم يتم اختيار شيء بعد، يظهر الكل Me.cmb_mjal.RowSource = "فردي1;فردي2;زوجي;شامل1;شامل2" End Select End Sub

اهلا بيك فى المنتدى وتحت امرك بأى وقت

مش عارف الحل ده ممكن واللا لا انا اساسا مش عارف اذا كنت اساسا فهمت المطلوب Private Sub mjal_AfterUpdate() Dim strSQL As String ' تحديد مصدر السرد بناء على الاختيار Select Case Me.mjal.Column(1) Case "فردي1", "فردي2" ' إخفاء "زوجي" strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_Name NOT IN ('زوجي')" Case "زوجي" ' إخفاء "فردي1" و"فردي2" strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal WHERE ac_Name NOT IN ('فردي1', 'فردي2')" Case Else ' إظهار جميع الخيارات strSQL = "SELECT ac_id, ac_Name FROM tbl_Mjal" End Select ' تحديث مصدر مربع السرد Me.mjal.RowSource = strSQL Me.mjal.Requery End Sub Private Sub Form_Load() ' تعيين مصدر السرد الافتراضي عند تحميل النموذج Me.mjal.RowSource = "SELECT ac_id, ac_Name FROM tbl_Mjal" Me.mjal.Requery End Sub المرفق Database2.accdb

السلام عليكم احبتي اريد عند اختياري من القائمة فردي1 او فردي 2 ان يختفي البند : زوجي والعكس صحيح عند اختياري من القائمة زوجي ان يختفي البندين : فردي1 و فردي 2 اريد الحل بأقصر الطرق .. ان امكن عدم الاستعانة بالجدول tbl_mjal_User Database2.rar

السلام عليكم الملف المرفق ب عدد 2 شيت الشيت الاول data الشيت الثانى به احصاء ارجوا المساعدة فى الاحصاء فى الشيت الثانى بارك الله فيكم للرفع.xlsx

مشكوووور والله حبيبي ما نتحرم منك يارب

العفو لكم جميع

تقضلوم الملف بالمعادلات المتوافقة مع الاصدارات القديمة لأكسيل و ابت الملف بدون أكواد مع أن الأكواد افضل لأنها تى و إن اضفت صفحات لأشهر جديدة فان الكود سيرحل البيانات تلقائيا . على العموم ابتعدت عن دالة فلتر التي تستخدم في اكسيل 2019 فما فوق 3الحساب.xlsx

المشكلة ان قاعدة البيانات حصل فيها تلف Corruption انا عملت قاعدة جديدة وقمت بعمل استيراد لكل شئ من القاعدة القديمة واشتغلت تمام Fleet.accdb

Fleet.accdb

السلام عليكم ورحمة الله وبركاتة نشكركم على جهودكم ملاحظة :- هنالك عده اشخاص يستفيدون من البرنامج فى عده دول وهنالك اختلاف فى العملات والبرنامج يظهر الريال السعودى فقط هل يمكن تعديل العمله على حسب عمله الدوله التى متوجد بها ولكم

اولا شكرا لكم ولكن هل ممكن او توجد طريق بدون استخدام الماكرو

السلام عليكم ورحمة الله وبركاته الحمد لله وبعد عدة محاولات في اضافة التعديل للشرط تمت العملية وارفق القاعدة للفائدة العامة وتحياتي للبشمهندس ناقل بارك الله فيه كشف الحضور2.accdb

السلام عليكم اريد اخفاء جميع اسماء الافواج عند اختيار اسم الفوج من مربع تحرير وسرد يظهر في النموذج الفرعي مثل انا أخترت الفوج من مربع تحرير وسرد التحضيري يظهر في النموذج الفرعي وهكذا مع الافواج الاخرى

رقم الهاتف تبعي ***** اضفني علي الواتس

رسالة الخطأ اللى في الصورة Invalid procedure call or argument نداء إجراء غير صالح او وسيط غير صحيح ده معناه ان هناك دالة أو إجراء تم تمريره له قيمة غير مناسبة واتصور أنه في زر تحديث الكيلومتر (btnUpdateMileage_Click) إذا كان Me.CurrentMileage فارغا (Null) أو غير رقمي أو تم إدخاله من عنصر تحكم غير موجود أو غير معرف فإن المقارنة تؤدي إلى الخطأ الذي ظهر اقرب الاحتمالات التى اتصورها هذا السطر If newMileage > Me.CurrentMileage Then لو ترسل القاعدة يكون افضل

لا اعلم ولن تظهر الحاجة الا من خلال تنفيذ العمل بالجملة .. جميع ما يخص الاختبارات النصف الاول والثاني والدور الثاني الجداول : اعتقد الجداول جميعها .. لأنها مرتبطة بعضها ببعض أو 90% منها الاستعلامات : جميعها لأن غالبها يخص الاختبارات وايضا مرتبطة ببعضا أو 90% منها النماذج : جميع ما يخص الاختبارات النصف الاول والثاني والدور الثاني ... والتحكم بالدرجات ونحو ذلك التقارير : كل ما يخص النتائج ملحوظة : سبق وان راسلتك على الخاص ولكنك لم ترد

ان انا فهمت صح جرب التعديل على مرفق الاستاذ @منتصر الانسي (2)قاعدة بيانات.accdb

السلام عليكم اخي بارك الله فيك اخي هل توجد طريقة لاخفاء اسماء الافواج الموجودة في النموذج الفرعي اخي اريد انجز ايقونة عند اختيار اي فوج يتم تغيير حقل القسم

وهذا ما افضله تمام لان البيانات من حق العميل وتقريبا هذه فكرة : ولكن هى مازالت قيد التطوير كنت بدأت بها من فترة ولا اعرف لماذا توقفت ولكن يمكن تجربة المرفق منع اعادة التفعيل بعد انتهاء المدة منع نسخ القاعدة لجهاز آخر يتم اكتشاف التلاعب بالتاريخ والاكواد مكتوبة برخامة حبتين علشان ازهق المبرمج اللى عاوز يكسر الحماية وطبعا دى احدى الطبقات للحماية سوف يتم تغليفها بطبقات متعددة لزيادة مستوى الحماية

السلام عليكم ورحمة الله وبركاته بشمهندس ناقل هل يمكن ان تشرح هذا الشرط وهل هناك امكانية ان اضيف في نفس الشرط معيار اضافي متعلق بحالة الموظف في حقل تم اضافته بجدول emp اسمه emp-state اوهذا الحقل يبين ان كان الموظف ( ندب او اعارة او اجازة بدون مرتب او انقطاع ) واصبح الشرط كالاتي :( الملاحظات: IIf([emp-state]="انقطاع ";"انقطاع ";"") And IIf(Exists (SELECT 1 FROM hhhol WHERE hhhol.no = emp.noo AND Forms!w_moka_mid11!begin_date BETWEEN hhhol.start_date AND hhhol.end_date );"إجازة";"") ولكن النتيجة ظهرت-1 ولم تظهر كلمة اجازة اوانقطاع في خانة الملاحظات يشتغل ولم اعرف الحلIIf([emp-state]="انقطاع ";"انقطاع ";"") عندما اضع المعيار لوحده كشف الحضور1.accdb