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

Hỏi - Xóa file Access đang dùng

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Hỏi - Xóa file Access đang dùng
• Hỏi - Xóa file Access đang dùng

• Hỏi - Xóa file Access đang dùng

  toidjtjmtoi > 08-05-20, 02:14 PM

  Có nút nào nhấn vào sẽ xóa luôn file access ko nhỉ 

• RE: Hỏi - Xóa file Access đang dùng

  maidinhdan > 08-05-20, 04:03 PM

  (08-05-20, 02:14 PM)toidjtjmtoi Đã viết: Có nút nào nhấn vào sẽ xóa luôn file access ko nhỉ 

  
  from Admin: tôi tách thành chủ đề riêng để trả lời bạn.
  
  Access không thể tự xóa chính mình ..các dụng dụng tương tự khác cũng thể, bởi nó phải chạy đoạn lệnh, nếu xóa rồi làm sao chạy.
  
  Ở đây tôi xin đưa ra 2 tình huống để các bạn tham khảo.
  1. Xóa file Access khác thì được:
  

  Mã PHP:

  Public Sub XoaFileKhac()  'Thuoc Modules: basThaotacfile
'Chen cac Thu tuc cua ban o day: Neu nhan nhieu lan Nho la doi ten TenSubCanTao
    Dim FSO As Object, objFile As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = FSO.GetFile("D:\TenFileCanXoa.mdb")
    objFile.Delete
    Set objFile = nothing

End Sub 


  
  Hoặc dùng hàm sau cũng được:
  

  Mã PHP:

  Sub XoaFile(ByVal LinkFile As String)
  If FileExists(LinkFile) Then 'Kiểm tra File có tồn tại không      
      SetAttr LinkFile, vbNormal          
      'Xoa file
      Kill LinkFile
  End If
End Sub 


  
  2. Xóa file Access của chính nó: Công việc này phải dùng 1 file tạm khác
  Có 2 cách(dùng 1 trong 2 cách sau đây):
  2.1. Viết sẳn 1 file có chứa hàm Xóa file khác phía trên và cho nó chạy ở sự kiện Load ứng dụng lên. và chèn lệnh xóa file đang dùng; ở giai đoạn này bạn sẽ cho chạy hàm mở file tạm và thoát file đang dùng
  2.2. Sử dụng lệnh cmd để tương tác xóa file.
  - Ra lệnh chạy xóa file bằng cmd
  - Thoát access đang làm việc: tự viết
  
  Hàm Xóa file băng cmd:
  

  Mã PHP:

  Function cmdXoaFile()
    Dim oShell, oExec As Variant, LinkFile As String
    Set oShell = CreateObject("WScript.Shell")
    LinkFile = CurrentProject.path & "\" & CurrentProject.Name
    Set oExec = oShell.Exec("DEL " & Chr(34) & LinkFile & Chr(34) & " /F ", vbHide)
End Function 


  
  * Tôi chỉ hỗ trợ viết và đưa ra phương pháp, cụ thể tự viết để phù hợp với bản thân.
  
  Thân mến!

• RE: Hỏi - Xóa file Access đang dùng

  tranthanhan1962 > 08-05-20, 05:01 PM

  Có! Dễ ẹt! Đóng file lại, chọn nó, tìm trên bàn phiếm thấy nút nào có chữ đe - le - te, ấn một cái. Xong.
  Còn nếu có suy nghĩ đang mở file file access rồi làm một nút tự xóa nó thì quên đi. Bây giờ mở môt file bất kỳ rồi xóa nó thử xem windows có cự lại không? Nguyên tắc một file đang open là bất khả xâm phạm, còn làm một  tự nút xóa nó, giống như tự vận là không được

• RE: Hỏi - Xóa file Access đang dùng

  Xuân Thanh > 08-05-20, 05:16 PM

  Không ai có thể tự nắm lấy đầu mình để lôi đi được trừ phi có người khác hỗ trợ
• Bài trước Bài tiếp