استاذ عبدالفتاح ارجو منك الافاده اريد جمع الحقل الذي يحتوي على لون النص اسود في التقرير (اكسس)
هذا الكود تم استخراج النص باللون الاسود باقي اريد جمع النص باللون الاسود فقط ( في تفاصيل التقرير)
Private Sub ÊÝÕíá_Print(Cancel As Integer, PrintCount As Integer)
Dim RetColor As Long
If [mm] = "abdul" Or [mm] = "algalal" Then
[w].ForeColor = vbBlack
Else
[w].ForeColor = vbWhite
End If
End Sub
,,,,,,,,,,,,,,,,ولك جزيل الشكر والتقدير,,,,,,,,,,,,,,,,,,