Đá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
  [Help] Nhập dữ liệu trên datagridview. HoangManh 9 193 17-05-17, 10:52 AM
Bài mới nhất: HoangManh
  Sử dụng Windows Media Player trên access victorkieu 3 167 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,065 26-03-17, 12:09 AM
Bài mới nhất: phungminhluan
  code chuyển đổi Hex sang ASCII trong access thanhtruong 9 547 13-02-17, 10:34 PM
Bài mới nhất: ongke0711
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 5 325 12-12-16, 04:25 PM
Bài mới nhất: ongke0711

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ơ