當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數據庫教程：