Anasalsalam قام بنشر مارس 31, 2019 مشاركة قام بنشر مارس 31, 2019 تصميم كشف حساب عميل رابط هذا التعليق شارك More sharing options...
amer.b قام بنشر مارس 31, 2019 مشاركة قام بنشر مارس 31, 2019 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 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.