-
Posts
2 -
تاريخ الانضمام
-
تاريخ اخر زياره
نوع المحتوي
المنتدى
مكتبة الموقع
معرض الصور
المدونات
الوسائط المتعددة
مشاركات المكتوبه بواسطه amer.b
-
-
يعطيكم العافية،
انا عندي نموذج بطريقة عرض ""نماذج مستمرة عاوز طريقة او كود يضع لون بديل على حقول السجل فقط
وشكرا"
كشف حساب عميل
في قسم الأكسيس Access
قام بنشر
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