amer.b

Private Sub Form_Load() If Me.NewRecord Then Exit Sub Dim i As Integer For i = 0 To 10000 Dim b As Integer Me.الرصيد = b + Me.مدين - Me.دائن = Me.الرصيد If Me.الرصيد > 0 Then Me.الرصيد = Me.الرصيد & " " & "مدين" ElseIf Me.الرصيد < 0 Then Me.الرصيد = Me.الرصيد & " " & "دائن" Else Me.الرصيد = 0 End If DoCmd.GoToRecord , , acNext If Me.NewRecord Then Exit Sub Next End Sub

يعطيكم العافية، انا عندي نموذج بطريقة عرض ""نماذج مستمرة عاوز طريقة او كود يضع لون بديل على حقول السجل فقط وشكرا"