Form

[TAS]

Hi,

I have a form in which parties are entered and then a firm
is listed for that party. However I want the firm section
of the form to give me the option of entering a new firm
if it is not listed in the drop down. Everytime I go to
do this I get an error message that says "the text you
entered is not in the list" but when I delete it and try
to add I get a null value error. I have a command button
is there a code that I can use to fix this that will give
the error but then give me an option to add it without
giving the null value error.

here is my code

Private Sub Form_Close()
On Error GoTo Err_Form_Close

[Form_CasePartiesAttorneys subform].Refresh
Dim ctlList As Control
' Return Control object pointing to list box.
Set ctlList = [Form_CasePartiesAttorneys
subform].FirmID
' Requery source of data for list box.
ctlList.Requery

Exit_Form_Close:
Exit Sub

Err_Form_Close:
MsgBox Err.Description
Resume Exit_Form_Close

Any help would be appreciated.

 

[TAS]

Thanks for the response. I am very new at this coding so
can you tell me exactly how your suggestions should look
or where I place it.

 

[TAS]

Actually I just figured it out.

Thanks again for your help