Sub GetFieldName() Dim db As DAO.Database Dim fld As DAO.Field Dim tbl As DAO.TableDef ' 正規表現パターンを生成 Set RegExp = New VBScript_RegExp_55.RegExp RegExp.Pattern = "^在庫_20[0-1][\d][01][\d][0-3][\d]$" Set db = CurrentDb For Each t…

VisualBasicEditorのツール(T) 参照設定(R) 「Microsoft VBScript Regular Expressions 5.5」にチェック

Sub GetFieldName() Dim db As DAO.Database Dim fld As DAO.Field Dim tbl As DAO.TableDef Set db = CurrentDb For Each tbl In db.TableDefs ' テーブル名出力 Debug.Print tbl.Name For Each fld In tbl.Fields ' フィールド名出力 Debug.Print " "; fld…