uso

雑記いろいろ
★書いてある内容に保証は一切ありません。
 ご自身で判断をしてください。

広告

※このエリアは、60日間投稿が無い場合に表示されます。記事を投稿すると、表示されなくなります。

[util]access grep

2013-02-19 11:42:18 | util

こちらのサイトを。

参考:http://rope0419.blog19.fc2.com/blog-entry-114.html

便利w。


'Grep機能(見積もり用)
Public Function AllGrep() As Long

Dim obj As Object
Dim i As Long
Dim sDir As String
Dim sName As String
Dim tdf As TableDef
Dim qdf As QueryDef
Dim sExt As String

'拡張子とか
sExt = ".txt"
sDir = CurrentProject.Path & "\ObjectsText\"

'<< *** TABLE *** >>
SaveAsText acDataAccessPage, "", sDir & "Tables" & sExt

'<< *** QUERY *** >>
For Each qdf In CurrentDb.QueryDefs
sName = qdf.Name
If Not (Left(sName, 1) = "~") Then
SaveAsText acQuery, sName, sDir & sName & sExt
End If
Next qdf

'<< *** MODULE *** >>
For i = 0 To CurrentProject.AllModules.Count - 1
sName = CurrentProject.AllModules(i).Name
SaveAsText acModule, sName, sDir & sName & sExt
Next i

'<< *** FORM *** >>
For i = 0 To CurrentProject.AllForms.Count - 1
sName = CurrentProject.AllForms(i).Name
SaveAsText acForm, sName, sDir & sName & sExt
Next i

'<< *** MACRO *** >>
For i = 0 To CurrentProject.AllMacros.Count - 1
sName = CurrentProject.AllMacros(i).Name
SaveAsText acMacro, sName, sDir & sName & sExt
Next i

'<< *** REPORT *** >>
For i = 0 To CurrentProject.AllReports.Count - 1
sName = CurrentProject.AllReports(i).Name
SaveAsText acReport, sName, sDir & sName & sExt
Next i

'<< *** END *** >>

MsgBox "オワタ", vbInformation

End Function




コメント
この記事をはてなブックマークに追加