もう、DoCmd.CopyObjectでテーブルがコピーできることがわかっているので、
問題は、空のＭＤＢファイルを作ることだけです。
えっと、まずプログラム書く前に、
苦手な参照設定をイタズラします。
モジュールの編集画面のメニューから、
ツールの参照設定を選択します。
↑参考画面
その中から、
MicroSoft ADO Ext 2.5 for DDl〜を選択します
※ADO Ext 2.7など、環境によって違います
~~~~~~~~~~~~~~~~~
↑参考画面
ざっと書いちゃうと、
Private Sub コマンド0_Click()
Dim catTest As New ADOX.Catalog
Dim strConnect As String
Dim strDBNAME As String
strDBNAME = "D:\Backup\試作.mdb" 'バックアップ先のMdb
If MsgBox("テーブルデータをバックアップしますか？", _
vbYesNo + vbQuestion) = vbNo Then
Exit Sub 'NOの時抜ける
End If
If Dir(strDBNAME) <> "" Then 'ファイルが存在したら消す
Kill strDBNAME
End If
'データベースの新規作成
' ADOコネクション文字列の指定
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
' データベースの作成 名前を指定する
catTest.Create strConnect & strDBNAME
' データベースを閉じる
Set catTest = Nothing
'テーブルのコピーテーブル数分書くのが簡単
DoCmd.CopyObject strDBNAME, , acTable, "テーブルＡ"
DoCmd.CopyObject strDBNAME, , acTable, "テーブルＢ"
'
MsgBox strDBNAME & "にバックアップしました"
End Sub
こんな感じです。
参照設定は
Dim catTest As New ADOX.Catalog
を使いたかったからです、実際に使うところは少し待っててもらって、
前準備から説明を開始します。
If MsgBox("テーブルデータをバックアップしますか？", _
vbYesNo + vbQuestion) = vbNo Then
Exit Sub 'NOの時抜ける
End If
普通のＹｅｓ／ＮＯの確認なんだけど、
私と違って、チャント書いてます。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
えっ、どこが？
vbYesNo + vbQuestionのとこかな。
メッセージボックスには種類があって（音と表示が違って）
vbCritical 警告メッセージ アイコンを表示します。
vbQuestion 問い合わせメッセージ アイコンを表示します。
vbExclamation 注意メッセージ アイコンを表示します。
vbInformation 情報メッセージ アイコンを表示します。
なんてのが、あったんですね。
Sub aaa()
MsgBox "XXXXX", vbYesNo + vbCritical
MsgBox "XXXXX", vbYesNo + vbQuestion
MsgBox "XXXXX", vbYesNo + vbExclamation
MsgBox "XXXXX", vbYesNo + vbInformation
End Sub
↑参考画面
その中から、
MicroSoft ADO Ext 2.5 for DDl〜を選択します
※ADO Ext 2.7など、環境によって違います
~~~~~~~~~~~~~~~~~
↑参考画面
ざっと書いちゃうと、