HOME > 即効テクニック > AccessVBA > 日付・文字列操作・演算 > NULL値を置換して選択する

即効テクニック

日付・文字列操作・演算

NULL値を置換して選択する

(Access 2000/2002)
● 概要 ●

構文 NZ(フィールド, 値)


NZ関数を使用して、フィールドの値がNULL値の場合に指定した値に変換します。
NZ関数は指定したフィールドの値がNULL値でない場合、フィールドの値をそのまま返します。
サンプルでは、「社員テーブル」の「職種」がNULL値の場合、フィールドの値を「平社員」に置換して検索します。


● サンプル ●
'NULL値を置換して選択する
Public Sub Sample()

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

    'SQLステートメントを定義する
    mySQL = " SELECT 社員コード,名前,NZ(職種,'平社員') FROM 社員テーブル ;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLステートメントを実行してレコードセットを開く
    Set myRS = myDB.OpenRecordset(mySQL, dbOpenDynaset)
    'レコードセットの内容を表示する
    Do Until myRS.EOF
        Debug.Print myRS(0) & " " & myRS(1) & " " & myRS(2)
        myRS.MoveNext
    Loop
    'レコードセットを閉じる
    myRS.Close

End Sub


● 補足 ●
結果は[イミディエイト]ウィンドウに表示されます。