
Signature
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
Douglas below is the code for the notinevent for the combo box, the combo box
is in a subform on the main form. the subform record source is a table and
the combo box record souirce is a query.
Dim Msg, Style, Title ' Declare
Variables
Msg = "Do you wish to add a new Individual Name?" ' Define
message.
Style = vbYesNo + vbCritical + vbDefaultButton1 ' Define
buttons.
Title = "Individual Name" ' Define
title.
Response = MsgBox(Msg, Style, Title) ' Display
Message
If Response = vbYes Then
DoCmd.OpenForm "frm_individual_name_new", , , , acFormAdd, acDialog,
NewData
Response = acDataErrAdded 'combo
automatically requeried
Else
Response = acDataErrContinue
Me.Undo
End If
> What does your code look like? Are you remembering to set Response =
> acDataErrAdded?
[quoted text clipped - 7 lines]
> > the default microsoft access error dialogue box appears for value not in
> > list. How do I stop this happening?
Douglas J Steele - 18 Jan 2006 21:30 GMT
Try putting a Requery of your combobox after you return from the call to the
form.

Signature
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)
> Douglas below is the code for the notinevent for the combo box, the combo box
> is in a subform on the main form. the subform record source is a table and
[quoted text clipped - 36 lines]
> > > the default microsoft access error dialogue box appears for value not in
> > > list. How do I stop this happening?