كل الانشطه

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

تقضلوم الملف بالمعادلات المتوافقة مع الاصدارات القديمة لأكسيل و ابت الملف بدون أكواد مع أن الأكواد افضل لأنها تى و إن اضفت صفحات لأشهر جديدة فان الكود سيرحل البيانات تلقائيا . على العموم ابتعدت عن دالة فلتر التي تستخدم في اكسيل 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

السلام عليكم ورحمة الله تعالى وبركاته الجواب يبان من العنوان احدى طبقات الحماية لمن يهتم بذلك منظر ارائكم بعد التجربة.. ولكن بصراحة الكود مكتوب برخامة وهذا شئ مقصود و للتجربة انتظر منكم ارسال السيريال Clients Demo 1.03.zip

شكرا جزيلا أخي الكريم علي اهتمامك ما الجداول التي تحتاجها أخي الكريم ؟

جرب المرفق قاعدة بيانات.rar

اخي الحبيب هذا الاجراء يستلزم وجود جميع الكائنات هناك نماذج ادخال وجداول مساعدة واستعلامات مفقودة في الامثلة تكوين جدول شامل على غرار tblTemp يستلزم وجود جميع الكائنات ... الكائنات غير المهمة هي التقارير فقط هل تعلم ان tblTemp يتم بناؤه من خلال استعلامات .. وايضا يبنى عليه استعلامات فحتى تتحقق الفكرة يجب ان يتم بناء tblTemp خلال الادخالاات

كانت المشكلة في وضع قيمة افتراضية في النموذج لبعض الحقول المحسوبة في الاستعلام =0 فقط ازلت القيمة وانتهت المشكلة طبعا ازلت الكل ولكن كان يكفي فقط ازالة القيمة الافتراضية للحقول المحسوبة الشايب

تحياتي الخالصة أخي @Foksh تقريبا هذا هو المطلوب أخي مزالت هذه الاشكالية الشرط : " If IsNull(rs!evalu_moubadara_chaksia) Or rs!evalu_moubadara_chaksia = 0 " عند فتح النموذج تظهر القيم الافتراضية أغير بعض القيم الافتراضية حسب احتياجاتي لنفرض مثلا أن الموظف تحصل فعليا على نقطة (درجة) تساوي الصفر (0) في التقييم المسمى evalu_moubadara_chaksia عند الحفظ والخروج من النموذج والدخول من جديد ألاحظ ظهور الدرجات (النقاط) الافتراضية من جديد بسبب هذا الشرط آمل يكون عندك سعة البال ويكون عندك الحل وجزاك الله خيرا

السلام عليكم شكرا استاذ @شايب ممكن اعرف اين المشكلة كانت دون تعديل كود الاستعلام واكون شاكرا لك

مع ان االاخ شايب يفضل العمليات الحسابية في النموذج للحقول المحسوبة ولكن كما تريد ما يحتاج تعدل الاستعلام جرب المرفق الشايب test(1).accdb

السلام عليكم لدي نموذج يوجد فيه اسماء افواج اريد عند اختيار اسم فوج يظهر اسم الفوج الذي تم اختياره وباقي يتم اخفاها وهذا مع باقي الخيارات قاعدة بيانات.accdb

السلام عليكم ممكن اعرف ايه الخطأ الي في الاكواد دي ' ========== زر الحفظ ========== Private Sub btnSave_Click() On Error GoTo SaveErr If Me.Dirty Then Me.Dirty = False MsgBox "تم حفظ بيانات المركبة بنجاح!", vbInformation, "حفظ" ExitSub: Exit Sub SaveErr: MsgBox "حدث خطأ أثناء الحفظ: " & Err.Description, vbCritical Resume ExitSub End Sub ' ========== زر تحديث الكيلومتر ========== Private Sub btnUpdateMileage_Click() Dim newMileage As Variant newMileage = InputBox("أدخل الكيلومتر الحالي للمركبة:", "تحديث الكيلومتر") If IsNumeric(newMileage) Then If newMileage > Me.CurrentMileage Then Me.CurrentMileage = newMileage Else MsgBox "الكيلومتر الجديد أقل من الحالي!", vbExclamation End If ElseIf newMileage <> "" Then MsgBox "أدخل رقم صحيح فقط!", vbExclamation End If End Sub