• @知識の歪 [428]
  • 野球を見ようか [308]
    • 2004年 シーズン [6]
    • 2005年 開幕前 [10]
    • 2005年 前半戦 [37]
    • 2006年 開幕前 [16]
    • 2006年 前半戦 [88]
    • 2006年 後半戦 [10]
    • 2007年 前半戦 [84]
    • 2009年 シーズン [5]
  • 日記っぽいもの [15]
  • 断食してみた [19]
  • テキトーに園芸 [16]
  • 伯耆流居合兵法 [4]
  • 風景写真とか [11]
    • 野球の風景 [6]
    • 廃墟の風景 [1]
    • 季節の風景 [1]
    • スライドショー [3]
  • 放射化学か？ [4]
  • 技術的なメモ [51]
    • Access [11]
    • Blosxom [37]
    • GTD [1]
    • 手帳 [1]
    • Windows [1]

• [手帳] MOLESKINE + ONBOOK
• [居合] 姿勢について
• [園芸] やっとこ収穫してみた。
• [居合] 板につくために。
• [園芸] パセリを再セットアップ。
• [園芸] 昼間の光の下で見たい成長っぷり。
• [園芸] 秋らしくなってきたが、野菜は育つ。

[Access] 値が入力されているかを調べる

posted at 2007-05-15(Tue) 10:00 in 技術的なメモ::Access [Edit]

人の目には同じような空のコントロール、あるいはフィールドに見えても、 実際にはNull、Empty、ゼロ桁文字列などの別の値が格納されていることがある。 フォーム上で省略不能項目のチェックを行ったり、レコードセット上で値の有無をチェックしたいとき、 汎用の関数を定義していると便利だ。
以下の関数を定義し、「gfnc_value(調べたい値 or コントロール名)=True」なら何か値が入力されている。

'--------------------------------------------------
'   Function : gfnc_Value
'              入力チェック
'              varValue   : 処理文字列
'--------------------------------------------------
Public Function gfnc_Value(ByVal varValue As Variant) As Boolean

    If (IsEmpty(varValue) = True) Then
        Exit Function
    End If
    If (IsNull(varValue)) Then
        Exit Function
    End If
    If (varValue = vbNullString) Then
        Exit Function
    End If
    If (StrComp(varValue, "") = 0) Then
        Exit Function
    End If

'---< CHECK OK >
    gfnc_Value = True

End Function

vbNullStringについての判別は、StrCompを用いた「""(ゼロ桁文字列)」の判別より前におくべきである(2007-05-15修正)。 でないと、InputBoxでキャンセルした返り値で実行時エラー5が発生する。 InputBoxの返り値は空でOKしたものもキャンセルで回避したものもvbNullStringと判断されるが、 これを区別する場合にはStrPtr関数を使う。