onLost focusイベントが動作していません-msアクセス

Question

このコードは機能しません。誰か助けてくれますか？

Private Sub txtErrorComment_5_LostFocus() 

    If IsEmpty(Me.txtErrorComment_5) Then 
     MsgBox "Eh..! It cannot be Empty." 
    End If 

End Sub 

Answer 1

txtErrorComment_5はおそらくヌルである - のisEmpty（を介して実行する場合はFalseと評価された） - はい、これは非直感的ですが、あなたはNullに比較したときに、結果はfalseです。

次のことを試してみてください。

Private Sub txtErrorComment_5_LostFocus() 

    If IsEmpty(Me.txtErrorComment_5) or IsNull(Me.txtErrorComment_5) Then 
     MsgBox "Eh..! It cannot be Empty." 
    End If 

End Sub 

それとも：

Private Sub txtErrorComment_5_LostFocus() 

    If IsNull(Me.txtErrorComment_5) Then 
     MsgBox "Eh..! It cannot be Empty." 
    End If 

End Sub 

のIsNullがnullの

編集を処理することができます：デビッド・W・フェントン@

は正しいです。

Private Sub txtErrorComment_5_BeforeUpdate(Cancel As Integer) 

    If IsNull(Me.txtErrorComment_5) Then 
     MsgBox "Eh..! It cannot be Empty." 
     Cancel=true 
    End If 

End Sub 

Answer 2

がtxtErrorComment_5がブランクであるかどうかを検出するために、こののBeforeUpdate（ないのLostFocus）を行うには良い方法は、その値にnull文字列を連結し、組み合わせ式の文字の長さがゼロであるかどうかを参照してください。

Private Sub txtErrorComment_5_LostFocus() 
    If Len(Me.txtErrorComment_5 & vbNullString) = 0 Then 
     MsgBox "Eh..! It cannot be Empty." 
    End If 
End Sub 

あなたはそれだけで一つ以上の空白文字が含まれている場合txtErrorComment_5は空白として扱わたい場合は、トリム（）関数が含まれます。

Private Sub txtErrorComment_5_LostFocus() 
    If Len(Trim(Me.txtErrorComment_5) & vbNullString) = 0 Then 
     MsgBox "Eh..! It cannot be Empty." 
    End If 
End Sub