كود الالوان

[hh88]

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

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

(text box to flash )

ولكم جزيل الشكر

[jjafferr]

وعليكم السلام

 

في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ،

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

وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين)

.

وهذه الوحدة النمطية المسؤولة عن العمل

Public Function Color_Nulls()

    Dim frm As Form
    Dim ctrl As Control
    
    Set frm = Screen.ActiveForm
    
    For Each ctrl In frm.Controls
        
        If ctrl.ControlType = acTextBox Then
        If Len(ctrl.Value & "") = 0 Then
            
            ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue)
            
        End If
        End If
        
    Next

End Function

 

جعفر

829.Flash_BG.mdb.zip

[hh88]

7 hours ago, jjafferr said:

وعليكم السلام

 

في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ،

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

وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين)

.

وهذه الوحدة النمطية المسؤولة عن العمل

Public Function Color_Nulls()

    Dim frm As Form
    Dim ctrl As Control
    
    Set frm = Screen.ActiveForm
    
    For Each ctrl In frm.Controls
        
        If ctrl.ControlType = acTextBox Then
        If Len(ctrl.Value & "") = 0 Then
            
            ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue)
            
        End If
        End If
        
    Next

End Function

 

جعفر

829.Flash_BG.mdb.zip

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

الله يوفقك ويسعدك  حبيبنا 

[hh88]

22 hours ago, jjafferr said:

وعليكم السلام

 

في اعدادات النموذج ، نطلب من النموذج الذهاب الى الوحدة النمطية Color_Nulls كل ثانية (1000 معناه ثانية) ،

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

وستلاحظ ان النموذجين يعملان (المرفق فيه نموذجين)

.

وهذه الوحدة النمطية المسؤولة عن العمل

Public Function Color_Nulls()

    Dim frm As Form
    Dim ctrl As Control
    
    Set frm = Screen.ActiveForm
    
    For Each ctrl In frm.Controls
        
        If ctrl.ControlType = acTextBox Then
        If Len(ctrl.Value & "") = 0 Then
            
            ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = vbBlue, vbRed, vbBlue)
            
        End If
        End If
        
    Next

End Function

 

جعفر

829.Flash_BG.mdb.zip

استاذي العزيز جعفر 

الكود لايشتغل على نموذج فرعي داخل نموذج رئيسي

 

كيف اجعل الداله تشتغل على النموذج الفرعي فقط اذا كانت داخل نموذج رئيسي 

 

[jjafferr]

وعليكم السلام

 

للعلم :

1. لا تستطيع تلوين خلفية حقل النموذج الجدولي ،

2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط.

 

للنموذج الرئيسي استعمل : 

= Color_Nulls()

 

للنموذج الفرعي استعمل : 

= Color_Nulls_SubForm()

 

وهكذا اصبحت الوحدة النمطية:

Option Compare Database
Option Explicit

Public Function Color_Nulls()

    Dim frm As Form
    Dim ctrl As Control
    Dim sfrm As Form
    Dim sctrl As Control
    Dim Color1 As String
    Dim Color2 As String
    
    Color1 = vbRed
    Color2 = vbBlue
    
    Set frm = Screen.ActiveForm
    
    For Each ctrl In frm.Controls
        
        If ctrl.ControlType = acTextBox Then
        'Main Form
            If Len(ctrl.Value & "") = 0 Then
            
                ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2)
            End If
'
'Don't use, the load on the Timer dosen't allow the proper Flashing Effect
'
'        ElseIf ctrl.ControlType = acSubform Then
'        'SubForm
'
'            Set sfrm = ctrl.Form
'            For Each sctrl In sfrm.Controls
'
'                If sctrl.ControlType = acTextBox Then
'
'                    If Len(sctrl.Value & "") = 0 Then
'
'                        sctrl.BackColor = IIf(sctrl.BackColor = vbWhite Or sctrl.BackColor = vbBlue, vbRed, vbBlue)
'                    End If
'                End If
'
'            Next


        End If
        
    Next

End Function

Public Function Color_Nulls_SubForm()

    Dim sfrm As Form
    Dim ctrl As Control
    Dim Color1 As String
    Dim Color2 As String
    
    Color1 = vbRed
    Color2 = vbBlue
    
    Set sfrm = Screen.ActiveControl.Parent

    For Each ctrl In sfrm.Controls
        
        If ctrl.ControlType = acTextBox Then
        If Len(ctrl.Value & "") = 0 Then
            
            ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2)
            
        End If
        End If
        
    Next

End Function

 

جعفر

829.Flash_BG.mdb.zip

[hh88]

1 hour ago, jjafferr said:

وعليكم السلام

 

للعلم :

1. لا تستطيع تلوين خلفية حقل النموذج الجدولي ،

2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط.

 

للنموذج الرئيسي استعمل : 

= Color_Nulls()

 

للنموذج الفرعي استعمل : 

= Color_Nulls_SubForm()

 

وهكذا اصبحت الوحدة النمطية:

Option Compare Database
Option Explicit

Public Function Color_Nulls()

    Dim frm As Form
    Dim ctrl As Control
    Dim sfrm As Form
    Dim sctrl As Control
    Dim Color1 As String
    Dim Color2 As String
    
    Color1 = vbRed
    Color2 = vbBlue
    
    Set frm = Screen.ActiveForm
    
    For Each ctrl In frm.Controls
        
        If ctrl.ControlType = acTextBox Then
        'Main Form
            If Len(ctrl.Value & "") = 0 Then
            
                ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2)
            End If
'
'Don't use, the load on the Timer dosen't allow the proper Flashing Effect
'
'        ElseIf ctrl.ControlType = acSubform Then
'        'SubForm
'
'            Set sfrm = ctrl.Form
'            For Each sctrl In sfrm.Controls
'
'                If sctrl.ControlType = acTextBox Then
'
'                    If Len(sctrl.Value & "") = 0 Then
'
'                        sctrl.BackColor = IIf(sctrl.BackColor = vbWhite Or sctrl.BackColor = vbBlue, vbRed, vbBlue)
'                    End If
'                End If
'
'            Next


        End If
        
    Next

End Function

Public Function Color_Nulls_SubForm()

    Dim sfrm As Form
    Dim ctrl As Control
    Dim Color1 As String
    Dim Color2 As String
    
    Color1 = vbRed
    Color2 = vbBlue
    
    Set sfrm = Screen.ActiveControl.Parent

    For Each ctrl In sfrm.Controls
        
        If ctrl.ControlType = acTextBox Then
        If Len(ctrl.Value & "") = 0 Then
            
            ctrl.BackColor = IIf(ctrl.BackColor = vbWhite Or ctrl.BackColor = Color2, Color1, Color2)
            
        End If
        End If
        
    Next

End Function

 

جعفر

829.Flash_BG.mdb.zip

الف مليون شكر اخي واستاذي العزيز جعفر

الا يوجد طريقة لجعلة يعمل على نموذج جدولي ويكون الوميض للحقول الفارغة فقط في النموذج الجدولي ليس كامل العمود

بسبب انه الوميض يتوقف اذا تمت الموشر على التكستبوكس

 

829.Flash_BGFFFF.rar

[jjafferr]

في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ،

فالجواب ، لا يمكن

 

انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت

 

جعفر

[hh88]

38 minutes ago, jjafferr said:

في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ،

فالجواب ، لا يمكن

 

انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت

 

جعفر

سأحاول واطلعكم على النتيجه 

الله يسهل علينا ان شاء الله 

[hh88]

On ‏١١‏/‏٠٤‏/‏١٤٣٩ at 10:26 PM, jjafferr said:

في النموذج الجدولي ، لا تستطيع ان تلون حقل ، إلا بإستعمال التنسيق الشرطي ،

فالجواب ، لا يمكن

 

انت حاول تلوت الحقل والنموذج بوضع التصميم ، واخبرنا اذا استطعت

 

جعفر

حاولت اعدل على الكود ليكون بالحقل (faild1) , فلم تكن النتيجة مرضية

في النموذج الجدولي يتعامل الكود مع  جميع الحقول المتسلسلة للحقل كنوع واحد

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

هل من طريقة لديك استاذي جعفر

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

8299.Flash_BG.rar

[jjafferr]

في 12/29/2017 at 21:17, jjafferr said:

2. الكود يعمل على نموذج فردي ، يعني على سجل واحد فقط.

.

بينما نموذجك ، نموذج مستمر ، فلا يعمل الكود على حقل في سجل معين ، وانما يعمل على جميع السجلات (حسب قيمة اول سجل) ، 

اما التنسيق الشرطي ، فاليك مثال:

https://stackoverflow.com/a/45284549

 

جعفر

[hh88]

27 minutes ago, jjafferr said:

.

بينما نموذجك ، نموذج مستمر ، فلا يعمل الكود على حقل في سجل معين ، وانما يعمل على جميع السجلات (حسب قيمة اول سجل) ، 

اما التنسيق الشرطي ، فاليك مثال:

https://stackoverflow.com/a/45284549

 

جعفر

سأحول اطبقه

الف شكر اخي واستاذي العزيز جعفر