Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

返回列表 發(fā)新帖
查看: 5156|回復(fù): 5
打印 上一主題 下一主題

[與其它組件] 如何壓縮正在使用的數(shù)據(jù)庫(kù)

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
1#
發(fā)表于 2004-6-10 20:54:00 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
如何壓縮正在使用的數(shù)據(jù)庫(kù)

老是提示正在使用
分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享分享 分享淘帖 訂閱訂閱
2#
發(fā)表于 2004-6-11 19:10:00 | 只看該作者
必須先斷開(kāi)或關(guān)閉使有的數(shù)據(jù)庫(kù)方可進(jìn)行
3#
發(fā)表于 2004-6-11 19:33:00 | 只看該作者
用批處理命令,很好用的,而且在運(yùn)行時(shí)也可保存。如我要將E:\mydocu~1\access\公司管理系統(tǒng)\辦公室目錄下的所有文件備份到E:\文件備份\公司管理系統(tǒng)\辦公室\ 目錄下。

xcopy E:\mydocu~1\access\公司管理系統(tǒng)\辦公室\* E:\文件備份\公司管理系統(tǒng)\辦公室\  /s /y /d

[此貼子已經(jīng)被作者于2004-6-11 11:34:55編輯過(guò)]

4#
發(fā)表于 2004-6-11 19:37:00 | 只看該作者
對(duì)不起,搞錯(cuò)了。[em04]

點(diǎn)擊這里給我發(fā)消息

5#
發(fā)表于 2004-6-11 20:26:00 | 只看該作者
站長(zhǎng)的函數(shù)

Function Compact()

  With CommandBars.Add(, msoBarFloating, , True)

   Const CompactId As Long = 2071



   .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).Id

   DoEvents

   .Visible = True

   .Controls(1).SetFocus

   SendKeys "{ENTER}" '模擬擊鍵壓縮

  End With

End Function





李嘯林 修改,可以適合97與XP,我沒(méi)有安裝過(guò)ACCESS 2000,希望你們能給我補(bǔ)上。



Dim ref As Reference

Dim i As Byte



Set ref = References!Access



'我不用Application.Vertion是由于,這個(gè)屬性在Access 97中不存在。

Select Case ref.Major

 Case 8: i = 6 'Access 97

 Case 9: i = 7 'Access XP

Case Else

 MsgBox "未知版本,無(wú)法使用此功能"

 Exit Sub

End Select



 With CommandBars.Add(, msoBarFloating, , True)

  

   .Controls.Add msoControlButton, CommandBars("Tools").Controls(i).CommandBar.Controls(2).Id

   DoEvents

   .Visible = True

   .Controls(1).SetFocus

   SendKeys "{ENTER}" '模擬擊鍵壓縮

  End With

6#
發(fā)表于 2006-1-14 20:46:00 | 只看該作者
試用了下,發(fā)現(xiàn)出錯(cuò)了
您需要登錄后才可以回帖 登錄 | 注冊(cè)

本版積分規(guī)則

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-13 08:21 , Processed in 0.188631 second(s), 29 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回復(fù) 返回頂部 返回列表