تنفيذ تنسيق شرطي بواسطه الكود؟؟؟

[hosslom]

السلام عليكم اخوتي الكرام

لي طلب بسيط

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

في تقرير حقل مستمر

المطلوب مرفق بالتقرير

ارجو المساعده

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

conditional format.accdb

[Eng.Qassim]

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

لان في النماذج او التقارير المسترة تاخذ نفس الالوان

conditional format.accdb

[jjafferr]

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

 

3 ساعات مضت, hosslom said:

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

ليش الكود ، هل هناك سبب معين ؟

عادة نعمل الاشياء في الكود اذا كانت طلباتنا متغيرة ، بينما اذا الطلب ثابت ، فالاكسس يوفر لك اسهل الطرق 🙂

 

بالتنسيق الشرطي العادي ، مثل ما عمل اخي @Eng.Qassim :

.

والنتيجة :

.

 

ويمكنك استعمال هذه الكود بدلا عن التنسيق الشرطي:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


    If [state] = "H" Then
        Me.result.BackColor = vbRed
        
    ElseIf [state] = "L" Then
        Me.result.BackColor = vbYellow
        
    Else
        Me.result.BackColor = vbWhite
        
    End If
    
End Sub

 

جعفر

conditional format.accdb

[Eng.Qassim]

26 minutes ago, jjafferr said:

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

 

ليش الكود ، هل هناك سبب معين ؟

عادة نعمل الاشياء في الكود اذا كانت طلباتنا متغيرة ، بينما اذا الطلب ثابت ، فالاكسس يوفر لك اسهل الطرق 🙂

 

بالتنسيق الشرطي العادي ، مثل ما عمل اخي @Eng.Qassim :

.

والنتيجة :

.

 

ويمكنك استعمال هذه الكود بدلا عن التنسيق الشرطي:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


    If [state] = "H" Then
        Me.result.BackColor = vbRed
        
    ElseIf [state] = "L" Then
        Me.result.BackColor = vbYellow
        
    Else
        Me.result.BackColor = vbWhite
        
    End If
    
End Sub

 

جعفر

conditional format.accdb 636 kB · 1 download

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

[jjafferr]

47 دقائق مضت, Eng.Qassim said:

لاتعمل مع النموذج المستمر

السؤال في هذا الموضوع عن التقرير 🙂

 

جعفر

[Eng.Qassim]

1 hour ago, jjafferr said:

السؤال في هذا الموضوع عن التقرير 🙂

 

جعفر

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

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

تحياتي

[hosslom]

5 hours ago, jjafferr said:

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

 

ليش الكود ، هل هناك سبب معين ؟

عادة نعمل الاشياء في الكود اذا كانت طلباتنا متغيرة ، بينما اذا الطلب ثابت ، فالاكسس يوفر لك اسهل الطرق 🙂

 

بالتنسيق الشرطي العادي ، مثل ما عمل اخي @Eng.Qassim :

.

والنتيجة :

.

 

ويمكنك استعمال هذه الكود بدلا عن التنسيق الشرطي:

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)


    If [state] = "H" Then
        Me.result.BackColor = vbRed
        
    ElseIf [state] = "L" Then
        Me.result.BackColor = vbYellow
        
    Else
        Me.result.BackColor = vbWhite
        
    End If
    
End Sub

 

جعفر

conditional format.accdb 636 kB · 3 downloads

فعلا هذا هو المطلوب جزاك الله كل خير اخي الكريم ورفع الله قدرك أمين يارب العالمين

[jjafferr]

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

مع النموذج المستمر

تفضل سيدي الكريم ، نفس المثال السابق ، ولكن بإضافة للنماذج كذلك:

 

 

وهذا هو الكود:

Option Compare Database
Option Explicit

    Dim FC As FormatCondition
'

Private Sub Form_Load()

    
    Dim Exp1 As Variant
    Dim Exp2 As Variant

    Exp1 = "[state]='H'"
    Exp2 = "[state]='L'"

    Me.result.FormatConditions.Delete
    
    Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp1)
    'FC.Enabled = True
    FC.BackColor = vbRed
    
    
    Set FC = Me.result.FormatConditions.Add(acExpression, acEqual, Exp2)
    'FC.Enabled = True
    FC.BackColor = vbYellow
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

    Set FC = Nothing
End Sub

 

جعفر

conditional format.zip