2014-09-01から1ヶ月間の記事一覧
Public Sub tensou() On Error GoTo E Dim myDB As Database Dim myTD As TableDef 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.TableDefs '別ファイルのテーブル名からデ…
Public Sub tensou() On Error GoTo E Dim myDB As Database Dim myTD As TableDef 'カレントデータベースを変数に代入する Set myDB = CurrentDb 'データベース内のテーブル名前を表示する For Each myTD In myDB.TableDefs '別ファイルのテーブル名からデ…