Access VBA のテキストボックスの記載について

テキストボックスT1の「更新後処理」イベントプロシージャに

Private Sub T1_AfterUpdate()
If Nz(me.T1,0)=0 then
msgbox "年齢が入力されていません。"
End If
End Sub

で如何でしょう。

ただし、「0歳」の入力もOKにするなら、
Private Sub T1_AfterUpdate()
If Nz(me.T1,"")="" then
msgbox "年齢が入力されていません。"
End If
End Sub

本当は、もう少し入力値のエラートラップをかけるほうが良いのですが．．．

投稿日時 - 2007-11-05 20:44:53

Private Sub T1_LostFocus()
　　If Not Len(Trim(Me.T1 & "")) Then
　　　　MsgBox "年齢が入力されていません。"
　　End If
End Sub

投稿日時 - 2007-11-05 08:46:25

> If IsNull(Me!Nenrei) Then
> 　　MsgBox "年齢が入力されていません。"
> End If
> 上記の通り、IsNullを使ってもうまくできません・・・・

どのイベントに書きましたか？

投稿日時 - 2007-11-04 20:54:18

Accessでは、通常の「空欄」は、「Null」に該当しますので、IsNull関数を使用します。
また、テキストボックスがNullかどうかを見る場合は、コントロールソースではなく
テキストボックス自体を参照します。
(「Me」で参照できるのは、フォームの、コントロールとプロパティ)

If IsNull(Me!Nenrei) Then
　　MsgBox "年齢が入力されていません。"
End If

投稿日時 - 2007-11-04 10:25:04