Tôi đang làm chương trình cần import từ file .DBF vào table access. Import từ excel vào thì ok rồi, nhưng do chương trình xuất ra file excel không đúng định dạng nên mỗi lần import lại phải sửa nên tôi chuyển xuất sang file .dbf. File tôi để ở CTMP(tên file CDDVND20090427).Tôi đã viết code như thế này :
nhưng nó báo lỗi. Tôi tìm hoài mà không tìm ra. Mong các cao thu chỉ giúp. Xin cảm ơn!Public Sub importdata(tenfile As String, tentable As String)
DoCmd.TransferDatabase acImport, "dbase 5.0", "CTMP", acTable, tenfile, tentable, False
End Sub
Public Function docdulieu()
Dim path, str_ChuoiNgayThang As String
Dim ngay, thang, nam As Integer
ngay = CLng(InputBox("NhËp vµo ngµy lÊy d÷ liÖu", "Th«ng b¸o", Day(Now())))
thang = CLng(InputBox("NhËp vµo th¸ng lÊy d÷ liÖu", "Th«ng b¸o", Month(Now())))
nam = CLng(InputBox("NhËp vµo n¨m lÊy d÷ liÖu", "Th«ng b¸o", Year(Now())))
str_ChuoiNgayThang = CStr(nam) & Right("0" & CStr(thang), 2) & Right("0" & CStr(ngay), 2)
importdata "CDDVND" & str_ChuoiNgayThang & ".DBF", "CDDVND"
End Function