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

Tạo Query tạm để xử lý dữ liệu trong VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Query
  • Tạo Query tạm để xử lý dữ liệu trong VBA
• Tạo Query tạm để xử lý dữ liệu trong VBA

• Tạo Query tạm để xử lý dữ liệu trong VBA

  Noname > 23-08-10, 04:14 PM

  Hỏi: Trước đây em tạo query bằng lưới, nên lúc nào cũng có query tồn tại trong chương trình; bây giờ em học định nghĩa query bằng VBA, để không tồn tại query trong chương trình nữa.Sau khi xử lý xong thì xóa đi
  
  

  Mã:

  Private Sub Command0_Click()
    Dim DB As Database
    ' Dim query1 As QueryDef
    Dim query1 As QueryDef
    Dim SQL1 As String
    SQL1 = "select maso, sum(table2.sotien) as sotien, count(sohd) as slhd from table2 group by maso"
    Set DB = CurrentDb
    Set query1 = DB.CreateQueryDef("query1", SQL1)
    DB.Execute "select query1.maso, table1.ten, query1.sotien, query1.slhd into table3 from query1 left join table1 on query1.maso=table1.maso"
    ' xoa table tam di
    DB.QueryDefs.Delete "query1"
    msgbox " insert Data to table 3 successful"
    Set DB = Nothing

    End Sub

  
  Demo

• RE: Tạo Query tạm để xử lý dữ liệu trong VBA

  pfsvn > 17-12-10, 04:01 PM

  CHo mình hỏi. Mình cũng khai báo " Dim DB As Database", nhưng mà Access 2003 lại báo lổi không chấp nhận kiểu database. Chỉ mình cách khắc phục
  

• RE: Tạo Query tạm để xử lý dữ liệu trong VBA

  Cafe Via He > 17-12-10, 04:29 PM

  (17-12-10, 04:01 PM)pfsvn Đã viết: CHo mình hỏi. Mình cũng khai báo " Dim DB As Database", nhưng mà Access 2003 lại báo lổi không chấp nhận kiểu database. Chỉ mình cách khắc phục

  
  Bạn pfsvn chú ý kiểm tra hàm thư viện "Microsoft DAO 3.6 Object Library" đã được chọn chưa
  
  ở cửa sổ VBA vào Tools-> References -> Chọn "Microsoft DAO 3.x Object Library"
  
  Với x tuỳ vào phiên bản Office bạn cài
• Bài trước Bài tiếp