Option Compare Database 'dbfインポートFunction import_dbf() Dim Path As String Dim buf As String, f As Object Path = InputBox$("dbf格納フォルダ") buf = Dir(Path & "\*.dbf") Do While buf <> "" On Error GoTo Err_import_dbf Debug.Print (Path …

Option Compare Database Function alterFields() Dim cn As New ADODB.Connection Dim cmd As New ADODB.Command Dim sql As String Set cn = CurrentProject.Connection cmd.ActiveConnection = cn sql = "ALTER TABLE [テーブル名] ALTER COLUMN [カラム…