Đá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
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 2 58 05-12-16, 04:34 PM
Bài mới nhất: Phung Duc
  Cần giúp đỡ chuyển số có thập phân ra chữ ledangvan 12 635 07-11-16, 03:56 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tạo thanh tiến trình trên Form (Progress bar) khi xử lý dữ liệu ongke0711 18 1,500 21-10-16, 10:17 PM
Bài mới nhất: ongke0711
  [Hỏi] Viết code có điều kiện " lệnh Chạy tiếp khi đóng tbl cho sẵn" Trần Linh 3 140 21-10-16, 11:11 AM
Bài mới nhất: Minh Tiên
  Giải thích ý nghĩ của đoạn code feeling 3 197 06-10-16, 10:18 AM
Bài mới nhất: vulhu06

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ơ