Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Nhờ anh chị giúp đoạn code trên
#1
Em có 1 đoạn code viết để import dữ liệu từ excel
Private Sub cmdTimtapTinTK994_Click()
With dlgTimTapTin

.DialogTitle = "Select Excel file"
.FileName = ""
.Filter = "Excel Files (*.xls)|*.xls|"
.ShowOpen

If .FileName = "" Or IsNull(.FileName) Then
Exit Sub
Else
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_saoketaisan994", .FileName, True
MsgBox "Da nhap xong du lieu vao bang", vbInformation
Exit Sub
End If
End With

End Sub


Em muốn Xóa table T_saoketaisan994 trước khi import
em chèn đoạn mã
DoCmd.DeleteObject acTable, T_saoketaisan994

nhưng không chạy. Mong mọi người giúp đỡ
Chữ ký của frantliem Xin chào, mình là frantliem, Tham gia http://thuthuataccess.com/forum từ ngày 08-01 -13.
Reply
Những người đã cảm ơn
#2
(27-12-14, 11:13 AM)frantliem Đã viết: Em có 1 đoạn code viết để import dữ liệu từ excel
Private Sub cmdTimtapTinTK994_Click()
With dlgTimTapTin

.DialogTitle = "Select Excel file"
.FileName = ""
.Filter = "Excel Files (*.xls)|*.xls|"
.ShowOpen

If .FileName = "" Or IsNull(.FileName) Then
Exit Sub
Else
On Error Resume Next
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "T_saoketaisan994", .FileName, True
MsgBox "Da nhap xong du lieu vao bang", vbInformation
Exit Sub
End If
End With

End Sub


Em muốn Xóa table T_saoketaisan994 trước khi import
em chèn đoạn mã
DoCmd.DeleteObject acTable, T_saoketaisan994

nhưng không chạy. Mong mọi người giúp đỡ

Bạn thử viết lại là
DoCmd.DeleteObject acTable, "T_saoketaisan994"
Chữ ký của thanhthienhg Xin chào, mình là thanhthienhg, Tham gia http://thuthuataccess.com/forum từ ngày 14-09 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Lỗi] Code để bảo vệ văn bản trừ các đoạn formfield vuthaiha90 10 488 14-11-17, 05:31 PM
Bài mới nhất: vuthaiha90
  Làm sao chạy được code cả trong access 32 bit và access 64 bit haquocquan 1 204 12-09-17, 11:15 PM
Bài mới nhất: maidinhdan
  [Help] Nhập dữ liệu trên datagridview. HoangManh 9 508 17-05-17, 10:52 AM
Bài mới nhất: HoangManh
  Sử dụng Windows Media Player trên access victorkieu 3 450 02-05-17, 10:45 AM
Bài mới nhất: paulsteigel
  [Giúp] lấy đường dẫn tương đối cho các Shell dieuchinhlu 2 2,344 26-03-17, 12:09 AM
Bài mới nhất: phungminhluan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ