ongke0711 > 18-05-18, 09:38 PM
(18-05-18, 05:42 PM)vuthaiha90 Đã viết: Dạ, em đã ghép vào chương trình của em, em post lên đây , bác xem hộ em, cứ sửa Control Panel đi là không chạy được, mà sửa lại 123,456,789.00 thì chạy ok. Không phải do em thêm thừa, thiếu field đâu ạ.
Sub makeTbl(rs As DAO.Recordset, TienGocCongLai As Double, KyTraLai As Integer, NgayCuoiKy As Date, TienLaiTrongKy As Double, TriGiaSoKhiXuatKho As Double)
Dim rs1 As DAO.Recordset
Set rs1 = CurrentDb.OpenRecordset("T_ChiTietTraLaiSTK")
rs1.AddNew
rs1("STT") = rs!STT
rs1("TenTS") = rs!TenTS
rs1("SosoTK") = rs!SosoTK
rs1("Trigiaso") = rs!Trigiaso
rs1("Kyhan") = rs!Kyhan
rs1("Laisuatgui") = rs!Laisuatgui
rs1("Noiphathanh") = rs!Noiphathanh
rs1("Ngaygui") = rs!Ngaygui
rs1("NgayXuatKhoSo") = Date
rs1("TienGocCongLai") = TienGocCongLai
rs1("KyTraLai") = KyTraLai
rs1("NgayTraLai") = NgayCuoiKy
rs1("TienLaiTrongKy") = TienLaiTrongKy
rs1("TriGiaSoKhiXuatKho") = TriGiaSoKhiXuatKho
rs1.Update
rs1.Close
Set rs1 = Nothing
End Sub
Call makeTbl(rs, TienGocCongLai, KyTraLai, NgayCuoiKy, TienLaiTrongKy, TriGiaSoKhiXuatKho)