Hi, Ron.
Ensure that the field that the combo box is bound to is both required and
cannot allow zero length strings. Then use the combo box's OnNotInList( )
event to ensure that one of the three values is selected:
Private Sub cboStuff_NotInList(NewData As String, Response As Integer)
On Error GoTo ErrHandler
MsgBox "Please enter one of the items in" & vbCrLf & _
"the combo box.", vbCritical + vbOKOnly, "Must Select One Item!"
Response = acDataErrContinue
Exit Sub
ErrHandler:
MsgBox "Error in cboStuff_NotInList( ) in" & vbCrLf & _
Me.Name & " form." & vbCrLf & vbCrLf & _
"Error #" & Err.Number & vbCrLf & Err.Description
Err.Clear
End Sub
.. . . where cboStuff is the name of the combo box.
HTH.
Gunny
See
http://www.QBuilt.com for all your database needs.
See
http://www.Access.QBuilt.com for Microsoft Access tips.
(Please remove ZERO_SPAM from my reply E-mail address so that a message will
be forwarded to me.)
- - -
If my answer has helped you, please sign in and answer yes to the question
"Did this post answer your question?" at the bottom of the message, which
adds your question and the answers to the database of answers. Remember that
questions answered the quickest are often from those who have a history of
rewarding the contributors who have taken the time to answer questions
correctly.