-
01-12-2015, 05:34 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Update dữ liệu từ bảng 2 qua bảng 1
Tôi có 2 bảng dữ liệu như hình đính kèm:
Tôi muốn sử dụng câu lệnh để Update cột số lượng từ bảng 2 qua bảng 1 theo đúng mã của nó và sum cột số lượng.
Hy vọng được mọi người giúp tôi. Xin chân thành cảm ơn.View more random threads:
- Đề thi Chứng chỉ B và C Tin Học Quốc gia
- Auto load from
- Làm sao để tính tổng của column trong Child Form
- Một số điểm chú ý khi thiết kế Form(Chuyên đề)
- Làm sao để lấy dữ liệu lọc được từ 1 bảng để append Query sang 1 bảng khác???
- Thoát khỏi Workgroup đã được Security.
- Coppy dữ liệu từ excel vào access
- Giúp em bài tập này với ạ! Cần Gấp Ạ!
- Cách tạo Query như thế nào để tạo báo cáo tổng hợp số liệu theo 12 tháng
- Ràng buộc về “NGÀY” trong ACCESS????
-
01-13-2015, 05:31 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Hi,
Theo cách viết code nông dân của tôi thì như bên dưới: file mdb đính kèm (access 2007)
------------------------------------------
Private Sub cmdSum_Click()
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim strRS2 As String
Set db = CurrentDb
Set rs1 = db.OpenRecordset("Table1", dbOpenDynaset)
'Query group mahang, soluong
strRS2 = "SELECT Table2.Ma, Sum(Table2.SoLuong) AS SumOfSoLuong FROM Table2 " & _
"GROUP BY Table2.Ma;"
Set rs2 = db.OpenRecordset(strRS2, dbOpenDynaset)
rs1.MoveFirst
Do Until rs1.EOF
Do Until rs2.EOF
rs1.FindFirst "[Ma]='" & rs2!Ma & "'"
If Not rs1.NoMatch Then
rs1.Edit
rs1!SoLuong = Nz(rs1!SoLuong) + Nz(rs2!SumOfSoLuong) 'nz de tranh loi cong Null value o cot Soluong
rs1.Update
rs2.MoveNext
Else
rs2.MoveNext
End If
Loop
rs1.MoveNext
Loop
End Sub
-
01-15-2015, 02:12 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Gửi bởi ongke0711
Thông qua phân tách dữ liệu Google từ 86 quốc gia, mới đây, một công ty tại Anh đã công bố bảng xếp hạng kích thước "cậu nhỏ" của các nước trên thế giới. Kết quả, hầu hết các nước xếp ở nhóm đầu của...
"Chim" của bạn trai Việt thuộc nhóm nhỏ nhất hành tinh?