Validate Data on a Combo Box

[Guest]

I am trying to insure that the user does not leave this box blank. I am
trying the code listed below. But it is not validating the blank combo box.

Private Sub Operator_BeforeUpdate(Cancel As Integer)
If IsNull([Operator]) Then
MsgBox "Must Enter Operator Name", vbOKOnly, "Name Validation"

Me.Undo ' Clear the textbox
Cancel = True ' Hold the cursor in this textbox
End If
End Sub

 

[Allan Murphy]

You can not use the BeforeUpdate as the user has not entered a value, if you
use AfterUpdate you can not check for a value as no data was entered.

I use the LostFocus event as follows

Private Sub date_requested_LostFocus()
On Error GoTo Err_date_requested_LostFocus

If IsNull(Me!date_requested) Then
DoCmd.CancelEvent
MsgBox ("A valid date MUST be entered")
DoCmd.GoToControl "request_period"
DoCmd.GoToControl "date_requested"
End If

Exit_date_requested_LostFocus:
Exit Sub

Err_date_requested_LostFocus:
MsgBox (" request Error # " & Str(Err.Number) & " was generated by" _
& Err.Source & Chr(13) & Err.Description)
Resume Exit_date_requested_LostFocus
End Sub

 

[Guest]

Thank you very much. The code works well. But I am not able to exit form
if the field is blank. If the user decides to abort input.

You can not use the BeforeUpdate as the user has not entered a value, if you
use AfterUpdate you can not check for a value as no data was entered.

I use the LostFocus event as follows

Private Sub date_requested_LostFocus()
On Error GoTo Err_date_requested_LostFocus

If IsNull(Me!date_requested) Then
DoCmd.CancelEvent
MsgBox ("A valid date MUST be entered")
DoCmd.GoToControl "request_period"
DoCmd.GoToControl "date_requested"
End If

Exit_date_requested_LostFocus:
Exit Sub

Err_date_requested_LostFocus:
MsgBox (" request Error # " & Str(Err.Number) & " was generated by" _
& Err.Source & Chr(13) & Err.Description)
Resume Exit_date_requested_LostFocus
End Sub
--
Allan Murphy
Email: (e-mail address removed)

I am trying to insure that the user does not leave this box blank. I am
trying the code listed below. But it is not validating the blank combo box.

Private Sub Operator_BeforeUpdate(Cancel As Integer)
If IsNull([Operator]) Then
MsgBox "Must Enter Operator Name", vbOKOnly, "Name Validation"

Me.Undo ' Clear the textbox
Cancel = True ' Hold the cursor in this textbox
End If
End Sub

 

[Allan Murphy]

If Operator is part of your primary key then you will have the same problem.

Under what conditions would the user abort the data entry?

If the user clicks on the close symbol X on the top right hand side of the
form a series of messages are displayed and clicking OK will override
the checking for null data in operator and will not save the current data
entry.

--
Allan Murphy
Email: (e-mail address removed)

Thank you very much. The code works well. But I am not able to exit form
if the field is blank. If the user decides to abort input.

You can not use the BeforeUpdate as the user has not entered a value, if you
use AfterUpdate you can not check for a value as no data was entered.

I use the LostFocus event as follows

Private Sub date_requested_LostFocus()
On Error GoTo Err_date_requested_LostFocus

If IsNull(Me!date_requested) Then
DoCmd.CancelEvent
MsgBox ("A valid date MUST be entered")
DoCmd.GoToControl "request_period"
DoCmd.GoToControl "date_requested"
End If

Exit_date_requested_LostFocus:
Exit Sub

Err_date_requested_LostFocus:
MsgBox (" request Error # " & Str(Err.Number) & " was generated by" _
& Err.Source & Chr(13) & Err.Description)
Resume Exit_date_requested_LostFocus
End Sub
--
Allan Murphy
Email: (e-mail address removed)

I am trying to insure that the user does not leave this box blank. I am
trying the code listed below. But it is not validating the blank combo box.

Private Sub Operator_BeforeUpdate(Cancel As Integer)
If IsNull([Operator]) Then
MsgBox "Must Enter Operator Name", vbOKOnly, "Name Validation"

Me.Undo ' Clear the textbox
Cancel = True ' Hold the cursor in this textbox
End If
End Sub

 

[Van T. Dinh]

I prefer to use the Form_BeforeUpdate to perform data validation (Entity
Integrity) check rather than the Events of the Control to avoid this sort of
problem.