Looking for blank fields

[Riaang]

Hi all,

How can I change the following code so that it looks for all entries that are blank. eg in this code the Reason__letter_not_Posted = n/a. I want to change it to blanks or empty

Private Sub Reason__Letter_Not_Posted__Exit(Cancel As Integer)
If Letter_Posted = "No" And Reason__Letter_Not_Posted_ = "N/A" Then
MsgBox "Please supply a valid reason for not posting this letter."
Me.Letter_Posted.SetFocus
End If
End Sub

Thanks a lot

 

[dk]

Hi all,

How can I change the following code so that it looks for all entries that are blank. eg in this code the Reason__letter_not_Posted = n/a. I want to change it to blanks or empty

Private Sub Reason__Letter_Not_Posted__Exit(Cancel As Integer)
If Letter_Posted = "No" And Reason__Letter_Not_Posted_ = "N/A" Then
MsgBox "Please supply a valid reason for not posting this letter."
Me.Letter_Posted.SetFocus
End If
End Sub

Thanks a lot

Hi,

Try this:-

If Letter_Posted = "No" And Len(Reason__Letter_Not_Posted_)=0 Then
.....

 

[Riaang]

Thanks for the reply but this only works when there is a 0 in the field. It still doesn't work when the field is empty.

Regards

 

[dk]

My apologies I didn't test it. This seems to work OK:-

If Letter_Posted = "No" And (IsEmpty(Reason_Letter_Not_Posted_) Or Len(Reason__Letter_Not_Posted_) = 0) Then

 

[Riaang]

Hi,

This is my code. I copied watever you gave me and it still does not work. Maybe I'm overlooking something

Private Sub Reason__Letter_Not_Posted__Exit(Cancel As Integer)
If Letter_Posted = "No" And (IsEmpty(Reason__Letter_Not_Posted_) Or Len(Reason__Letter_Not_Posted_) = 0) Then
MsgBox "Please supply a valid reason for not posting this letter."
Me.Letter_Posted.SetFocus
End If
End Sub

Thanks for your help.