onLost focus 이벤트가 작동하지 않습니다. -ms access

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로 평가되는() - 예,이-않은 직관적이지만 널 비교할 때마다 결과가 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은 널의

편집을 처리 할 수 ​​ 데이비드-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) 문자열을 연결하고, 조합 식의 문자 길이가 제로의 여부를 참조하십시오. 당신이 하나 이상의 공백 문자가 포함 된 경우 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 

은 트림() 함수를 포함한다.

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