Chào mọi người!
Mình có tạo một table trong đó 1 trường để kiểu là rich text để có thể định dạng in đậm 1 số thành phần trong đó cho dễ nhìn hơn tuy nhiên khi dùng combo box để chọn thì không hiển thị được như trong table hay query mà nó tự thêm vào một số kí tự định dạng dữ liệu kiểu như trong ảnh sau


khi ra forms dùng trong combo box thì bị như thế này



có cách nào cho forms hiển thị được như trong query không, nếu không có thì có cách nào khác để in đậm 1 số mục quan trọng không ạ.
Cám ơn mọi người

Mình tìm được video này khá hay, cách làm thì đi đường vòng 1 chút.
https://www.youtube.com/watch?v=FET8JG8w4Xg

(16-04-22, 10:28 AM)NguyenDungAnh Đã viết: Mình tìm được video này khá hay, cách làm thì đi đường vòng 1 chút.
https://www.youtube.com/watch?v=FET8JG8w4Xg

Combox hay List box không thể định dạng thêm màu như bạn muốn được chỉ có thể làm như video hoặc trên diễn đàn cũng có anh TranThanhAn/OngKe/MTNQ.... link : Thay đổi màu nền các dòng theo điều kiện trên form Continuous

Tôi cũng làm thêm 1 Demo nửa đính kèm theo Link Trên.

(21-04-22, 10:57 AM)maidinhdan Đã viết:

(16-04-22, 10:28 AM)NguyenDungAnh Đã viết: Mình tìm được video này khá hay, cách làm thì đi đường vòng 1 chút.
https://www.youtube.com/watch?v=FET8JG8w4Xg

Combox hay List box không thể định dạng thêm màu như bạn muốn được chỉ có thể làm như video hoặc trên diễn đàn cũng có anh TranThanhAn/OngKe/MTNQ.... link : Thay đổi màu nền các dòng theo điều kiện trên form Continuous

Tôi cũng làm thêm 1 Demo nửa đính kèm theo Link Trên.

cám ơn anh e hiểu rồi,

cho e hỏi ngoài lề 1 chút

em có sẵn 1 query được tạo rồi trong vba em ko muốn dùng lệnh SQL nữa mà gán trực tiếp query đã tạo thì có được không. khai báo thế nào ạ.

Sub BC_PTTK()
    Dim rs As DAO.Recordset
    Dim i As Integer
    Dim arr1()
        Set rs = CurrentDb.OpenRecordset("Tên query đã tạo")
        For i = 0 To rs.RecordCount
            arr1(0) = rs.Fields("madonvi")
            Debug.Print arr1(i)
       
        Next
End Sub

(21-04-22, 12:32 PM)NguyenDungAnh Đã viết: em có sẵn 1 query được tạo rồi trong vba em ko muốn dùng lệnh SQL nữa mà gán trực tiếp query đã tạo thì có được không. khai báo thế nào ạ.

Trả lời:
Ban hỏi: gán trực tiếp query đã tạo ....----> Bạn muốn gán vào đâu?, vì hàm [BC_PTTK] là hàm lấy nội dung tất cả mẫu tin madonvi đưa vào mãng và và hiển thị thôi. Bạn muốn làm gì cần trình bày rõ hơn

(21-04-22, 01:17 PM)maidinhdan Đã viết:

(21-04-22, 12:32 PM)NguyenDungAnh Đã viết: em có sẵn 1 query được tạo rồi trong vba em ko muốn dùng lệnh SQL nữa mà gán trực tiếp query đã tạo thì có được không. khai báo thế nào ạ.

Trả lời:
Ban hỏi: gán trực tiếp query đã tạo ....----> Bạn muốn gán vào đâu?, vì hàm [BC_PTTK] là hàm lấy nội dung tất cả mẫu tin madonvi đưa vào mãng và và hiển thị thôi. Bạn muốn làm gì cần trình bày rõ hơn

dạ bình thường thì cái dòng set rs nó sẽ thế này
Set rs = CurrentDb.OpenRecordset("Select * from tbabc")
nhưng bây giờ em đã có sẵn cái query: Qr1: "Select * from tbabc" rồi thì em sửa lại cái dòng đó thế nào.

Đại khái viết cái lệnh SQL thì nó rất dài kiểu sẽ thế này
SELECT IIf([forms]![fbaocao]![capbc]=1,[madonvi]-[madonvi] Mod 100,[madonvi]) AS makho, IIf([Forms]![Fbaocao]![capbc]=1,[madonvi]-[madonvi] Mod 1000,IIf([Forms]![Fbaocao]![capbc]=2,[madonvi]-[madonvi] Mod 100,[madonvi])) AS Expr1
FROM dmdonvi
WHERE (((dmdonvi.madonvi)>"2000"))
GROUP BY IIf([forms]![fbaocao]![capbc]=1,[madonvi]-[madonvi] Mod 100,[madonvi]), IIf([Forms]![Fbaocao]![capbc]=1,[madonvi]-[madonvi] Mod 1000,IIf([Forms]![Fbaocao]![capbc]=2,[madonvi]-[madonvi] Mod 100,[madonvi]))
HAVING (((IIf([Forms]![Fbaocao]![capbc]=1,[madonvi]-[madonvi] Mod 1000,IIf([Forms]![Fbaocao]![capbc]=2,[madonvi]-[madonvi] Mod 100,[madonvi])))=[Forms]![Fbaocao]![makho2]));


sau đó phải sửa lại những thành phần bên trong nữa trong khi đã có 1 cái qerry chạy sẵn rồi vậy làm sao set đc cái recordset= cái querry đó

Query đang chạy thì hiện thế này



nhưng khi em gán vào code chạy thì báo thế này 

Nếu Query đó có truyền tham số thì bạn phải khai báo lại tất cả các tham số trong VBA.
Dùng đối tượng QueryDef đi.

Ví dụ:

(21-04-22, 07:54 PM)ongke0711 Đã viết: Nếu Query đó có truyền tham số thì bạn phải khai báo lại tất cả các tham số trong VBA.
Dùng đối tượng QueryDef đi.

Ví dụ:

Mã PHP:

Dim qdf As DAO.QueryDef
Set qdf = db.QueryDefs("Q06PTTKMakho2")
qdf("Forms![fbaocao]![capbc]") = Forms![fbaocao]![capbc]
Set rst = qdf.OpenRecordset()
... 


cám ơn a