المطلوب تعديل بيان من تاريخ معين من كل عام

[zero1111330566]

المطلوب عايز ابتداء من 1/1 من كل عام الى 3/31 ينكتب فى البيان اخضر

المطلوب عايز ابتداء من 4/1 من كل عام الى 6/30 ينكتب فى البيان ازرق

المطلوب عايز ابتداء من 7/1 من كل عام الى 9/30 ينكتب فى البيان احمر

المطلوب عايز ابتداء من 10/1 من كل عام الى 12/31 ينكتب فى البيان اسود

البيان.zipFetching info...

[zero1111330566]

آرجّوٌآ آلَآفُآدٍةّ

[jjafferr]

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

 

قاعدة ذهبية:

لا تبدأ اسماء الكائنات او الحقول بأرقام.

 

اسم حقل التاريخ اصبح iDate ، واسم حقل النتائج اصبح Results .

انا عملت تغيير في خلفية الحقل Results على اسا قيمة iDate :

Private Sub Form_Current()

    Call iDate_AfterUpdate
End Sub

Private Sub iDate_AfterUpdate()

    'send the date properly
    Call Check_Dates(DateSerial(Year(Me.iDate), Month(Me.iDate), Day(Me.iDate)))
End Sub

Function Check_Dates(D As Date)

    'Debug.Print DateSerial(Year(D), Month(D), Day(D))
    If (Day(D) >= 1 And Month(D) >= 1) And (Day(D) <= 31 And Month(D) <= 3) Then
        Me.Results.BackColor = RGB(0, 255, 0)   'green
        
    ElseIf (Day(D) >= 1 And Month(D) >= 4) And (Day(D) <= 30 And Month(D) <= 6) Then
        Me.Results.BackColor = RGB(0, 0, 255)   'blue
        
    ElseIf (Day(D) >= 1 And Month(D) >= 7) And (Day(D) <= 30 And Month(D) <= 9) Then
        Me.Results.BackColor = RGB(255, 0, 0)   'red
        
    ElseIf (Day(D) >= 1 And Month(D) >= 10) And (Day(D) <= 31 And Month(D) <= 12) Then
        Me.Results.BackColor = RGB(0, 0, 0)   'black
        
    End If
    
End Sub

.

جعفر

[zero1111330566]

ممكن علي المثال المرسل

  في 21‏/6‏/2024 at 15:26, jjafferr said:

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

 

قاعدة ذهبية:

لا تبدأ اسماء الكائنات او الحقول بأرقام.

 

اسم حقل التاريخ اصبح iDate ، واسم حقل النتائج اصبح Results .

انا عملت تغيير في خلفية الحقل Results على اسا قيمة iDate :

Private Sub Form_Current()

    Call iDate_AfterUpdate
End Sub

Private Sub iDate_AfterUpdate()

    'send the date properly
    Call Check_Dates(DateSerial(Year(Me.iDate), Month(Me.iDate), Day(Me.iDate)))
End Sub

Function Check_Dates(D As Date)

    'Debug.Print DateSerial(Year(D), Month(D), Day(D))
    If (Day(D) >= 1 And Month(D) >= 1) And (Day(D) <= 31 And Month(D) <= 3) Then
        Me.Results.BackColor = RGB(0, 255, 0)   'green
        
    ElseIf (Day(D) >= 1 And Month(D) >= 4) And (Day(D) <= 30 And Month(D) <= 6) Then
        Me.Results.BackColor = RGB(0, 0, 255)   'blue
        
    ElseIf (Day(D) >= 1 And Month(D) >= 7) And (Day(D) <= 30 And Month(D) <= 9) Then
        Me.Results.BackColor = RGB(255, 0, 0)   'red
        
    ElseIf (Day(D) >= 1 And Month(D) >= 10) And (Day(D) <= 31 And Month(D) <= 12) Then
        Me.Results.BackColor = RGB(0, 0, 0)   'black
        
    End If
    
End Sub

.

جعفر

Expand  

ممكن علي المثال المرسل

[jjafferr]

تفضل ، الله يطول في عمرك

 

1611.البيان.accdb.zipFetching info...

[zero1111330566]

  في 21‏/6‏/2024 at 15:59, jjafferr said:

تفضل ، الله يطول في عمرك

 

1611.البيان.accdb.zip 28.36 kB · 1 download

Expand  

جميل جدا بس انا عايز ينكتب فيفي مربع نص results الكلمه اخضر او ازرق مش تتلون بلون

[jjafferr]

عندك الكود ، واعمل هذا التغيير :

بدل
Me.Results.BackColor = RGB(0, 255, 0)   'green

اكتب
Me.Results = "اخضر"

.

وهكذا مع بقية الشروط

[zero1111330566]

  في 21‏/6‏/2024 at 16:18, jjafferr said:

عندك الكود ، واعمل هذا التغيير :

بدل
Me.Results.BackColor = RGB(0, 255, 0)   'green

اكتب
Me.Results = "اخضر"

.

وهكذا مع بقية الشروط

Expand  

ولو عايز ادخل تاريخ بدل الكلمه ممكن الكود اسف لوقتك وشاكر جدا لمجهودك