conmeo > 04-05-13, 12:48 PM
Xuân Thanh > 04-05-13, 03:06 PM
(04-05-13, 12:48 PM)conmeo Đã viết: Em có 2 table:
INTEM: SKU,SL
Temp:ID,SKU
Em muốn làm thế nào cập nhật được số lượng từ INTEM vào temp theo SKU
VD: INTEM:3001010,2
Khi chạy code thì nó ra 2 dòng theo số lượng cùng 1 SKU trong Temp
1.3001010
2.3001010
Khi số lượng 2 thì nó ra 2 dòng cùng 1 SKu , 3 thì ra 3 dòng
Kính nhờ anh chị giúp đỡ.
E cảm ơn.
Sub CapNhat()
Dim rItem As Recordset
Dim rTem as Recordset
Set rItem = CurrentDb.OpenRecordset("Intem", dbOpenTable)
Set rTem = CurrentDb.OpenRecordset("Temp", dbOpenTable)
Dim n As Integer, i As Integer
DoCmd.SetWarning False
DoCmd.RunSQL "Delete * From Temp"
DoCmd.SetWarning True
rItem.MoveFirst
Do Until rItem.EOF
n = rItem!SL
For i = 1 To n
rTem.AddNew
rTem!ID = i
rTem!SKU = rItem!SKU
rTem.Update
Next
rItem.MoveNext
Loop
rItem.Close: rTem.Close
End Sub
Xuân Thanh > 04-05-13, 03:17 PM
(04-05-13, 12:48 PM)conmeo Đã viết: Em có 2 table:
INTEM: SKU,SL
Temp:ID,SKU
Em muốn làm thế nào cập nhật được số lượng từ INTEM vào temp theo SKU
VD:
INTEM:3001010,2
Khi chạy code thì nó ra 2 dòng theo số lượng cùng 1 SKU trong Temp
1.3001010
2.3001010
Khi số lượng 2 thì nó ra 2 dòng cùng 1 SKu , 3 thì ra 3 dòng
Kính nhờ anh chị giúp đỡ.
E cảm ơn.
Private Sub cmdCapNhat_Click()
Dim rTem As Recordset
Set rTem = CurrentDb.OpenRecordset("Temp", dbOpenTable)
Dim n As Integer
For n = 1 To Me.txtSL
rTem.AddNew
rTem!ID = n
rTem!SKU = Me.txtSKU
rTem.Update
Next
rTem.Close
End Sub
conmeo > 04-05-13, 03:55 PM
conmeo > 04-05-13, 11:07 PM
Xuân Thanh > 06-05-13, 12:08 PM
(04-05-13, 11:07 PM)conmeo Đã viết: Không biết em sai chỗ nào mà nó ko cập nhật
Anh xem giúp file dùm e.
Quan trọng là cai Table INTEM và TEMP
E có để 1 record mẫu trong INTEM và gõ 3 record vào TEMP để làm mẫu mà e muốn cập nhật từ INTEM
E muốn khi bấm "Cập nhật" thì record trong INTEM sẽ nhảy vào TEMP giống như trong file .Xong rồi nó xóa luôn record trong INTEM
E mò hồi trưa tới giờ ..hic hic
http://www.mediafire.com/?ecc5iajuhtqgm5f
conmeo > 06-05-13, 07:53 PM