日韩天天综合网_野战两个奶头被亲到高潮_亚洲日韩欧美精品综合_av女人天堂污污污_视频一区**字幕无弹窗_国产亚洲欧美小视频_国内性爱精品在线免费视频_国产一级电影在线播放_日韩欧美内地福利_亚洲一二三不卡片区

當(dāng)Access文件大于指定的大小時(shí)就自動(dòng)壓縮_Access數(shù)據(jù)庫(kù)教程

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

推薦：Access數(shù)據(jù)庫(kù)安全的幾個(gè)問題
問題 1.什么是Microsoft Access 工作組，怎樣創(chuàng)建工作組信息文件？ 2.怎樣打開“工作組管理器“？ 3.怎樣允許他人查看或執(zhí)行查詢，但不能更改數(shù)據(jù)或查詢?cè)O(shè)計(jì)？ 4.怎樣防止

適用 ACCESS2000及以后版本

首先在公共模塊添加如下函數(shù)：

以下為引用的內(nèi)容：

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) ‘轉(zhuǎn)換文件大小為MB
If s > 20 Then ‘修改此處的20M為你自己需要的值
Application.SetOption ("Auto Compact"), 1 ‘壓縮程序
Else
Application.SetOption ("Auto Compact"), 0 ‘不壓縮程序
End If
End Function

在任何退出的程序前調(diào)用這個(gè)函數(shù)，例如在Docmd.Quit前調(diào)用：AutoCompactCurrentProject

分享：純編碼實(shí)現(xiàn)Access數(shù)據(jù)庫(kù)的建立或壓縮
以下為引用的內(nèi)容： <% '#######以下是一個(gè)類文件，下面的注解是調(diào)用類的方法################################################ '# 注意：如果系統(tǒng)

來源：模板無憂//所屬分類：Access數(shù)據(jù)庫(kù)教程/更新時(shí)間：2008-08-22
相關(guān)Access數(shù)據(jù)庫(kù)教程：