V
vuga
Sơ cấp
- 6/1/17
- 2
- 0
- 1
- 35
Kính nhờ Anh Chị giúp đỡ cho em. Hôm trước e cũng viết code cho bảng table Chi_Tiet_Nhap cũng giống vậy nhưng hôm nay e viết cho Chi_tiet_Xuat thì access lại báo lỗi Data Type Conversion Error ngay dòng rs("sku") = Me.lst_xuatKho.Column(1, i)
Đoạn Code Đính kèm:
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from T_chitiet_Xuat")
For i = 0 To Me.lst_xuatKho.ListCount - 1
rs.AddNew
rs("ID_phieuxuat") = Me.txt_Id_phieu_xuat.Value
rs("sku") = Me.lst_xuatKho.Column(1, i)
rs("sl_xuat") = Me.lst_xuatKho.Column(5, i)
rs.Update
Next
rs.Close
Trân trọng cảm ơn
Đoạn Code Đính kèm:
Dim db As Database
Dim rs As Recordset
Dim i As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from T_chitiet_Xuat")
For i = 0 To Me.lst_xuatKho.ListCount - 1
rs.AddNew
rs("ID_phieuxuat") = Me.txt_Id_phieu_xuat.Value
rs("sku") = Me.lst_xuatKho.Column(1, i)
rs("sl_xuat") = Me.lst_xuatKho.Column(5, i)
rs.Update
Next
rs.Close
Trân trọng cảm ơn