Clear Field Upon Msg Box Click

[Scarlet via AccessMonster.com]

Good Day,

I presently have a set of code where if the conditions are not met as
specified a text box pops up informing the user of this error. I would like
the text box ( txtDeed ) to reset once they click the ok of the msg box..
....Seems simple enough I know, though I am still relatively new to
programming, thanks!!!

Dim iResponse As Integer


If gstRCode <> Left(txtDeed.Text, 2) Then
iResponse = MsgBox("Resort Code & Deed Inventory Code Must Match", vbOKOnly +
vbCritical, "Deed & Resort Do Not Match")

End If
End Sub

 

[Svetlana]

You could add to your code:
Me.txtDeed.SetFocus
Me.txtDeed=Null

 

[Barry Gilbert]

Scarlet,
Put your code in the textbox's BeforeUpdate event. After your msgbox, put:
Cancel=True

This will cancel the update of the textbox.

Barry

 

[Scarlet via AccessMonster.com]

Works perfectly, many thanks.

You could add to your code:
Me.txtDeed.SetFocus
Me.txtDeed=Null

 

[Scarlet via AccessMonster.com]

Thanks Barry, got it working!!

Scarlet,
Put your code in the textbox's BeforeUpdate event. After your msgbox, put:
Cancel=True

This will cancel the update of the textbox.

Barry

Good Day,

[quoted text clipped - 12 lines]

End If
End Sub