Problem with code builder.

[Riaang]

Hi all,

I have the following code builder. It seems to work fine but I want the cursor to go back to the Letter Posted field after you press OK on the error message box.

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."

End If
End Sub

Any will be appreciated.

 

[Philem]

Hullo. Try this:

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

HTH

P

 

[Riaang]

Thanks a lot, it took me almost a day to try and get this right.

 

[Riaang]

Just a stupid question that I seem to struggle a lot with.

How do I change this code to instead of saying = N/A it must show the message when this field is blank.

Reason__Letter_Not_Posted_ = "N/A" it must

Thanks again