is there a way?

[Onslaughtdave]

Hi,

Is there a way to discover which events are firing as i do things?

in the case that there isn't this is what im tring to do:

there is a combo box with a bunch of stuff. if they type one in and find that it isnt in the list then there is an add button beside it. if they press the add button it will open my maintanence form so they can add in the correct record and then it dumps them back. BUT when i try to click on the add button i get an error cause im trying to enter a non existant recrod into the combo box. is there a way to trap this and find out where this error msg is firing so i can replace it with some other code that will fix the problem?

thanks,

Dave

 

[FancyPrairie]

Do it something like this:

If (Msgbox("Item doesn't exist.  Do you want to Add it?",vbYesNo+vbQuestion) = vbNo) then

    Response = acDataErrContinue
    ctlComboBox.Undo

else
    DoCmd.OpenForm "FormName", , , , acAdd, acDialog

    If (gbolRecordAdded) Then
        
        Response = acDataErrAdded
    
    Else
        
        Response = acDataErrContinue
        ctlComboBox.Undo
    
    End If

End If

Note that the form was opened as a dialog form (acDialog). That's because you don't want your code to execute until the user exists the form. Note also that the user could cancel adding the record. If so, no need to requery the combobox. That's why I check the global variable gbolRecordAdded. In the OnOpen event of the form I set it to false. In the AfterInsert event of the form I set it to true.

 

[Onslaughtdave]

FancyPrairie,

where do i put that? it wont let me click off the text field so i cant press anything.

what trigger is catching this?

 

[PHV]

Take a look at the NotInList event procedure and the LimitToList property of the ComboBox object.

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

 

[Onslaughtdave]

where would i use the limittolist?

 

[FancyPrairie]

Set the LimitToList property of the combobox to Yes. Set the NotInList property of the combobox to [Event Procedure]. Then click on the elipses (...) beside it. A module will open. Copy and paste the above code into the module

Also, look at help for notinlist.

 

[FancyPrairie]

By the way, this eliminates the need for your command button. You can get rid of it.

 

[Onslaughtdave]

yes!

ok thanks that did the trick!

thanks for your help...

PHV and FancyPrairie.

 

[Onslaughtdave]

Another question...

where do i requery the combo box?

 

[FancyPrairie]

Don't have to. Response = acDataErrAdded does it

 

[Onslaughtdave]

hmmm... indeed it sure does...ha my mistake...