HOME > 即効テクニック > AccessVBA > 日付・文字列操作・演算 > 文字列の一部を取得する

即効テクニック

日付・文字列操作・演算

文字列の一部を取得する

(Access 2000/2002)
● 概要 ●
構文 MID(フィールド, 開始位置[, 取得する文字数])

MID関数を使用して、指定したフィールドから指定した位置にある文字列を取得します。
取得する文字数を省略した場合、または指定したフィールドが取得する文字数より短い文字列の場合、開始位置以降のすべての文字列が取り出されます。
MID関数は、指定したフィールドの値がNULL値の場合、NULL値を返します。


● サンプル ●
'文字列の一部を取得する
Public Sub Sample()

    Dim myDB As Database
    Dim myRS As DAO.Recordset
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT 部署名,MID(部署名,3,4) " & _
            "FROM 部署テーブル WHERE 部署コード=60;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLステートメントを実行してレコードセットを開く
    Set myRS = myDB.OpenRecordset(mySQL, dbOpenDynaset)
    'レコードセットの内容を表示する
    MsgBox "切り取り前:" & myRS(0) & vbCrLf & "切り取り後: " & myRS(1)
    'レコードセットを閉じる
    myRS.Close

End Sub


● 補足 ●
結果は、メッセージダイアログに表示されます。