بلال بلال

السلام عليكم لدي نموذج فرعي يوجد فيه عدد كبير من الموظفين مسجلين اريد اظهار في النموذج الفرعي 10 موظفين وفي الاسفل النموذج استعمل ازرار التنقل مثل صفحة 1 صفحة 2

السلام عليكم اريد طريقة انشاء ارقام التاكيد

السلام عليكم اريد استراد وتصدير وهذا عند الاختيار من مربع تحرير وسرد تصدير الجدول اسمه الموظف1 وهذا عند اختيار الاسم واللقب واستراده يكون بالاختيار واليك الشرح في المرفقات استراد وتصدير.rar

اليك الملف الغيابات -.rar

السلام عليكم لدي جدول فية الغيابات الموظفين لدي نموذج نقوم بتسجيل الغيابات وفيه الحقول التالية: مثال عندي غياب تاريخ الغياب مثال 01-02-2020 ساعة الغياب 08:00 سبب الغياب: عطلة مرضية وعندي نموذج اخر فية تسجيل العودة من الغياب وفيه الحقول التالية: فيه تاريخ العودة من الغياب 15-03-2020 ساعة العودة : 13:00 المطلوب هو طريقة حساب الغيابات عند تسجيل تاريخ الغياب الى غاية تسجيل العودة من الغياب وعند ما يكون عدد الغيابات 15 يوما تظهر رسالة تنبيه بعدد الغيابات

اخي خالد اريد في زر تاكيد الحجز بارك الله فيك ان زر تاكيد الحجز هو الذي اعمل به ولقد قمت باضافة الحقول التي احتاج اليها اخي خالد عند الظغط على الزر ت ((تاكيد الحجز)) تظهر رسالة تنبيه تم اضافة موظف جديد وفي نفس الزر عندما تكون الحقول فارغ تظهر رسالة تنبيه الرجاء ملء جميع الحقول اليك البرنامج الذي قمت بالتعديل عليه في الحقول البرنامج1.5555.rar

اخي خالد اريد في زر تاكيد الحجز بارك الله فيك ان زر تاكيد الحجز هو الذي اعمل به ولقد قمت باضافة الحقول التي احتاج اليها اخي خالد عند الظغط على الزر ت ((تاكيد الحجز)) تظهر رسالة تنبيه تم اضافة موظف جديد وفي نفس الزر عندما تكون الحقول فارغ تظهر رسالة تنبيه الرجاء ملء جميع الحقول اليك البرنامج الذي قمت بالتعديل عليه في الحقول البرنامج1.5555.rar

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

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

السلام عليكم Private Function officena() Dim ctl As Control For Each ctl In Me.Controls If TypeName(ctl) = "TextBox" Then If IsNull(ctl) Or ctl = "" Then Beep MsgBox " اخي الكريم ... لقد تركت الحقل ..." & "(" & ctl.Name & ")" & "... فارغاً ", vbOKOnly, "اوفيسنا" DoCmd.CancelEvent ctl.SetFocus Exit For End If End If Next ctl End Function تم من خلال الضغط على اي زر استدعي الكود الاول ' انقل هذا الامر الى زر Call officena لدي كود اريد وضعه في زر تحديث بخصوص الحقل فارغ في البرنامج الذي اريد فيه وضع الكود 1191.222.rar171.78 kB · 0 تنزيلات

اخي خالد اسم البرنامج الذي اريد فيه وضع الكود 1191.222.rar171.78 kB · 0 تنزيلات بارك الله فيك

اخي خالد اليك البرنامج بخصصوص الحقول الفارغة اريد عندما تكون الحقول فارغة تظهر رسالة تنبيه مكتوبة الرجاء القيام بملء الحقول 1191.222.rar

اخي وعند تكون الحقول فارغ الرجاء ملء الحقول

اخي خالد اريد تحويل هذا الزر الى الملفي المرفق وبارك الله فيك

السلام عليكم اخي اريد رسالة تنبيه تغلق في 2ثواني وتظهر في الاسفل مع اخفاء زر الغاء

اخي خالد اريد رسالة التنبيه كما هو المثل المرفق 2023.rar

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

لقد قمت باعادة الملف 222.rar

السلام عليكم لدي نموذج عنصر_تحكم_علامة_جدولة فيه اربع نماذج اريد وضع زر تحديث وعند الظغط على الزر تظهر رسالة تنبيه (( تما تحديث معلومات الموظف باسم ورقم الموظف بنجاح)) 2020.rar

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

السلام عليكم وهذا كود في الاستعلام هذا [Forms]![المستخدمين]![form9]![التسلسل] وبعد ان قمت بعديل في النموذج وعند الضغط على الزر يظهر نفس الاسم وجازاكم الله خير

السلام عليكم اريد عمل زر تصدير الجدول الى الايكسل وزر الاستراد

السلام عليكم اخي عذرا كنت ابحث في المنتدى على تصدير واستراد الجدول

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

بارك الله فيكم جزاكم الله خيرا