lookup combo box undo on exit

[Chris B via AccessMonster.com]

Hi All,

I have a several lookup comboboxes on the same form, they lookup differant
parts of the database, these are working perfectly.
What i want is that after the user has looked up and found the record, I want
the combobox not to display anything, the reason is the user will find a
record and later scroll to another but the last lookup still remains in the
combobox, this creates confusion.

The code for one of my combobox's is:

Private Sub Combo16_AfterUpdate()
' Find the record that matches the control.

Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo16], 0))

If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub


I have tried using things like me.undo in the 'on exit' and 'on lost focus'
events but nothing happens.

Any suggestions on how to tackel this is most welcome!
Thanks

 

[DubboPete]

Try this

Me.combo16.RowSource = vbNullString
Me.combo16.Requery

Pete

 

[Chris B via AccessMonster.com]

Hi Pete,
Thanks for the prompt reply!
I gave it a try and it certainly "clears" the combobox, but if I try to use
the combobox again there is nothing there.
I tried me.requery in the "got focus" to see if that helped but it didnt.
Any other ideas?
Thanks again!!

Try this

Me.combo16.RowSource = vbNullString
Me.combo16.Requery

Pete

Hi All,

[quoted text clipped - 27 lines]

Any suggestions on how to tackel this is most welcome!
Thanks

 

[Guest]

As the focus is set back to the combo box after you have conducted the
search, if you set the value of the combo box to nothing in the gotfocus
event this will clear your combo box after the search as requested.

That is

Private Sub Combo16_GotFocus()

Me.Combo16.Value = ""

End Sub

=====================
Hope this helps
Dylan Moran

 

[Chris B via AccessMonster.com]

Hi Dylan,

This works perfectly!!!!!!

Many thanks to both of you for your assistance!!

As the focus is set back to the combo box after you have conducted the
search, if you set the value of the combo box to nothing in the gotfocus
event this will clear your combo box after the search as requested.

That is

Private Sub Combo16_GotFocus()

Me.Combo16.Value = ""

End Sub

=====================
Hope this helps
Dylan Moran

Hi All,

[quoted text clipped - 24 lines]

Any suggestions on how to tackel this is most welcome!
Thanks

 

[DubboPete]

Glad to help mate - I am always learning too!
hence the odd nickname sometimes of 17th Century Goat-Herder

Pete