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

[haocaocu]

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!

 

[phatnq2002]

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

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!

Chú haocaocu chơi cái 'DROP TABLE' ở đây làm sao mà Access hiểu cho được?

Chú phải xài cái này nè:

DoCmd.DeleteObject acTable, "CDVND" & str_ChuoiNgayThang

 

[haocaocu]

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

Cảm ơn bác Phật. Chỗ ngày lễ em làm ok rồi.Em làm bằng code luôn không tạo bảng như anh nói. A chỉ dẫn cho e cách lấy số liệu từ các table đó với.
-----------------------------------------------------------------------------------------
Có cách nào kiểm tra 1 table trong database đã có tồn tại hay không?A chỉ e với

 

[phatnq2002]

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

Cảm ơn bác Phật. Chỗ ngày lễ em làm ok rồi.Em làm bằng code luôn không tạo bảng như anh nói. A chỉ dẫn cho e cách lấy số liệu từ các table đó với.
-----------------------------------------------------------------------------------------
Có cách nào kiểm tra 1 table trong database đã có tồn tại hay không?A chỉ e với

Cái đoạn trên, chưa hiểu ý.
Cái đoạn dưới, muốn kiểm tra một table có chưa thì:

Public Function TableExist(tablename As String) As Boolean
Dim tabdef As DAO.TableDefs, res As Boolean
res = False
For Each tabdef In TableDefs
If tabdef.Name = tablename Then
res = True
Exit For
End If
Next
TableExist = res
End Function