الحقل يومض متحرك

[sm44ms]

السلام عليكم 

لدي نموذج مصدره استعلام من جدولين في النموذج الرئيسي حقل اسمه حالة الموظف 

يعني مكتوب داخل الحقال ::::: استقالة

ابي الحقل هذا يومض باللون الاحمر متحرك مثل الاشارة اذا كانت حالة الموظف _ استقالة _ وفي حالة انه فعال يتم الحقل عادي

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

[Foksh]

اخي الكريم @sm44ms ، تم تعديل المشاركة بعد التجربة ، لأنه مع تجربة الكود يصبح ثقيل

 

Try This.accdb

 

 

وجرب هذا الكود لعمل وميض فلاش

 

 

تم تعديل أكتوبر 19, 2023 بواسطه Foksh
تصحيح وتجربة الكود المرفق مني

[kkhalifa1960]

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

DD227.accdb

[sm44ms]

جزاكم الله خير عمل ممتاز

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

الان جربت مرفق الاستاذخليفه

وبكره بجرب  كود الاستاذ فوكش

وتجيكم العلوم والف شكرا لكم

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

اخ فوكش

الجملة الشرطه وين توضع

والكود وين يوضع

[kkhalifa1960]

تفضل طلبك بطريقتان ................................

DD227-1.accdb

[sm44ms]

الف شكر الف شكر  هذا هووووووووووووووووووووووووووووووووووووووووووووووووو

بارك الله فيك 

[sm44ms]

لو ابا اغير اللون بدل الازرق الى اي لون اخر كيف

[kkhalifa1960]

تفضل استاذ @sm44ms الشرح بفورم1  +   أكواد الألوان .

اذا كان هذا طلبك لا تنسى الضغط على أفضل اجابة .

DD227-2.accdb

[sm44ms]

عاجز عن الشكر بارك الله فيك 

صرح يقدم كل جديد ربي يوفقكم 

[sm44ms]

الاخ الفاضل خليفة

هذا الكود انت اعطيتني اياه وشغال  100%100

Private Sub Form_Timer()
On Error Resume Next
   If [TT] = "استقالة" Then
  
      If [TT].ForeColor = vbYellow Then
         [TT].ForeColor = vbBlack
         [TT].BackColor = vbBlack
         
      Else
         [TT].ForeColor = vbYellow
         [TT].BackColor = vbBlack
         
      End If
   Else
         [TT].ForeColor = vbBlack
         [TT].BackColor = vbWhite
         
   End If
End Sub

عندي حقل بنفس النموذج ( اسمه فعال )  ابا اطبق الكود لانع مايستوي

لانه عند عداد الوقت ولايستوي اكثر من كود الطريق ممكن جزاك الله خير

 

شي مهم من وين تختار افضل الاجابه او تصنيف للموظف

[Eng.Qassim]

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

عندي حقل بنفس النموذج ( اسمه فعال )

ليش ما يصير ؟

بعد اذن اخي استاذ @kkhalifa1960

DD227-2.rar

[sm44ms]

شكرا لكم جمعيا ما قصرتوا بارك الله فيكم

 

الحين التقييم لكم كيف اختار الاجابة الافضل

[sm44ms]

طلب بسيط جزاكم الله خير حسب الرسمه

[عمر ضاحى]

اتفضل 
تم تنفيذه على مثال المهندس / قاسم 

DD227-2.rar

[sm44ms]

بجربة ربي يحفظكم جميعا 

 إنّي أسألك أن تكون عونًا لصديقي في غربته مؤنسًا له في وحشته وأن تُثبّته على طاعتك وتصرف عنه ما يشغله عن ذكرك وعبادتك.
 

[sm44ms]

جربته وممتاز

  ولكن الخيار له مصدر بيانات في الجدول عندي ------  والذي سويته انت بدون مصدر للبيانات

Select Case Nz(OP)
Case 1
    txtTest = "فعال"
Case 2
    txtTest = "مستقل"
End Select
 

 

الي اريده

Case1  مصدر بياناته FAAL

Case2 مصدر بياناته MOSTQEEL

 

اذا يستوي الا جزاك الله خير واذا لم يستوي خلاص بكتفي بهذا وشكرا