即効テクニック |
● 概要 ● 構文 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 ● 補足 ● 結果は[イミディエイト]ウィンドウに表示されます。