Category
Recent Entries
Search
Archive
Navigation
ホーム 戻る サイトマップ
Appeals
にわか日ハムファン友の会
Syndicate
RSS 1.0
Powered
Powered by blosxom 2.1.2

[Access] 全てのオブジェクトをテキストとして保存する。

転ばぬ先の杖程度。


'----------------------------------------------------------------------
'   Sub : gsub_SaveAsText
'         全てのオブジェクトをテキストとして保存する
'         復旧にはLoadFromTextを用いる
'         例) LoadFromText acDataAccessPage, "", "ファイルパス"
'----------------------------------------------------------------------
Public Sub gsub_SaveAsText()
    Dim obj     As Object
    Dim i       As Long
    Dim strDir  As String
    Dim strName As String
    Dim tdf     As TableDef
    Dim qdf     As QueryDef
On Error Resume Next

    strDir = CurrentProject.Path & "\SaveAsText\"
    If (PathIsDirectory(strDir) = False) Then
        MkDir strDir
    End If

'---< TABLE >
    SaveAsText acDataAccessPage, "", strDir & "Tables" & gcntExtensionTxt
'---< QUERY >
    For Each qdf In CurrentDb.QueryDefs
        strName = qdf.Name
        If Not (Left(strName, 1) = "~") Then
            SysCmd acSysCmdSetStatus, strName & " Exporting..."
            SaveAsText acQuery, strName, strDir & strName & gcntExtensionTxt
        End If
    Next qdf
'---< FORM >
    For i = 0 To CurrentProject.AllForms.Count - 1
        strName = CurrentProject.AllForms(i).Name
        SysCmd acSysCmdSetStatus, strName & " Exporting..."
        SaveAsText acForm, strName, strDir & strName & gcntExtensionTxt
    Next i
'---< REPORT >
    For i = 0 To CurrentProject.AllReports.Count - 1
        strName = CurrentProject.AllReports(i).Name
        SysCmd acSysCmdSetStatus, strName & " Exporting..."
        SaveAsText acReport, strName, strDir & strName & gcntExtensionTxt
    Next i
'---< MACRO >
    For i = 0 To CurrentProject.AllMacros.Count - 1
        strName = CurrentProject.AllMacros(i).Name
        SysCmd acSysCmdSetStatus, strName & " Exporting..."
        SaveAsText acMacro, strName, strDir & strName & gcntExtensionTxt
    Next i
'---< MODULE >
    For i = 0 To CurrentProject.AllModules.Count - 1
        strName = CurrentProject.AllModules(i).Name
        SysCmd acSysCmdSetStatus, strName & " Exporting..."
        SaveAsText acModule, strName, strDir & strName & gcntExtensionTxt
    Next i

'---< END >
    MsgBox "Done.", vbInformation

End Sub

前の記事:[Access] データベースウィンドウ非表示
記事のトップへ次の記事:[断食] 時間をフル活用していきます(8)

Recent entries from same category

  1. [Access] データベースウィンドウ非表示
  2. [Access] 半角全角混じりの文字列をぴったり60Byteに揃える
  3. [Access] Microsoft Office Service Pack URL
  4. [Access] 値が入力されているかを調べる
  5. [Access] テーブルを削除する
  6. [Access] テーブルが存在するか調べる
  7. [Access] サブフォームのレコードソースを切り替える
  8. [Access] 入力にズームボックスを利用する