quanghoasla > 27-06-11, 12:21 AM
DoquangLam > 27-06-11, 09:31 PM
quanghoasla > 28-06-11, 07:47 PM
Hạ Vàng > 28-06-11, 10:03 PM
DoquangLam > 28-06-11, 10:21 PM
quanghoasla > 29-06-11, 01:24 AM
Nguyendinhthanh > 02-07-11, 10:38 PM
(28-06-11, 07:47 PM)quanghoasla Đã viết: cái này dễ thôi mà. nếu bạn quan tâm thì mail cho mình: quanghoack@gmail.comCopy đoạn code này vào report nhé
quanghoasla > 02-07-11, 10:55 PM
(02-07-11, 10:38 PM)Nguyendinhthanh Đã viết:cách của bạn cũng hay. thuận tiện cho bảo mật(28-06-11, 07:47 PM)quanghoasla Đã viết: cái này dễ thôi mà. nếu bạn quan tâm thì mail cho mình: quanghoack@gmail.comCopy đoạn code này vào report nhé
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim chu As String
chu = Trim(DieuKien)
If Trim(chu) = "C" Then
idhang.ForeColor = 255
tenhang.ForeColor = 255
tenhang.FontSize = 14
tenhang.FontWeight = Bold
tenhang.FontItalic = True
Else
idhang.ForeColor = 0
tenhang.ForeColor = 0
tenhang.FontSize = 10
tenhang.FontWeight = Normal
tenhang.FontItalic = False
End If
DoCmd.Maximize
End Sub
ledangvan > 27-04-12, 02:42 PM