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!

 

[sealand]

Mình không có điều kiện test nhưng chuỗi sql của bạn thử sửa lại như sau:

CSDL.Execute "DROP TABLE 'CDVND'" & str_ChuoiNgayThang

Muốn chép vào Table nào thì Query Insert sẽ chép nối vào table into....Bạn thêm 1 query chép trước query xóa là được