• 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"