MS Accessのmodulesをソース管理する方法２ - osacaz4の日記MS Accessのソース管理つづき 前回Exportまで書いたので今回はImportから。 私はこの方法でソース管理にSubversionを使った。 Import用ソース 'インポート Public Function ImportDBObjects() As Boolean On Error GoTo Err_ImportDBObjects Dim FSO As FileSystemObject Dim f, g, cnt As Long Dim appAccess As Access.Application Dim rtnText As String '入力ボックスの戻り値 Dim dbName As String Dim rc As Long rtnText = InputBox("インポートを開始します。", "DB名を入力", ".mdb") '入力されなければ処理をしない If
