當Access文件大于指定的大小時就自動壓縮_Access數據庫教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:Access數據庫安全的幾個問題
      問題 1.什么是Microsoft Access 工作組,怎樣創建工作組信息文件? 2.怎樣打開“工作組管理器“? 3.怎樣允許他人查看或執行查詢,但不能更改數據或查詢設計? 4.怎樣防止

      適用 ACCESS2000及以后版本

      首先在公共模塊添加如下函數:

      以下為引用的內容:

      Public Function AutoCompactCurrentProject()
      Dim fs, f, s, filespec
      Dim strProjectPath As String, strProjectName As String
      strProjectPath = Application.CurrentProject.Path
      strProjectName = Application.CurrentProject.Name
      filespec = strProjectPath & "\" & strProjectName
      Set fs = CreateObject("Scripting.FileSystemObject")
      Set f = fs.GetFile(filespec)
      s = CLng(f.Size / 1000000) ‘轉換文件大小為MB
      If s > 20 Then ‘修改此處的20M為你自己需要的值
      Application.SetOption ("Auto Compact"), 1 ‘壓縮程序
      Else
      Application.SetOption ("Auto Compact"), 0 ‘不壓縮程序
      End If
      End Function

      在任何退出的程序前調用這個函數,例如在Docmd.Quit前調用:AutoCompactCurrentProject

      分享:純編碼實現Access數據庫的建立或壓縮
      以下為引用的內容: <% '#######以下是一個類文件,下面的注解是調用類的方法################################################ '# 注意:如果系統

      來源:模板無憂//所屬分類:Access數據庫教程/更新時間:2008-08-22
      相關Access數據庫教程