Tùy chọn
Tô đậm một số dòng có điều kiện trong Report
- Tô đậm một số dòng có điều kiện trong Report
-
Tô đậm một số dòng có điều kiện trong Report
DoquangLam > 24-06-11, 10:18 PM
Chào các bạn !
Các bạn cho mình hỏi : Trong Report có nhiều dòng, Mình muốn 1 số dòng nào đó đậm lên hay màu đỏ, xanh gì đó. Như vậy phải làm như thế nào, nêu điều kiện gì để đạt được yêu cầu như trên.
Mong các bạn quan tâm. Cám ơn ! -
RE: Tô đậm một số dòng có điều kiện trong Report
DoquangLam > 25-06-11, 10:20 PM
Có bạn nào biết không, giúp mình với. -
RE: Tô đậm một số dòng có điều kiện trong Report
quanghoasla > 26-06-11, 11:28 AM
cái này phải viết code vba bạn ạ. minh không định dạng được bằng điều chỉnh trong properti. nếu là tô giá trị trên form thì đơn giản hơn -
RE: Tô đậm một số dòng có điều kiện trong Report
DoquangLam > 26-06-11, 01:48 PM
Code như thế nào bạn ? -
RE: Tô đậm một số dòng có điều kiện trong Report
quanghoasla > 26-06-11, 03:39 PM
bạn có thể tham khảo ở trên google có rất nhiều phần bài tập mẫu. ở đây bạn có thể tham khảo phần này xem có đúng với ý của bạn không nhé.
Bạn chép đoạn code này vào 1 moduls mới với tên: basAgeFunction
Option Compare Database
Option Explicit
'----------------------------Code Start--------------------------------
Public Function AgeGroup(dtmBirthDate As Date) As String
Dim intAge As Integer
'Age Calculation
intAge = DateDiff("yyyy", [dtmBirthDate], Now()) + _
Int(Format(Now(), "mmdd") < Format([dtmBirthDate], "mmdd"))
Select Case intAge
'For each Age range, write out Age Group (used in qry)
Case 0 To 17
AgeGroup = "0-17"
Case 18 To 25
AgeGroup = "18-25"
Case 26 To 30
AgeGroup = "26-30"
Case 31 To 35
AgeGroup = "31-35"
Case 36 To 40
AgeGroup = "36-40"
Case 41 To 45
AgeGroup = "41-45"
Case 46 To 50
AgeGroup = "46-50"
Case Is > 50
AgeGroup = "50+"
End Select
End Function
'----------------------------Code End-----------------------------------
Option Compare Database
Option Explicit
Dim greenbar As Boolean
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
If greenbar Then
Detail.BackColor = 15263976
GroupHeader0.BackColor = 15263976
Else
Detail.BackColor = 14811135
GroupHeader0.BackColor = 14811135
End If
greenbar = Not (greenbar)
End Sub
ở phần report bạn thêm code này nhé
đây là data demo mà mình đã tìm được ở trên google.
chúc bạn vui vẻ -
RE: Tô đậm một số dòng có điều kiện trong Report
DoquangLam > 26-06-11, 09:40 PM
Hình như code trên nó tô màu nền chứ không phải là chữ. Mình vẫn chưa ứng dụng được mong các bạn hướng dẫn. -
RE: Tô đậm một số dòng có điều kiện trong Report
Noname > 26-06-11, 09:56 PM
Bạn cũng có thể áp dụng theo bài này, cả form và report đều được
http://thuthuataccess.com/forum/Thread-f...ong-access -
RE: Tô đậm một số dòng có điều kiện trong Report
quanghoasla > 26-06-11, 11:38 PM
Ừ mình xem lại rồi bạn có thể formats chữ, mầu nền, mầu chữ theo điều kiện của bạn. rất đơn giản. không phải viết code vba nữa. như vậy sẽ không phải rắc rối cho mọi người. bạn có thể làm theo cách của mình như sau:
Ở phần detail của report mà bạn muốn tô mầu.
b1; bạn chọn 1 đối tượng cần format.
B2: chuột phải vào đối tượng chọn đó
B3: chọn condition formating
B4: Xuất hiện bảng điều kiện format như ở trên excel." chắc đến bước này bạn biết cách làm tiếp rồi"
ở đây mình chọn stt chẳng hạn. mình sẽ gạch nền những số nào có giá trị> 1
điều kiện format condition như sau: fiels valua is / great than / 1
![[Hình: 4e3c296ba175ba38f4735eeb7f61d2129899ce12...a1164g.jpg]](http://img21.mediafire.com/4e3c296ba175ba38f4735eeb7f61d2129899ce1244607d49fceeb3a9da97a1164g.jpg)
B5: chọn Ok
B6: Chạy reports bạn thấy kết quả như mình mong muốn ngay.
![[Hình: d2819323f3631ec91ffdcfa07988621e5bd2163f...6ad64g.jpg]](http://img30.mediafire.com/d2819323f3631ec91ffdcfa07988621e5bd2163f367c427c24d01aae53c26ad64g.jpg)
Chúc bạn thành công
Đây là data demo của quanghoasla
-
RE: Tô đậm một số dòng có điều kiện trong Report
DoquangLam > 26-06-11, 11:54 PM
Cám ơn các bạn. Vẫn chưa đúng ý của mình.
Cũng ví dụ như trên, nhưng mình thêm vào một cột "DieuKien". Mình muốn in đậm nhưng dòng ở cột "TenHang" với điều kiện ở cột "DieuKien" là chữ C, ngược lại giữ nguyên không in đậm.