Combo dropdown (1 Viewer)

kirkm

Registered User.
Local time
Today, 11:32
Joined
Oct 30, 2008
Messages
1,257
My combo box is set to a Query with many results. When clicking to open the dropdown list I cannot easily scroll to the last entry.
Is there any way to make this happen?
 

kirkm

Registered User.
Local time
Today, 11:32
Joined
Oct 30, 2008
Messages
1,257
How many entries do you have?
 

Gasman

Enthusiastic Amateur
Local time
Today, 00:32
Joined
Sep 21, 2011
Messages
14,238
Use Ctrl + End
 

Uncle Gizmo

Nifty Access Guy
Staff member
Local time
Today, 00:32
Joined
Jul 9, 2003
Messages
16,273
I have a product that might solve your problem. It's a pop-up form which captures your combo-box and allows you to search the Combo. You can obtain a free copy, contact me for details..

More information on my website here:-


Direct Download Here:-

Combo-box Alpha List


Please make sure you watch the prerequisites video BELOW before downloading the product..

Combo Box Alpha Form Prerequisites - 1

 
Last edited:

kirkm

Registered User.
Local time
Today, 11:32
Joined
Oct 30, 2008
Messages
1,257
Control End is exactly what's needed, then scrolling is lightning speed.. beaut. But can this be done automatically anyhow?
Uncle Gizmo, thanks, will have a play. Record source is already sql.
 

kirkm

Registered User.
Local time
Today, 11:32
Joined
Oct 30, 2008
Messages
1,257
I'm the eternal optomist, This didn't quite work!
Code:
Private Sub cboSelect_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Stop
SendKeys "CONTROL END"
End Sub
 

Gasman

Enthusiastic Amateur
Local time
Today, 00:32
Joined
Sep 21, 2011
Messages
14,238
Control End is exactly what's needed, then scrolling is lightning speed.. beaut. But can this be done automatically anyhow?
Uncle Gizmo, thanks, will have a play. Record source is already sql.
Well there is SendKeys, not something I have ever used and apparently not that reliable.

You would need some way to indicate to use it or not though?, as I cannot see you want to go to the end everytime you entered the combo? :unsure:
Perhaps a double click ?
 

Gasman

Enthusiastic Amateur
Local time
Today, 00:32
Joined
Sep 21, 2011
Messages
14,238
I'm the eternal optomist, This didn't quite work!
Code:
Private Sub cboSelect_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Stop
SendKeys "CONTROL END"
End Sub
No, you cannot just make it up :), look at the link I posted for Sendkeys
 

Gasman

Enthusiastic Amateur
Local time
Today, 00:32
Joined
Sep 21, 2011
Messages
14,238
This works now and again. I see why they say unreliable. :D
I've not had to use Sendkeys, so you will have to experiment further.

Code:
Private Sub cboTransactionDate_DblClick(Cancel As Integer)
SendKeys "{Down}", True
SendKeys "^{End}", True
End Sub

HTH
 

Users who are viewing this thread

Top Bottom