Định dạng textbox trong report theo giá trị Field (3 người xem)

[dhn46]

DHN46 Xin chào các cô bác, anh chị GPE. GPE cho dhn46 hỏi vấn đề: làm thế nào để định dang textbox trong report theo giá trị fileds của nó

Ví dụ: - field có giá trị 1 thì backcolor textbox là màu vàng
- field có giá trị 2 thì backcolor textbox là màu xanh

Xin cảm ơn!

 

[Hai Lúa Miền Tây]

DHN46 Xin chào các cô bác, anh chị GPE. GPE cho dhn46 hỏi vấn đề: làm thế nào để định dang textbox trong report theo giá trị fileds của nó

Ví dụ: - field có giá trị 1 thì backcolor textbox là màu vàng
- field có giá trị 2 thì backcolor textbox là màu xanh

Xin cảm ơn!

Bạn dùng code sau cho report nhé

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)   
 SL.BackStyle = 1
Select Case SL
    Case 1
        SL.BackColor = vbYellow
    Case 2
        SL.BackColor = vbGreen
    Case 5
        SL.BackColor = vbRed
    Case Else
        SL.BackColor = vbWhite
End Select


End Sub

Code trên chỉ là ví dụ cho nhiều trường hợp, còn với 2 điều kiện như bạn thì có thể dùng If

 

[dhn46]

Em cảm ơn nah nhiều (anh Doofootwear phải không ạ).
Cái lỗi mà em bị do em sử dụng mã màu : SL.BackColor = 5462123
Vậy các anh chị cho hỏi thêm 1 câu nữa: nếu em muốn sử dụng mã màu thì em phải làm như thế nào ạ?

Em cảm ơn!

 

[Hai Lúa Miền Tây]

Em cảm ơn nah nhiều (anh Doofootwear phải không ạ).
Cái lỗi mà em bị do em sử dụng mã màu : SL.BackColor = 5462123
Vậy các anh chị cho hỏi thêm 1 câu nữa: nếu em muốn sử dụng mã màu thì em phải làm như thế nào ạ?

Em cảm ơn!

Sử dụng bình thường mà bạn

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)    
SL.BackStyle = 1
    
Select Case SL
    Case 1
        SL.BackColor = 65535 'Vang
    Case 2
        SL.BackColor = 65280 ' Xanh
    Case 5
        SL.BackColor = 255 'Do
    Case Else
        SL.BackColor = 16777215 'Trang
End Select


End Sub

P/S: domfootwear là ai, Hai Lúa Miền Tây là ai? ẹc, ẹc...