Keep Focus? 1

[Wrecker]

In the Lost focus property of a combo box I placed an if statment to check for text, and if no text is found, a msgbox "Must Select Name" appears. The problem is after the code runs, the focus goes to the next textbox in the tab order. I need the focus to remain in the combo box so the user can input the "Name" . Not sure where Im going wrong.
Here is the code im using:

If Me.Ins__.Text = "" Then
MsgBox "Must Select Name"
Me.Ins__.SetFocus
Exit Sub
End If

Thanks
Wrecker

 

[KenReay]

Hi

Try putting your code in the after update event

Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[Wrecker]

No good.. There is no update if the user tries to leave the combo box empty and then exit.

Thanks
Wrecker

 

[VicM]

Wrecker:

If you make the control source for Ins_ a required field in the underlying table, the database will automatically issue an error and leave the cursor in the box.

Hope this helps

Vic

 

[KenReay]

Hi

You said it just before me VicM Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK

 

[Terpsfan]

If you want another way of dealing with null fields. This will work on any form, because it's using a class module. I place the word Required in the tag property of the control that is required. Make a class module like this:

Public Function ValidateData(frm As Form) As String

Dim ctl As Control
For Each ctl In frm.Controls

If (TypeOf ctl Is TextBox Or TypeOf ctl Is ComboBox) And ctl.Tag = "Required" Then
If IsNull(ctl) Then
MsgBox "You need to enter data here."
ctl.SetFocus
End If
End If
Next ctl
End Function

And in the form's before update event do this:
Call ValidateData(Me)

 

[KenReay]

Hi Omega36

Neat, have a star Regards

Ken Reay
Freelance Solutions Developer
Boldon Information Systems Ltd
Website needs upgrading, but for now -

http://www.kenneth.reay.btinternet.co.uk

UK