عرض اسم الموظف على النموذج

[sm44ms]

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

 

بخصوص طلبي 

عندي جدول فيه بيانات كل الموظفين وبيانات بطاقات العمل الخاصة بهم

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

وجزاكم الله خير

[عمر ضاحى]

ارفع نسخه بسيطه من الملف ليس فيه بيانات حقيقية 

للعمل عليها 

او جرب تعمل استعلام 

وضع شرط فى تاريخ الانتهاء 

<Date()

مثلا وشوف النتيجة

[sm44ms]

ياسيدي عمر

قلت شريط متحرك يظهر اسم الموظف وبطاقتة المنتهية ( شريط اخباري) لكل موظف منتهية بطاقتة

[sm44ms]

Private Sub Form_Load()
Z.Value = ""
Call khaher_m2
End Sub

Private Sub Form_Timer()
Me.yy.Caption = MID(Me.yy.Caption, 2, (Len(Me.yy.Caption) - 1)) & left(Me.yy.Caption, 1)
End Sub

 

هذا الكود يظهر فقط السجل الاول فقط وانا ابا كل الموظفين

[عمر ضاحى]

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

 

[عمر ضاحى]

اتفضل اتنمي ده ما تريده 

ما تم عمله 
كود جبل البيانات من الجدول او الاستعلام 

ووضع جميع السجلات فى سطر واحد للعرض

وتخزينها فى المتغير xTEXT

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim xTEXT As String
Dim delimiter As String

Set db = CurrentDb
Set rst = db.OpenRecordset("TablTest", dbOpenDynaset)
xTEXT = ""
delimiter = "    -    "

With rst
    Do While Not .EOF
        xTEXT = xTEXT & ![ID] & " " & ![TextName1] & " " & ![TextName2] & " " & ![TextName3] & delimiter
        .MoveNext
    Loop
    .Close
End With

Set rst = Nothing
db.Close
Set db = Nothing


If Right(xTEXT, Len(delimiter)) = delimiter Then
    xTEXT = Left(xTEXT, Len(xTEXT) - Len(delimiter))
End If

AutoText.Caption = xTEXT

 

وهذا الكود يتم وضعه فى حدث عند التحميل

 

ثم نأتي لكود التحريك لمربع التسميه 

فى حدث عند عداد الوقت

Private Sub Form_Timer()
AutoText.Caption = Mid(AutoText.Caption, 2) & Left(AutoText.Caption, 1)
End Sub

 

وخلاص كده ^_^

 

واتفضل ملف للمراجعه 

 

 

شريط اخبار مصدره جدول.rar

[kkhalifa1960]

تفضل أخي محاولتي .

DD224.Accdb

[sm44ms]

 

الفكره حلووووه مره وممتاز بس اذا فيه بيانات كثيرة تظهر الرساله التالية

وانا عندي اكثر من 4000 الف موظف

[sm44ms]

20 موظف تمشي بعد التجربة 

انا عندي 4000 موظف

[kkhalifa1960]

تفضل أخي طريقة أخرى

DD225.Accdb

[Foksh]

6 ساعات مضت, sm44ms said:

عندي 4000 موظف

هل الـ 4000 موظف سيمر أسمائهم بالشريط المتحرك ؟؟

بالعودة لمشاركتك الأولى اعتقد أن الأسماء المنتهية بطاقاتهم قد يكونون محصورين بعدد إقل بكثير من هذا الرقم ، ففكرتي هي استعلام يجبي الاسماء ويرحلها في جدول مستقل ويكون مصدر الشريط وبياناته هذا الجدول الإفتراضي ويكون قابل للتحديث حسب تاريخ اليوم ( تاريخ متغير ) ، وقد يخفف هذا الأمر ألبحث عنهم بين الـ 4000 ليكون العدد محصور بالجدول.

 

هذه فكرة ولم أقم بتحميل وتجربة مرفقات الأساتذة ( أتصفح من الموبايل )

[Eng.Qassim]

اتذكر موضوعك هذا منذ مدة طويلة ..وعملت لك نموذج بالبطاقات المنتهية 

طبعا عمل الاساتذه شيء رائع لكنه غير عملي مع 4000 موظف ...المستخدم سيتعب كثيرا مع شريط التمرير 

في رأيي ...الافضل عمل تقرير بذلك 

[عمر ضاحى]

5 ساعات مضت, Eng.Qassim said:

اتذكر موضوعك هذا منذ مدة طويلة ..وعملت لك نموذج بالبطاقات المنتهية 

طبعا عمل الاساتذه شيء رائع لكنه غير عملي مع 4000 موظف ...المستخدم سيتعب كثيرا مع شريط التمرير 

في رأيي ...الافضل عمل تقرير بذلك 

اضم صوتي لصوت استاذي ومعلمي   @Eng.Qassim

مين ال هيقراء شريط اخبار من 4000 معلومه فى شريط اخبار😅

الأفضل أن يتم اظهار عدد المنتهي صلاحياتهم

وعند الضغط مرتين على شريط الاخبار يظهر تقرير بكل تفاصيل المنتهي صلاحياتهم

 

 

[ابو جودي]

3 ساعات مضت, عمر ضاحى said:

مين ال هيقراء شريط اخبار من 4000 معلومه فى شريط اخبار😅

اكيد واحد عنده ما يزيد عن 8000 ثانيه من عمره يريد اضاعتهم هباءً فلا أهمية للوفت مطلقاً بالنسبة له

[Eng.Qassim]

16 ساعات مضت, عمر ضاحى said:

ضم صوتي لصوت استاذي ومعلمي

استغفر الله استاذ عمر ..انا مجرد تلميذعند الجميع

كلهم اساتذتي ..لكن ..والحق يقال ..لا غنى عن اساتذتي @ابوخليل.. @jjafferr 

[sm44ms]

جزاكم الله خير  جميعا الكل فيكم ما قصر ربي يحفظكم