正規表現をつかってみる

Windows Access VBA 
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 tbl In db.TableDefs
    
    If RegExp.test(tbl.Name) Then
      ' テーブル名出力
      Debug.Print tbl.Name

      For Each fld In tbl.Fields
        ' フィールド名出力
        Debug.Print " "; fld.Name
      Next fld
    End If
  Next tbl
End Sub

参考