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

Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thảo Luận Access
  • [Hỏi] Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'
• Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'

• Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'

  doandinhtam > 01-09-18, 02:46 PM

  Mình có 1 vấn đề như sau mong các bạn nào rành về Access cho mình đoạn code:
  Mình có làm 1 nút Save As code như sau:
  

  Mã:

  Private Sub Command14_Click()

Dim dlgSaveAs As FileDialog
Dim strFilePath As String
Dim strFileName As String

Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)

dlgSaveAs.Show
strFilePath = dlgSaveAs.SelectedItems(1)

Me.txtsave = strFilePath

strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\"))
strFilePath = Left(strFilePath, InStrRev(strFilePath, "\"))
   Dim sFile As String, oDB As DAO.Database
   sFile = txtsave & ".bak"
   
   If Dir(sFile) <> "" Then Kill sFile
   
   Set oDB = DBEngine.Workspaces(0).CreateDatabase(sFile, dbLangGeneral)
   oDB.Close
   DoCmd.Hourglass True
   
   Dim oTD As TableDef
   For Each oTD In CurrentDb.TableDefs
       If Left(oTD.Name, 4) <> "MSys" Then
          DoCmd.CopyObject sFile, , acTable, oTD.Name
       End If
   Next oTD
   
   DoCmd.Hourglass False
   
   MsgBox "Sao luu du lieu xong"
   
End Sub

  Nhưng nếu bấm Save As mà không ghi gì mà bấm Cancel thì bị lỗi Run-time error 5: Invalid procedure call or argument.
  Ai giúp mình fix với

• RE: Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'

  ongke0711 > 02-09-18, 12:37 AM

  Đoạn code trên của bạn thiếu code bẫy lỗi khi không chọn gì cả (bấm Cancel).
  Thêm đoạn code này ngay bên dứoi dòng: dlgSaveAs.Show
  
  dlgSaveAs.Show
  
      With dlgSaveAs
          If .SelectedItems.Count = 0 Then
              MsgBox "Khong chon file nao."
              Exit Sub
          Else
              strFilePath = dlgSaveAs.SelectedItems(1)
              Me.txtsave = strFilePath
          End If
      End With
  
  

  Mã PHP:

  Dim dlgSaveAs As FileDialog
   Dim strFilePath As String
   Dim strFileName As String

   Set dlgSaveAs = Application.FileDialog(msoFileDialogSaveAs)

   dlgSaveAs.Show
   With dlgSaveAs
       If .SelectedItems.Count = 0 Then
           MsgBox "Khong chon file nao."
           Exit Sub
       Else
           strFilePath = dlgSaveAs.SelectedItems(1)
           Me.txtsave = strFilePath
       End If
   End With

   strFileName = Right(strFilePath, Len(strFilePath) - InStrRev(strFilePath, "\"))
   strFilePath = Left(strFilePath, InStrRev(strFilePath, "\"))
   Dim sFile As String, oDB As DAO.Database
   sFile = txtsave & ".bak"

   If Dir(sFile) <> "" Then Kill sFile

   Set oDB = DBEngine.Workspaces(0).CreateDatabase(sFile, dbLangGeneral)
   oDB.Close
   DoCmd.Hourglass True

   Dim oTD As TableDef
   For Each oTD In CurrentDb.TableDefs
       If Left(oTD.Name, 4) <> "MSys" Then
           DoCmd.CopyObject sFile, , acTable, oTD.Name
       End If
   Next oTD

   DoCmd.Hourglass False

   MsgBox "Sao luu du lieu xong" 


• RE: Lỗi khi không chọn dữ liệu khi Save As 'Invalid procedure call or argument.'

  doandinhtam > 02-09-18, 09:48 AM

  Cám ơn bạn nhé
• Bài trước Bài tiếp