Lấy dữ liệu và xóa từ bảng động

[agribanktanphu]

Tôi có chương trình cần phải import file của các ngày trong tháng. Tôi đã làm ok rồi.VD như tháng 05/2009 : từ file CDVND20090501 đến file CDVND20090531.
Tôi làm hàm xóa các bảng trên như sau :

Public Function Xoadulieuthang()
Dim CSDL As DAO.Database
Dim rs As DAO.Recordset
Set CSDL = CurrentDb()
Dim i As Integer
Dim NgayLSDVDR, thangLSDVDR, namLSDVDR, str_ChuoiNgayThang As String
thangLSDVDR = CLng(InputBox("NhËp th¸ng cÇn lÊy sè liÖu", "Th«ng b¸o", CLng(Month(Now()) - 1)))
namLSDVDR = CLng(InputBox("NhËp th¸ng cÇn lÊy sè liÖu", "Th«ng b¸o", CLng(Year(Now()))))
NumDaysPerMonthLSDVDR = CLng(Format$(Day(DateSerial(namLSDVDR, thangLSDVDR + 1, 0))))
For i = 1 To NumDaysPerMonthLSDVDR
NgayLSDVDR = i
str_ChuoiNgayThang = CStr(namLSDVDR) & Right("0" & CStr(thangLSDVDR), 2) & Right("0" & CStr(NgayLSDVDR), 2)
CSDL.Execute "DROP TABLE 'CDVND' & str_ChuoiNgayThang"
Next i
End Function

nhưng nó không hiểu câu "DROP TABLE 'CDVND' & str_ChuoiNgayThang"
Mặt khác, tôi muốn lấy số liệu của các bảng này để cho vào 01 bảng tôi làm sẵn nhưng không biết làm cách nào. Ai biết chỉ tôi với. Xin cảm ơn!

 

[agribankdienbien]

Bạn thử thay bằng câu lệnh này "DROP TABLE CDVND" & str_ChuoiNgayThang
hoặc "DROP TABLE " & "CDVND" & str_ChuoiNgayThang cũng được
Còn bạn muốn xuất cân đối ở các bảng khác vào 1 bảng tạo sẵn thì bạn có thể dùng câu lệnh SQL: DOCMD.RUNSQL "INSERT INTO...."
Chương trình IPCAS2 của bạn khi xuất ra Excel hoặc dBase thì các bảng cân đối có cấu trúc tương tự nhau, nên việc Import cũng dễ thôi.
Chúc thành công!

 

[singoc66]

Tôi có chương trình cần phải import file của các ngày trong tháng. Tôi đã làm ok rồi.VD như tháng 05/2009 : từ file CDVND20090501 đến file CDVND20090531.
Tôi làm hàm xóa các bảng trên như sau :

nhưng nó không hiểu câu "DROP TABLE 'CDVND' & str_ChuoiNgayThang"
Mặt khác, tôi muốn lấy số liệu của các bảng này để cho vào 01 bảng tôi làm sẵn nhưng không biết làm cách nào. Ai biết chỉ tôi với. Xin cảm ơn!

Sao Bạn không dùng Query để làm việc này ?, quá đơn giản mà.