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

    AnNguyen > 22-04-22, 09:17 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()
    ... 
    Anh Bảo ơi. Bình thường em hay làm khi người dùng lựa chọn tìm kiếm nhiều trường, lúc thì 1 trường, lúc thì 2 3... trường.
     Vì vậy em thường xóa hẳn Query đó đi sau tạo lại vì truyền lại tham số thì nó biến động rồi. Và mỗi lần thoát ứng dụng thì compact luôn để lần sau mở nó nhẹ hơn.
    Như vậy cũng được phải không anh?
  • RE: Sử dụng rich text trong combo box

    ongke0711 > 22-04-22, 11:14 AM

    (22-04-22, 09:17 AM)AnNguyen Đã viết: Anh Bảo ơi. Bình thường em hay làm khi người dùng lựa chọn tìm kiếm nhiều trường, lúc thì 1 trường, lúc thì 2 3... trường.
     Vì vậy em thường xóa hẳn Query đó đi sau tạo lại vì truyền lại tham số thì nó biến động rồi. Và mỗi lần thoát ứng dụng thì compact luôn để lần sau mở nó nhẹ hơn.
    Như vậy cũng được phải không anh?

    Đúng rồi, thường khi dùng QueryDef này thì sẽ thêm công đoạn xóa cái query cũ đi rồi mới tạo cái mới.

    Mã PHP:
    On Error Resume Next

    CurrentDb
    .QueryDefs.Delete "qryTemp"