Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tô đậm một số dòng có điều kiện trong Report
#1
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 !
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#2
Có bạn nào biết không, giúp mình với.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#3
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
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#4
Code như thế nào bạn ?
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#5
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ẻ
Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng
#6
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.
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn
#7
(26-06-11, 09:40 PM)DoquangLam Đã viết: 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.

Thay chữ Backcolor bằng ForeColor là đổi màu chữ ngay
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Hạ Vàng
#8
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
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Ừ 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]
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]
Chúc bạn thành công

Đây là data demo của quanghoasla Lightbulb007


Chữ ký của quanghoasla Hãy chia sẻ kinh nghiệm cùng mình trênThuThuatAccess nhé! Chúc vui vẻ rose
My site: My site hoặc My site
ღღღღღTài sản của quanghoasla (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , Hạ Vàng
#10
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.


File đính kèm
.zip   vidutomauquanghoasla.zip (Kích cỡ: 19.03 KB / Tải về: 46)
Chữ ký của DoquangLam Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Làm sao để in được trang chẳn hoặc trang lẻ trong report access? nhattiensinh 5 1,047 08-12-16, 11:55 PM
Bài mới nhất: hoanghai902
  [Help] Cho mình hỏi cách tạo report động theo ngày BayVeo 1 69 07-12-16, 09:09 PM
Bài mới nhất: maidinhdan
  [Hỏi] cách giữ dòng tiêu đề trên trang 1 khi in. hoanghai902 4 68 06-12-16, 07:30 PM
Bài mới nhất: hoanghai902
  Hướng Dẫn Cách sắp xếp report? tieuho828 0 28 03-12-16, 09:05 PM
Bài mới nhất: tieuho828
  [Help] Xin Giúp đỡ Dàn Report theo hàng ngang toi511 2 143 03-11-16, 01:10 PM
Bài mới nhất: toi511

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ