بلال اليامين

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

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

اخي وباجراء وحدة نمطية يظهر الضفر ام لا

اخي لم يظهر الصفر على اليسر انظر الحقل 09562 وعند دمجهم لم يظهر الصفر

لدي ستة حقول اريد دمجهم في حقل واحد 1 حقل متكون من رقمين 2حقل متكون من رقمين 3حقل متكون من خمسة ارقم 12360 4حقل متكون من ثلاثة ارقام 5حقل متكون من رقمين 6حقل متكون من رقمين اريد دمج الحقول باجراء وحدة نمطية و قمت بدمجهم في الاستعلام ولم يظهر الرقم صفر كما هومبين اعلاه ان الصفر على اليسر لم يظهر في الاستعلام مثل 10 98419016665000 قاعدة بيانات1.rar

كيفة الزام المستخدم بادخال رقم الموظف واسم المكتب واسم المنطقة و اسم الستخدم لفتح زر الطباعة قاعدة بيانات1.rar

طريقة انشىء زر الطباعة وهذا عند اختيار المنطقة و وادخال رقم المستخدم ودخال اسم المكتب قاعدة بيانات1.rar

اخي كيفية انشئ ازرار معاينة

انشاء شريط في النموذج الفرعي انظر الى المثال المرفق

تفضل اخي الكريم 401.rar

انشاء شريط في النموذج الفرعي انظر الى المثال المرفق 888مثال.rar

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

اخي وضع هذا كود لملء جميع الحقول Option Compare Database Dim ii As Byte Private Sub NoEmptyTexts() Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then If IsNull(ctl) Or ctl = "" Then ii = 1 MsgBox "تنبيه الرجاء ملء جميع الخانات اجباري" DoCmd.CancelEvent ctl.SetFocus Exit For Else ii = 2 End If End If Next ctl End Sub Private Sub Commande60_Click() Call NoEmptyTexts If ii = 1 Then Exit Sub DoCmd.CancelEvent Else Me.Refresh MsgBox " تمت عملية تعديل معلومات الموظف الرمز الوظيفي" & "" & Me.sname & "" & " " & "" & usr_, _ vbInformation, _ "تنبيه" End If DoCmd.GoToRecord , , acNewRec End Sub Private Sub Form_Open(Cancel As Integer)

اخي توجد عدد الشهور فيها 31 يوما مثل 30-07-2019 الى 12-08-2019 كاين 14 يوما ان شهر جويلية فيه 31 يوما وعند حسابها توجد 15 يوما

حساب الاجازات مثل من تاريخ 02-12-2018 + 27-12-2018 = عدد ايام الاجازة حساب الغيابات مثل تاريخ الغياب 12-10-2018 تاريخ العودة 18-01-2019 = عدد ايام الغياب

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

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

وتجدون البرنامج لتعديل

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

اخي الكريم شكرا جزيلا على الطلب الاول انني وضعت طلب اخرى وهو يخص المعلومات والطباعة وجزاك الله خيرا

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

طلبي انا الذي وضعته

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

الموظف.rar