[sm44ms]

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

اريد تعديل على الكود التالي

Private Sub Form_Timer()

On Error Resume Next

   If [TT] = "استقالة" Then

      If [TT].ForeColor = vbRed Then

         [TT].ForeColor = vbBlack

         [TT].BackColor = vbBlack

  

      Else

         [TT].ForeColor = vbRed

         [TT].BackColor = vbBlack

         

      End If

   Else

         [TT].ForeColor = vbBlack

         [TT].BackColor = vbWhite

         

       End If

End Sub

 هذا الكود عند عدد الوقت 

1000

عندي حقل اخر اسمه  (pp)

اصدار

اريد ان اضيف الحقل هذا مع الحقل (TT) في كود واحد او كيف تم دمج الكود لحقلين لانه ما يقبل عندي 

او كيف اضافة نفس الكود بالحقل الجديد pp وفي اي حدث

[Kamil]

يمكنك دمج الكود ليعمل على حقلين (TT و pp) في نفس الكود ببساطة. يمكنك استخدام كود مشابه للكود الحالي وتعديله ليتناسب مع حقل pp. فيما يلي كيفية ذلك:

PHP كود :

Private Sub Form_Timer()
    On Error Resume Next
    
    ' تبديل الألوان لحقل TT
    If [TT] = "استقالة" Then
        If [TT].ForeColor = vbRed Then
            [TT].ForeColor = vbBlack
            [TT].BackColor = vbBlack
        Else
            [TT].ForeColor = vbRed
            [TT].BackColor = vbBlack
        End If
    Else
        [TT].ForeColor = vbBlack
        [TT].BackColor = vbWhite
    End If

    ' تبديل الألوان لحقل pp
    If [pp] = "قيمة معينة" Then ' قم بتغيير "قيمة معينة" إلى القيمة التي تريد
        If [pp].ForeColor = vbRed Then
            [pp].ForeColor = vbBlack
            [pp].BackColor = vbBlack
        Else
            [pp].ForeColor = vbRed
            [pp].BackColor = vbBlack
        End If
    Else
        [pp].ForeColor = vbBlack
        [pp].BackColor = vbWhite
    End If
End Sub 


في هذا الكود، تم إضافة جزء إضافي ليتم التحكم في حقل pp بجانب حقل TT. قم بتعديل "قيمة معينة" في الشرط إلى القيمة التي تريد استخدامها لتحديد متى يتم تبديل الألوان لحقل pp.

[Ezril5]

تغير لون الخط حدث عند الوقت ؟! 
الاصح تنسيق شرطي 
1- يكون الحقل والخط كليهما أسود
2-كود تنسيق الشرطي وتحدد الخط أحمر ولست بوكس اسود ( الحقل )

كود :

[TT]="استقالة"
[PP]="اصدار"

فقط ؟! هذا هو أيضا طلبك 
================================================================================================================================
وطلب تغير أي عنصر او كائن والاصح بتسمية Button او List_Box من غير تحديد العام وصف فقط 

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

درج الكود من فحص الى التنفيذ 

كود :

Private Sub Form_Timer()
    On Error Resume Next

Dim give_N As String
'==========================(عدد الحقل المطلوبة)
Dim Button As string
Dim Button1 As string

'========================================(جلب اسم الفورم الحالي تلقائي)
give_N = Application.CurrentObjectName
'========================================(تحديد الحقل (من النموذج) وان تنفيذ من النموذج وليس جدول؟!)
Button = Me.TT'me.(اكتب اسم الحقل المطلوب)
Button1 = Me.PP
'===============================================(تنفيذ بهذا الامر
'Forms(give_N).Controls(Button)

'================================================(Cod#1)
Public Function Pause_ForeColor1 ()
If Forms(give_N).Controls(Button).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
        Forms(give_N).Controls(Button).ForeColor = vbBlack
        Forms(give_N).Controls(Button).BackColor = vbBlack
 Else
'================================(احمرالاخط واسود البوكس ؟!)
        Forms(give_N).Controls(Button).ForeColor = vbRed
        Forms(give_N).Controls(Button).BackColor = vbBlack
End If
End Function

'================================================(Cod#2)
Public Function Pause_ForeColor2 ()
If Forms(give_N).Controls(Button1).ForeColor = vbRed Then
'================================(كليهم اسود الاخط والبوكس ؟!) يا استاذ اعمل معه عدم التمكين او كابتشن
        Forms(give_N).Controls(Button1).ForeColor = vbBlack
        Forms(give_N).Controls(Button1).BackColor = vbBlack
 Else
'================================(احمرالاخط واسود البوكس ؟!)
        Forms(give_N).Controls(Button1).ForeColor = vbRed
        Forms(give_N).Controls(Button1).BackColor = vbBlack
End If
End Function

'==============================================='
If Me.TT = "استقالة" then
Pause_ForeColor1
End IF

If Me.pp = "اصدار" then
Pause_ForeColor2
End IF

'=====================================================(OR أو )
 '=================================================(اذا كان طلبك كليهما )
Dim Number1 As Longe
Dim Number2 As Longe
If Me.TT = "استقالة" then
Number1 =1
else
Number1 =0
End IF

If Me.pp = "اصدار" then
Number2 =1
else
Number2 =0
End IF

'=====================================================(الشرط)
IF Number1 + Number2 = 2 Then
Pause_ForeColor1
Pause_ForeColor2
End Sub

لم اجرب ولكن اعتقد ان هو طلبك 

[sm44ms]

On Error Resume Next

' تبديل الألوان لحقل TT
If [TT] = "استقالة" Then
If [TT].ForeColor = vbRed Then
[TT].ForeColor = vbBlack
[TT].BackColor = vbBlack
Else
[TT].ForeColor = vbRed
[TT].BackColor = vbBlack
End If
Else
[TT].ForeColor = vbBlack
[TT].BackColor = vbWhite
End If

' تبديل الألوان لحقل pp
If [pp] = "قيمة معينة" Then ' قم بتغيير "قيمة معينة" إلى القيمة التي تريد
If [pp].ForeColor = vbRed Then
[pp].ForeColor = vbBlack
[pp].BackColor = vbBlack
Else
[pp].ForeColor = vbRed
[pp].BackColor = vbBlack
End If
Else
[pp].ForeColor = vbBlack
[pp].BackColor = vbWhite
End If

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

[Ezril5]

خطأ اعتقد انك مبتدأ .. امزح

يستعمل دالة Sleep للإيقاف المؤقت ( تأخير التنفيذ ) 1000  ثم ينفذ الكود بدالة عند بداية التشغيل او عند حدث الحالي ومن غير استخدام حدث الوقت

ملاحظة :
تعامل مع حدث الوقت عند  الاغلاق ؟!   إضافة زر الاغلاق لجعل حدث الوقت = 0 بالكود ثم اغلاق

هذا طلبك بطريقة الصحيحة

حتى لا يعطب او يتلف

لان حدث الوقت يعمل في الخلفية ؟! وانت تغلق البرنامج ؟!!!

اعتقد انه صحيح

اذا ترغب بتنفيذ الكود ارفق مرفق