onLost焦点事件不起作用-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运行的计算结果为假（） - 是的，这是联合国直观，但每当你比较空，结果是假的。

尝试以下操作：

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可以处理空的

编辑：

@大卫-W-Fenton法是正确的。更好的方式来做到这一点更新前（未引发LostFocus）

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是否是空白的，连接一个空字符串到它的值，看看联合表达的字符长度是否为零。

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视为空白，包括TRIM（）函数。

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