كشف حساب عميل

[Anasalsalam]

تصميم كشف حساب عميل

[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