dim SQL as String
dim rs As Recordset
SQL = " SELECT MID(フィールド名,取り出す位置,文字数) FROM テーブル名 "
又は、
SQL = " SELECT MID(フィールド名,取り出す位置,文字数) AS 名前 FROM テーブル名 "
Set rs = CurrentDb.OpenRecordset(SQL)
MID(フィールド名,2,4)にした場合、
「年賀はがきにミッキー」の場合、「賀はがき」になります。
MID(フィールド名,3,1)にした場合、
「ブログつながり」の場合、「グ」になります。