أحبابي الافاضل
الكود التالي لايعمل في التقرير .... ما أريده هو عندما تكون قيمة المجموع أصغر من الصفر يقوم بكتابة عنوان الحقل إلى عجز وعند الزيادة يقوم بكتابة فائض وعند المساواة يقوم بكتابة لايوجد عجز أو فائض ....
Private Sub Report_Open(Cancel As Integer)
If f_tot > 0 Then
f_tot.BackColor = vbGreen
f_tot.ForeColor = vbBlack
def_lab.Caption = "يوجـــد فائــــض"
ElseIf f_tot < 0 Then
f_tot.BackColor = vbRed
f_tot.ForeColor = vbWhite
def_lab.Caption = "يوجــد عجــــز"
Else: f_tot.BackColor = vbWhite
f_tot.ForeColor = vbBlack
def_lab.Caption = "لايوجد عجز أو فائض"
End If
End Sub