Private Sub Detail_Paint()
If Me.Qty_Part Mod 2 = 0 Then
'genap
Me.Qty_Part.ForeColor = RGB(255, 255, 0)
Else
'ganjil
Me.Qty_Part.ForeColor = RGB(255, 0, 255)
End If
End Sub
aksan kurdin
--- In [email protected], nadhif_fakhri <nadhif_fak...@...> wrote:
>
> makasih bang haer, kebetulan kalo cara itu saya sudah ingat, tapi yang
> saya mau, kalo pake vba gimana ??
> sekali lagi terima kasih banyak
>
> HT> [Attachment(s) from Haer Talib included below]
> HT> Pakai conditional formatting, mungkin (jika itu yg dimaksud).
>
> HT> Lihat test.mdb yg sudah saya set cond fortmat nya.
>
>
> HT> (file test.zib ubah dulu jadi test.zip)
>
>
>
>
>
>
>
>
>
> Best regards,
> nadhif_fakhri
> mailto:nadhif_fak...@...
>
