Tùy chọn
Tô màu cho dòng double click trong subform
- Tô màu cho dòng double click trong subform
-
Tô màu cho dòng double click trong subform
AnNguyen > 20-07-20, 11:45 AM
Em có sử dụng 1 subform bên trong form,
Khi em click double thì nó sẽ lấy dữ liệu lên form chính (em đã làm được).
Vậy em muốn khi em click double thì màu của dòng đó được tô màu vàng, để mình phân biệt được là dòng đó mình chọn. -
RE: Tô màu cho dòng double click trong subform
ledangvan > 20-07-20, 04:50 PM
-
RE: Tô màu cho dòng double click trong subform
AnNguyen > 22-07-20, 08:45 AM
(20-07-20, 04:50 PM)ledangvan Đã viết: Của bạn đây
Cảm ơn bạn
http://www.mediafire.com/file/4ep7vmezzb...u.mdb/file
Nhưng đây là dữ liệu được load từ table local ra nên có thể tích chọn trực tiếp từ subform được
Còn dữ liệu của mình được load từ recordset ra nên k thể chọn được checkbox. -
RE: Tô màu cho dòng double click trong subform
tranthanhan1962 > 22-07-20, 09:46 AM
CSDL của bạn như thế nào? -
RE: Tô màu cho dòng double click trong subform
AnNguyen > 22-07-20, 09:52 AM
(22-07-20, 09:46 AM)tranthanhan1962 Đã viết: CSDL của bạn như thế nào?
Cháu load Proc từ SQL về sau đó đổ vào subform đó ạ.
Mã:Dim cnn As New ADODB.Connection
cnn.ConnectionString = Chuoi_Conn
cnn.Open
Dim cmd1 As New ADODB.Command
Set cmd1.ActiveConnection = cnn
cmd1.CommandText = "dbo." & name_Proc
cmd1.CommandType = adCmdStoredProc
Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient
cmd1.Parameters.Append cmd1.CreateParameter("@matruong", adVarChar, adParamInput, 15, manv)
rst.Open cmd1, , adOpenKeyset, adLockPessimistic
Set Me.sfDSTaiSanDi.Form.Recordset = rst -
RE: Tô màu cho dòng double click trong subform
mrsiro > 22-07-20, 10:06 AM
bạn đổ dữ liệu từ recordset vô table tạm đi, lúc đó là dữ liệu local rồi, dễ thao tác hơn. -
RE: Tô màu cho dòng double click trong subform
AnNguyen > 22-07-20, 10:14 AM
-
RE: Tô màu cho dòng double click trong subform
ongke0711 > 22-07-20, 12:09 PM
Dữ liệu có một cột nào đó là mã định danh được phải không em? -
RE: Tô màu cho dòng double click trong subform
tranthanhan1962 > 22-07-20, 02:53 PM
Vấn đề không nằm ở nguồn dữ liệu mà nằm ở form. Vì không có dữ liệu nên khó giải thích cho bạn. Đầu tiên bạn tạo thêm 1 field trên table để xác định dữ liệu được chọn., tạm gọi tên là Chon, giả sử table của bạn có tên là ABC.
Tạo code để xác đinh dong chọn. Tren một textbox bất kỳ tạo code sau đây (luôn DblClick vào field này để xử lý code chọ dòng chọn).
Private Sub Form_Current()
DoCmd.RunSQL "UPDATE ABC SET ABC.[Chon] = ' ';"
Chon.Value = "X"
End Sub
Có nghĩa là dòng nào hiện hành thì Chon có giá trị là X và các dòng khác có giá trị là ' '. Chọn Form_Current() mà không phải DblClick là để vị trí con trỏ nằm bất kỳ field nào cũng được
Nếu tập tin access là mbd thì phải chuyển form qua dạng Datasheet vì trong mdb chỉ cho phép thiết đặt Conditional Formatting ở dạng này. Với accdb thì dạng nào cũng được.
Thiết đặt Conditional Formatting:
![[Hình: bhmkurM.png]](https://i.imgur.com/bhmkurM.png)
Vì bạn muốn đánh dấu màu vàng nên mỗi ô thiết đặt Conditional Formatting cho nó.
![[Hình: EifsFmu.png]](https://i.imgur.com/EifsFmu.png)
Field Value Is / equal to (bằng)/ "X".
Ở chỗ đổ màu nền chọn màu vàng. Khi record nào hiện hành ô đó sẽ có nền màu vàng. Tất nhiên nếu muốn tất cả các ô thì phải thiết đặt Conditional Formatting cho tất cả các ô. sao khi thiiets đặt xong bạn lưu lại, giá trị thiế đặt vẫn OK khi chuyển sang dạng Continuous Forms hay Single Form.