رجاءً ... طلب شرح كود

بسم الله الرحمن الرحيم

اخواني أخواتي الكرام..

يسعدني أخوتي الكرام أن أتعلم على أيديكم وخصوصا في هذا المنتدى العلمي والتعليمي في نفس الوقت،

المسألة :

عرضت الأخت المحترمة زهرة جزاها الله خير الجزاء في موضوع تلميحات سريعة في النماذج, لمحة .. فكرة .. حل لمشكلة ..

هذا الكود الذي يلون النموذج الفرعي ..

أتمنى من الأخت الكريمة أو أيا من الأخوة الأفاضل أن يتفضل بشرح الكود ... حيث أني لا أحب نقل الأكواد دون فهم محتواها وكيفية تطبيقها ... بل أحب أن أتعلمها حتى يمكنني الإبداع فيها ...

ولكم مني أجمل تحية وجزيل الشكر والتقدير..

بعد إذن الأخت الفاضلة زهرة فإني أنقل لكم الكود في هذه الصفحة ...

Get row colors to alternate on Subform's and Datasheets. 
''\\ HOW TO...
''\\ Add a  Textbox named RS onto your form, in the ControlSource Property enter "=RowState()"
''\\ On the Form_Load Event add the following code

Private Sub Form_Load()
ResetConditions Me
SetConditions Me
End Sub
''Add a Code Module to you Project and Enter the following Code....

Public g_RowState As Long

Public Function RowState() As Long
''\\ This function sets the Rowstate switch to determine the row condition or color
If g_RowState = 0 Then g_RowState = 1 Else g_RowState = 0
RowState = g_RowState
End Function

Public Sub SetConditions(frm As Form)
''\\THE NEXT LINE WILL IGNORE CONTROLS SUCH AS LABELS AND COMMAND BUTTONS
On Error Resume Next
Dim BColor As Long
Dim ctl As Control
''\\CHANGE THE BACKGROUND COLOR ON THE NEXT LINE
BColor = 14803425 
For Each ctl In frm.Controls
With ctl.FormatConditions.Add(acExpression, acNotEqual, "[RS]")
.BackColor = BColor
End With
Next

End Sub

Public Sub ResetConditions(frm As Form)
On Error Resume Next
Dim BColor As Long
Dim ctl As Control
BColor = -2147483633
For Each ctl In frm.Controls
''\\ REMOVE PREVIOUS FORMATS
ctl.FormatConditions.Item(0).Delete
ctl.FormatConditions.Item(1).Delete
ctl.FormatConditions.Item(2).Delete
Next

End Sub