Thủ Thuật Access

Thế Giới Thủ Thuật với Access

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

Posted by Noname trên 23.11.2009

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

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

Tải xuống Demo

Advertisements

Trả lời

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

 
%d bloggers like this: