-
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:
- Làm sao để chèm mã tự động có dạng mong muốn
- giup đở tạo menu trong access 2007
- Lưu dữ liệu từ subform vào 1 table mới ???
- Lấy dự liệu từ Query này sang Query khác mà không có liên kết
- [Cần Giúp Đỡ] Vấn đề về refresh dữ liệu
- Anh chị giúp em với, em k biết bắt đầ từ đâu. IN HÓA ĐƠN ĐỎ BẰNG MÁY
- Xin giúp đỡ về cách hiện bảng lương trong Access
- giúp mình phần này với
- lập bản chào giá
- Cần giúp về làm form tìm kiếm
-
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
Choxeonline.vn đem lại sự thuận tiện và tiết kiệm thời gian cho người dùng khi mua bán xe ô tô. Không cần phải đi lại nhiều nơi để tìm kiếm và so sánh giá cả, bạn có thể thực hiện mọi thứ chỉ với vài...
Khám Phá Thị Trường Xe Ô Tô Sôi Động Tại Choxeonline.vn