Mình sử dụng lệnh này để đổi màu chữ mà ko hoạt động

Trích dẫn:Private Sub DDen_Format(Cancel As Integer, FormatCount As Integer)
    If Me.DDen = "ORD" Or Me.DDen = "MIA" Or Me.DDen = "LAX" Then
   
      Me.DDen.ForeColor = RGB(255, 0, 0)
    Else
      Me.DDen.ForeColor = RGB(0, 0, 0)
    End If
End Sub

Ae giúp mình với ạ

Cái đối tượng [DDen] nó là control nào trên Report mà có sự kiện On Format vậy bạn?

Bạn có thử với FormatCondition chưa?

(02-10-23, 09:29 PM)bvchauthanh Đã viết: Bạn có thử với FormatCondition chưa?

Mình dùng Access 2007 nên mục Conditional format chỉ cho đúng 3 điều kiện thôi ạ. nên mình muốn thử dùng code VB để đổi

(29-09-23, 09:05 AM)ongke0711 Đã viết: Cái đối tượng [DDen] nó là control nào trên Report mà có sự kiện On Format vậy bạn?

Cái này thực ra là mình hỏi trên ChatGPT nhưng mà dùng thử ko được
Với cả mình dùng lệnh này

Trích dẫn: [font='Söhne Mono', Monaco, 'Andale Mono', 'Ubuntu Mono', monospace]Private Sub TênControl_BeforeUpdate(Cancel As Integer)
    If Me.TênControl.Value = "GiáTrịMongMuốn" Then
        Me.TênControl.ForeColor = RGB(255, 0, 0) ' Màu đỏ
    Else
        Me.TênControl.ForeColor = RGB(0, 0, 0) ' Màu mặc định (đen)
    End If
End Sub[/font]

Thì toàn bộ các ô trước đó đều bị đổi màu.
Ae có cách nào khác ko ạ

bạn dùng access bản mới nhất đi

Quan trọng là mục đích của bạn.
Bạn muốn đổi màu một vài ký tự trong ô hay ntn? Đổi màu khi hiển thị, tìm kiếm, hoặc in ra báo cáo?

Nói chung như vậy.