Pop-up Error Messages

[rbaxter]

Does anyone know how to generate a pop-up message when exiting a form
if 'txtFieldA' is left blank (""), that reads:

"Please fill in txtFieldA."

Thank

 

[Bob Phillips]

Best to have a button for exiting so that you can control it. The code
behind the button would be something like

Private Sub cmdExit_Click()

If txtFieldA.Text = "" Then
MsgBox "Must input this field"
With txtFieldA
.SelStart = 1
.SetFocus
End With
Else
Me.Hide
End If

End Sub

--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

 

[rbaxter]

thank

 

[Arne]

You could use the Userform_QueryClose event, which is
fired when the form is closed.