ناصر المصلح

اخي الفاضل شكرا جزيلا لمجهودك جميع ادوات الاكسس مخفاه لايوجد ادوات لااقوم بعمل زر التصفية كل الشكر لوقتك الغالي

كل الشكر لتواصلك عزيزي smsmvb لم يتغير شئ لايتم اخفاء الحقول الخاصة بالسعوديين الياً صورة للوضع الحالي بعد اضافة الكود المرسل منك

للرفع ياخوان

نعم نماذج مستمرة ( Continuous) حقل الجنسية n حقل التذاكر T18 حقل التاشيرة T20 حقل الصرف T22

للرفع ياخوان

عندما تكون الجنسية سعودي لااريد ان يضهر خيار التذكرة والتاشيرة فقمت بعمل الكود التالي ولكنه لايستجيب الى من خلال تحديد الماوس على الجنسية ( سعودي ) فهل الممكن المساعدة حدث في الحالي Private Sub Form_Current() Me.n.SetFocus If n.Text = "سعودي" Then T18.Visible …

اتوقع المشكلة من هذا الكود في حدث قبل التحديث حيث انه موجود بالنموذج لدي Private Sub Form_BeforeUpdate(Cancel As Integer) Dim X As String X = MsgBox("هل تريد الحفظ", vbQuestion + vbApplicationModal + vbYesNo, "تنبية") If X <> vbYes Then Cancel = True Me.Undo E…

اختى الفاضلة في السجل الاول لاي موظف يجبرني على التعبئة ويتم الغاء الحقول في حال اختيار منتهية خدمته او منقول وهو المطلوب ولكن عندما انتقل لسجل الثاني لموظف اخر واختار منتهية خدمته او منقول لايجبرني على التعبئة ولا يتم الغاء الحقول في حال اختيار على راس العمل …

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

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

تحية طيبة لكل القائيمين على هذا المنتدى العريق لدي مربع قائمة به ثلاثه اختيارات ( الحالة الوظيفية ) 1- على راس العمل 2- منتهية خدمتة 3- منقول المطلوب عند اختيار الحالة الوظيفية من مربع القائمة منتهية خدمته او منقول يتم اضهار الحقول ( جهة النقل ) ( نهاية الخدمة…

انا اسف لم انتبه فعلا الان يعمل التقرير 100% ماقول الا الله يجزاك الجنة

تضهر رسالة خطاء في موديول التقرير مرفق القاعدة بعد التعديل Microsoft Access قاعدة بيانات جديد.rar

حسب المفاهمة اذا كان بالامكان اضافة كود النموذج لنفس التقرير مرفق القاعدة مع التقرير لتعديل عليها مع فائق الووود Microsoft Access قاعدة بيانات جديد.rar

ماشاء الله عليك بالكود الاخير يعمل 100% بدون اي مشاكل كلمة شكر ماتوفيك

عند الانتقال لسجل موظف ثاني او عمل تحديث تضهر رساله خطاء

الجميل ramhan للاسف لايعمل بشكل جيد كل الشكر على جميع ماقدمته لي من اضافات ولك مني اجمل التحايا

Abs(nz(([1];0)='p')) لايقبل عزيزي عند وضع هذا الكود وتطبيقة على الكل وحفضة وعند فتحة يتوقف النظام عن العمل عند فتحة البرنامج بكل مره

طبقتها على الكل ولكن يضهر الاجمالي بالسالب ( - )

كل الشكر من الاعماق تم العمل حسب شرحك وضهرت النتيجة بشكل صحيح لكن توجد ملاحظة بسيطة وهي في حال عدم اكمال جميع بيانات الشهر 31 يوم لاتضهر قيمة اجمالي الغياب اي بمعنى في حال وجود قيمة فارغة لايتم الاحتساب =Abs(([1]='p')+([2]='p')+([3]='p')+([4]='p')+([5]='p')+([…