Making Combo box in form required

[thrilliam]

I have two tables and one form

My form has a combobox "customer name" which pulls its info from table 2 named "customers" when selecting the customer name in the combo it updates the field customer in table one. How can I make my " customer name" combo box a required field before closing the form r moving on to the next record?

Thanks

 

[PHV]

A common way is to enforce all the validation rules in the BeforeUpdate event procedure of the form, playing with the SetFocus method and the Cancel argument.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[thrilliam]

Could you provide a little more info on the SetFocus method? My knowledge of VBA is minimal at best.

 

[TheAceMan1]

How are ya thrilliam . . .

In the [blue]BeforeUpdate[/blue] event of the form, something like this:

[blue]   Dim CBx As ComboBox, Msg As String, Style As Integer, Title As String
   
   Set CBx = Me![purple][b][i]YourComboboxName[/i][/b][/purple]
   
   If CBx.ListIndex = -1 Then
      Msg = "Data is required in combobox!"
      Style = vbCritical + vbOKOnly
      Title = "Required Data Error! . . ."
      MsgBox Msg, Style, Title
      
      CBx.SetFocus
      Cancel=True
   End If

   Set CBx=Nothing[/blue]

[blue]Your Thoughts? . . .[/blue]

See Ya! . . . . . .

 

[thrilliam]

Thanks Aceman,
So I tested out your code and it only seems to work if I make a selection in my combo box and then delete it. After deleting my selection if i try to move one or close the window it gives me the error. If i never make a selection and the combo box remains blank i can still move on.

With the code I also get a run time error after the message box pops up. The error is at CBx.SetFocus
the message says "You must save the field before you execute the GoToControl method, or the SetFocus method."


Thanks,
Will