• @知識の歪 [428]
  • 野球を見ようか [308]
    • 2004年 シーズン [6]
    • 2005年 開幕前 [10]
    • 2005年 前半戦 [37]
    • 2006年 開幕前 [16]
    • 2006年 前半戦 [88]
    • 2006年 後半戦 [10]
    • 2007年 前半戦 [84]
    • 2009年 シーズン [5]
  • 日記っぽいもの [15]
  • 断食してみた [19]
  • テキトーに園芸 [16]
  • 伯耆流居合兵法 [4]
  • 風景写真とか [11]
    • 野球の風景 [6]
    • 廃墟の風景 [1]
    • 季節の風景 [1]
    • スライドショー [3]
  • 放射化学か？ [4]
  • 技術的なメモ [51]
    • Access [11]
    • Blosxom [37]
    • GTD [1]
    • 手帳 [1]
    • Windows [1]

• [手帳] MOLESKINE + ONBOOK
• [居合] 姿勢について
• [園芸] やっとこ収穫してみた。
• [居合] 板につくために。
• [園芸] パセリを再セットアップ。
• [園芸] 昼間の光の下で見たい成長っぷり。
• [園芸] 秋らしくなってきたが、野菜は育つ。

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

posted at 2009-09-30(Wed) 21:30 in 技術的なメモ::Access [Edit]

転ばぬ先の杖程度。

'----------------------------------------------------------------------
'   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