• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Sử dụng rich text trong combo box

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Sử dụng rich text trong combo box
• Sử dụng rich text trong combo box

• Sử dụng rich text trong combo box

  NguyenDungAnh > 16-04-22, 09:44 AM

  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

• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 16-04-22, 10:28 AM

  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

• RE: Sử dụng rich text trong combo box

  maidinhdan > 21-04-22, 10:57 AM

  (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.

• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 21-04-22, 12:32 PM

  (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

• RE: Sử dụng rich text trong combo box

  maidinhdan > 21-04-22, 01:17 PM

  (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

• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 21-04-22, 02:52 PM

  (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.

• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 21-04-22, 03:11 PM

  Đạ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 đó

• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 21-04-22, 03:52 PM

  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 
  
  

• RE: Sử dụng rich text trong combo box

  ongke0711 > 21-04-22, 07:54 PM

  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()
... 


• RE: Sử dụng rich text trong combo box

  NguyenDungAnh > 22-04-22, 08:14 AM

  (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
• Bài trước Bài tiếp