• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Nhờ anh chị giúp đoạn code trên

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Nhờ anh chị giúp đoạn code trên
• Nhờ anh chị giúp đoạn code trên

• Nhờ anh chị giúp đoạn code trên

  frantliem > 27-12-14, 11:13 AM

  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 đỡ

• RE: Nhờ anh chị giúp đoạn code trên

  thanhthienhg > 28-12-14, 09:33 PM

  (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"
• Bài trước Bài tiếp