الزير

up

السلام عليكم ورحمة الله وبركاته

الاساتذة الكرام 

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

اتمنى ان اجد الحل لديكم فانا في امس الحاجة اليه لإنهاء فكرة برنامج اعمل عليه وشكراً لكم مقدماً

طبعاً سيكون هذا الشرط في حدث الوقت للفورم والذي يتم تحديثه كل ثانية ففي حال تحقق الشرط يتم اشعاري برسالة اسفل الشاشة جنب الساعة 

للرفع

كنت قد أهملت الموضوع لانه لم يتم التطرق له في عملي 

لكن من يومين طلب مني تقرير عن الاجازات خلال فترة معينة ولتكن (اسبوع) 

المطلوب ان يتم إستخراج أخر إجازة حصل عليها الموظف 

مثلا

الموظف سين حصل على 3 إجازات بتاريخ 

01/04/2015

06/05/2015

03/07/2015

لو قمت بالبحث في الفترة من 01/07/2015 الى 07/07/2015 تظهر إجازة للموظف سين بتاريخ 03/07/2015 ومقابل هذه الإجازة يظهر التاريخ 06/05/2015 كتاريخ لأخر إجاززة حصل عليها

اتمنى أن أكون وضحت المطلوب

بانتظار مساهماتكم 

وكل عام وانتم بخير

شكرا جزيلا استاذنا الفاضل ابوخليل على الإجابة وسأحاول التطبيق

بارك الله فيك استاذ ابو خليل 

قد أكون أثقلت عليك وفكرة المعيار ممتازة لكني اريد تطبيقها على حقول التقرير وليس الإستعلام 

وشكراً على تجاوبك

وبإنتظار أفكارك الجميلة في التقرير

شكراً لك استاذ ابو خليل 

ولكن طلبي أن تكون السنوات هس الصف وتفاصيل السبب هو العمود 

فهل هذا ممكن وذلك كوني أريد أن أحصل على أجمالي كل سنة على حده من كل سبب وشكراً على تجاوبك

ابووائل

السلام عليكم ورحمة الله وبركاته

قمت بعمل إستعلام جدولي لإستخراج البيانات (الذين لم يعد لهم سجل في الشركة) وتفاصيل سبب عدم عملهم (مثل - تقاعد - وفاة - نقل إلخ)

الإستعلام يعمل حسب السنوات (يعني بيعطيني عدد الموظفين الذين تركوا العمل في كل سنة حسب التفاصيل السابقة) 

الى هنا ان شاء الله الأمور واضحة.

قمت بجعل هذا الاستعلام مصدر لتقرير سيم طباعته 

مشكلتي ان كل سنة جديد لا بد من أقوم بتعديل التقرير وإضافة السنة الجديدة يدويا ولو صادف إن أحدى السنوات ليس لها بيانات يحدث خطاء

فهل هناك حل لجعل التقرير يتناقص بشكل سنوي يعني 

لدي في التقرير المرفق سنة 2006 الى 2015 

اريده مع إضافة بيانات في 2016 ان يصبح من 2007 الى 2016 

وفي 2017 يصبح 2008 الى 2017 وهكذا

السبب في ذلك إن البرنامج أعطيه لعدد من الفروع وبعضها بعيد كما إني قد إجعل صيغة الملف MDE ولا يمكن التعديل على التقارير وشكراً

قاعدة البيانات1.zip

بارك الله فيك استاذ ابوخليل على المعلومة الصحيحة تمت الإجابة

عند فرز الاستعلام تصاعدي فان الترتيب يصبح 1 ثم 10 ثم 11 الى 19 ثم 2 ثم 20 ثم 21 وهكذا 

المطلوب ان يتم الفرز هكذا 

1 - 2 - 3 -4 -5 -6 -7 - 8 -9 10 وهكذا

شكرا استاذ ابوخليل على الإجابة بالنسبة للطلب الثاني فتحت موضوع جديد

لماذا لما اطبع تقرير وفيه خط تحت الكلمة لاينطبع الخط مع انه موجود في معاينة الطباعة وشكرا ابووائل

السلام عليكم ورحمة الله وبركاته الأساتذة الكرام طلبي كيف اعرف عدد النماذج النشطة ( ساستخدمه في كود اغلاق البرنامج بعد مدة من عدم الاستخدام) ولي سؤال آخر ليش لما اطبع تقرير وفيه خط تحت الكلمة لاينطبع الخط مع انه موجود في معاينة الطباعة وشكرا ابووائل

للرفع

علماً بأن الاستاذة زهرة في الفريق العربي للبرمجة زودتني بهذا الحل لكن مشكلته في أخر إجازة غير صحيح

ارجو ان اجد لديكم الحل

za-UPالزير.rar

السلام عليكم 

في الملف المرفق جدولين وتقرير

الجدول الاول خاص بالبيانات

الجدول الثاني خاص بتسجيل الاجازات للموظفين والعامل المشترك هو الرقم (ID) 

التقرير لعرض إجازات الموظفين بين تاريخين (ممكن تكون خلال اسبوع - يومين - شهر وهكذا ) تمهيداً لطباعتها

المطلوب

في التقرير

1.  يتم إستخراج أخر إجازة للموظف 

2.  إستخراج المجموع الكلي لعدد أيام (مدة الاجازة)  الخاصة بالموظف خلال عام حتى الشهر الذي نحن فيه  (مثلاً) من مارس 2013 وحتى مارس 2014

========================================

كلي أمل ان اجد الحل لديكم وشكراً مقدماً للجميع

ابووائل 

الزير.rar

ضع الملف الذي به الكود لفهم الية الكود

شكراً بارك الله فيك

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

ارجو ان اجد لديكم الحل

بارك الله فيكم

جميل جداً استاذ رجب 

اضن هذا ما يقصده السائل 

واقترح تعديل كود زر الترحيل 

لصبح 

Private Sub CommandButton1_Click()
LR1 = [A1000].End(xlUp).Row + 1
Cells(LR1, 1) = ComboBox1
Cells(LR1, 2) = Me.TextBox1
Cells(LR1, 3) = Me.TextBox2
TextBox1 = ""
TextBox2 = ""
ComboBox1 = ""
ComboBox1.SetFocus
End Sub

حتى يتم تفريغ الفورم 

ابارك للاساتذة الكرام 

عبدالله المجرب

جمال دغيدي

احمد فضيلة

هذا التقدير  والترقية المستحقة

بارك الله فيك اخي الصمت المتحدث

تمت الاجابة

السلام عليكم ورحمة الله وبركاته

اخواني الكرام اتمنى ان اجد لديكم الرد حول هل ممكن ان اجعل البرنامج عند فتحه على فورم معين تكون اللغة العربية هي لغة الكتابة

مع العلم انه حتى لوكانت اللغة العربية هي لغة الكتابة فانه عند الفتح تتحول الى اللغة الانجليزية

مع جزيل الشكر والامتنان

ابووائل

بارك الله فيكم اساتذتنا الكرام

حلول متنوعة وممتازة

سوال

هل يمكن تطبيق هذا الكود دون الحاجة الى ضبط رقم سري واسم مستخدم

السلام عليكم

استاذنا الكريم

لي طلب من حضرتك

ان يكون اتساع أعمدة الليست بوكس مرن ولا تظهر اشرطة التمرير بل تظهر البيانات كاملة

كتابة ترويسات للاعمدة