Chủ đề: Lấy dữ liệu và xóa từ bảng động
-
06-09-2009, 04:53 AM #1Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 21
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 :
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
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!View more random threads:
- Cho em hỏi về hàm làm tròn trong VBA ?
- Điều chỉnh thông tin thông qua Query
- Xin hướng dẫn giúp mình cách đánh số thứ tự trong Form Access.
- chuyển report access sang excel
- Thêm Nhiều Record Chỉ Bằng Một Nút Nhấn
- tìm kiếm qua các điều kiện chọn textbox
- Gán nút lệnh cho phím chức năng.
- Hỏi xuất dữ liệu Access sang Excel để in!
- Nút OfficeLink bị disable
- Kiểm tra trùng lặp khóa chinh trong Access
-
06-09-2009, 05:03 AM #2Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 1
Ðề: Lấy dữ liệu và xóa từ bảng động
Gửi bởi haocaocu
Chú phải xài cái này nè:
DoCmd.DeleteObject acTable, "CDVND" & str_ChuoiNgayThang
-
06-09-2009, 05:22 AM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
-
06-09-2009, 06:29 AM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Lấy dữ liệu và xóa từ bảng động
Gửi bởi haocaocu
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
Du lịch Indonesia - Nếu bạn đang tìm kiếm những cảm giác mới lạ thú vị thì "xứ vạn đảo" Indonesia sẽ là một sự lựa chọn không thể bỏ qua. Indonesia với hàng ngàn đảo lớn nhỏ, cùng những cảnh quan...
Tour du lịch Indonesia được Dulichviet tổ chức đặc sắc như thế nào?