Câu hỏi Trong biểu mẫu MSAccess, sử dụng Biểu mẫu liên tục, làm thế nào tôi có thể nhận được các hàng màu thay thế bằng cách nhóm dữ liệu?


Khi tôi sử dụng biểu mẫu liên tục trong một biểu mẫu MSAccess, nó sẽ tự động áp dụng một màu hàng thay thế cho mỗi hàng khác.
Tôi muốn có màu hàng thay thế cho các nhóm hàng dữ liệu.
Một số nhóm có thể chỉ có một hàng, nhưng những nhóm khác sẽ có nhiều nhóm.
Tôi có một cột trong biểu mẫu với một số nguyên tăng dần cho mỗi nhóm.

Có cách nào để có được quyền truy cập để nhận ra các nhóm trong mẫu và sau đó áp dụng thay thế hàng màu có thay vì chỉ đơn giản là mỗi hàng khác?


1
2017-10-23 01:54


gốc




Các câu trả lời:


Truy cập không có cách để nhận dạng Nhóm trong Biểu mẫu trong giao diện người dùng. (trong Báo cáo)

Tuy nhiên, có một sự kiện của phần chi tiết cung cấp một móc thích hợp để định dạng, ngay cả khi không có giao diện người dùng "Nhóm".

enter image description here

Vì có một chỉ số nguyên cho các nhóm, và chúng tôi muốn thay thế theo nhóm, thật dễ dàng để chỉ kiểm tra các nhóm chẵn / lẻ và đặt màu nền.
Chúng ta cần buộc cả "Backcolor" và "AlternateBackColor". Giả sử chỉ mục nhóm được đặt trong một hộp văn bản có tên là IndexColumnBox, nó có thể là ...

Private Sub Detail_Paint()

    If Me.IndexColumnBox.Value Mod 2 = 0 Then
        Detail.BackColor = &HDDDDDD
        Detail.AlternateBackColor = &HDDDDDD

    Else
        Detail.BackColor = &HFFFFFF
        Detail.AlternateBackColor = &HFFFFFF

    End If

End Sub

(Lưu ý sự kiện là sơn màn hình, và không chỉ tạo ra các hình thức liên tục một lần.Vì vậy, sự kiện này sẽ được gọi là bất kỳ số lần cho mỗi hàng như hình thức được cuộn và sử dụng.Điều này có nghĩa là nó là chìa khóa để có một cái gì đó giống như cột chỉ mục kiểm tra luôn luôn giống nhau.)


1
2017-10-23 01:54



Nếu bất cứ ai có thể tìm thấy một sự kiện tốt hơn so với Detail_Paint thì nó có thể thú vị. Nó gây ra tác dụng phụ khi các nhóm thay đổi, chẳng hạn như trong trường hợp của tôi, nơi đây là một biểu mẫu con và tôi thay đổi các bản ghi trong phụ huynh. - Mike M