-PR-
締切り
済み

access97について

  • 暇なときにでも
  • 質問No.938
  • 閲覧数132
  • ありがとう数8
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 56% (98/174)

access97について質問させていただきます。データベースを開くと、ツールのデータベースユーティリティーから最適化が選べるようになっていますが、これをツールバーから選ばずに、フォームのボタンをクリックする事によって実行させる事は可能でしょうか?なお、OSはWIN95を利用しています。よろしくお願い致します。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全1件)

  • 回答No.1
レベル1

ベストアンサー率 0% (0/0)

SendKeys を使って、メニューを呼び出す方法が簡単です。 修復: SendKeys "%TDR" 最適化: SendKeys "%TDC" 現MDBと異なるものを最適化する場合は、 下記 OptimizeDB_Remote にファイルパスを渡します。 Public Function OptimizeDB_Remote(strDbPath As ...続きを読む
SendKeys を使って、メニューを呼び出す方法が簡単です。
修復: SendKeys "%TDR"
最適化: SendKeys "%TDC"

現MDBと異なるものを最適化する場合は、
下記 OptimizeDB_Remote にファイルパスを渡します。

Public Function OptimizeDB_Remote(strDbPath As String)
On Error GoTo Err_OptimizeDB_Remote
' 最適化後のデータベースと同じ名前のファイルが
' 存在していないことを確認
If Dir("_tmp_.mdb") <> "" Then _
Sub_FileDelete "_tmp_.mdb"
DBEngine.CompactDatabase strDbPath, "_tmp_.mdb"
Sub_FileDelete strDbPath
FileCopy "_tmp_.mdb", strDbPath
Sub_FileDelete "_tmp_.mdb"
Exit_OptimizeDB_Remote:
Exit Function
Err_OptimizeDB_Remote:
MsgBox Err.Description
Resume Exit_OptimizeDB_Remote
End Function
Sub Sub_FileDelete(str As String)
On Error GoTo Err_Sub_FileDelete
Kill str
Exit_Sub_FileDelete:
Exit Sub
Err_Sub_FileDelete:
MsgBox Err.Description
Resume Exit_Sub_FileDelete
End Sub


このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ