Trying to trap when a user cancels an insert from a form.

[Legacy 456155]

Sort of like an UnDirty event or CancelInsert event. I could not find anything about this on the web so maybe my design is faulty or not reasonable. I have an unbound textbox (txtSearch) that shows a listbox if the user enters search text. The listbox contains a list of existing records, which, when one is selected, loads an existing record. If the user adds a new record, I disable txtSearch to disallow trying to add a new record using the listbox in the midst of an insert operation. However, if the user cancels the insert by pressing the escape key or in some other way (is there another way?), I want to re-enable and set focus to txtSearch. I suppose that I could use KeyPreview and capture the escape key. What do you think? Is that comprehensive enough? Any ideas? Thanks for your input!

 

[Micron]

Not exactly sure of what you have there (I mean is the form unbound or not? A subform on a form?) Maybe the form Undo event will work for you. There are other ways to undo a record but I think you would have to design it in, so I cannot think of anything other than esc. Designed methods could include a Cancel button or getting user response to a prompt if they attempt to navigate off the record.

 

[Legacy 456155]

Thanks Micron. It is a simple form bound to a single table (Contacts) that allows a user to select existing contacts or create new contacts. If they begin an insert operation by creating a new contact and then decide to search through existing contacts using the listbox without canceling the current insert, that is where the problem is. They are in the midst of an insert operation and also trying to add an existing contact. So, I disable txtSearch when an insert begins and re-enable when all required fields have been entered because they may now move off the record. I suppose that I could or maybe should use more prompts, but I tend to try and develop some basic understanding of the rules to avoid so many prompts. It's an in-house system.

Private Sub Form_BeforeInsert(Cancel As Integer)
    txtSearch.Enabled = False
End Sub

There are other ways to undo a record but I think you would have to design it in, so I cannot think of anything other than esc.

If the escape key is all I have to account for, then...

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape And Not Dirty Then
        txtSearch.Enabled = True
        txtSearch.SetFocus
    End If
End Sub

...may do. I can always add prompts if my users have problems with my design. Thanks for your input.

 

[Micron]

I tested form Undo with esc and it seemed to work fine.

 

[Legacy 456155]

Thank you, Micron, for your time and insight. Have a nice weekend.

 

[Micron]

NP, thanks. Good luck with your database(s)!