Drop-Down List

  • Thread starter Thread starter PPCO
  • Start date Start date
P

PPCO

Wondering if there's a way for a list to automatically drop down when a combo
box is clicked on? Thanks
 
PPCO,
Use the Click event (ex. cboComboBox)
Private Sub cboComboBox_Click()
cboComboBox.Dropdown
End Sub
or...
Try the Enter event when you tab into the combobox
Private Sub cboComboBox_Enter()
cboComboBox.Dropdown
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."
 
That's odd, seems like it should work, but didn't do anything. Tried a couple
variations of it as well.
Here's my code:

Private Sub Previous_Record_Click()
On Error GoTo Err_Previous_Record_Click


DoCmd.GoToRecord , , acPrevious

Exit_Previous_Record_Click:
Exit Sub

Err_Previous_Record_Click:
MsgBox Err.Description
Resume Exit_Previous_Record_Click

End Sub
Private Sub NEXT_RECORD_Click()
On Error GoTo Err_NEXT_RECORD_Click


DoCmd.GoToRecord , , acNext

Exit_NEXT_RECORD_Click:
Exit Sub

Err_NEXT_RECORD_Click:
MsgBox Err.Description
Resume Exit_NEXT_RECORD_Click

End Sub
Private Sub EXIT_FORM_Click()
On Error GoTo Err_EXIT_FORM_Click


DoCmd.Close

Exit_EXIT_FORM_Click:
Exit Sub

Err_EXIT_FORM_Click:
MsgBox Err.Description
Resume Exit_EXIT_FORM_Click

End Sub

Private Sub UOM_Click()
UOM.Dropdown
End Sub
 
Try this OnClick of control

DoCmd.Hourglass True
Me.combobox.Requery
Me.combobox..SetFocus
Me.combobox..Dropdown
DoCmd.Hourglass False

Regards Bob
 
Oops
DoCmd.Hourglass True
Me.combobox.Requery
Me.combobox.SetFocus
Me.combobox.Dropdown
DoCmd.Hourglass False
 
PPCO,
Yes, it should work.
Did you try the same code on the combo's OnEnter event?
Any luck with that?
Add a Beep to the code to make sure it's firing.
**Make sure you have [Event Procedure] in the OnClick and/or OnEnter
property box.
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."
 
The On Enter worked. Thanks!

Al Campagna said:
PPCO,
Yes, it should work.
Did you try the same code on the combo's OnEnter event?
Any luck with that?
Add a Beep to the code to make sure it's firing.
**Make sure you have [Event Procedure] in the OnClick and/or OnEnter
property box.
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

PPCO said:
That's odd, seems like it should work, but didn't do anything. Tried a
couple
variations of it as well.
Here's my code:

Private Sub Previous_Record_Click()
On Error GoTo Err_Previous_Record_Click


DoCmd.GoToRecord , , acPrevious

Exit_Previous_Record_Click:
Exit Sub

Err_Previous_Record_Click:
MsgBox Err.Description
Resume Exit_Previous_Record_Click

End Sub
Private Sub NEXT_RECORD_Click()
On Error GoTo Err_NEXT_RECORD_Click


DoCmd.GoToRecord , , acNext

Exit_NEXT_RECORD_Click:
Exit Sub

Err_NEXT_RECORD_Click:
MsgBox Err.Description
Resume Exit_NEXT_RECORD_Click

End Sub
Private Sub EXIT_FORM_Click()
On Error GoTo Err_EXIT_FORM_Click


DoCmd.Close

Exit_EXIT_FORM_Click:
Exit Sub

Err_EXIT_FORM_Click:
MsgBox Err.Description
Resume Exit_EXIT_FORM_Click

End Sub

Private Sub UOM_Click()
UOM.Dropdown
End Sub
Click to expand...
Click to expand...
 
Further down on the form, I have a sub form that also has a drop down list.
Because it's tab index is 1, if I use the on enter, the list drops down from
the sub form as soon as go to the first drop down list. Then it won't drop
down when I get down to the sub-form. Wonder what might be causing that?
Thanks again!

PPCO said:
The On Enter worked. Thanks!

Al Campagna said:
PPCO,
Yes, it should work.
Did you try the same code on the combo's OnEnter event?
Any luck with that?
but didn't do anything.
Click to expand...
Add a Beep to the code to make sure it's firing.
**Make sure you have [Event Procedure] in the OnClick and/or OnEnter
property box.
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."

PPCO said:
That's odd, seems like it should work, but didn't do anything. Tried a
couple
variations of it as well.
Here's my code:

Private Sub Previous_Record_Click()
On Error GoTo Err_Previous_Record_Click


DoCmd.GoToRecord , , acPrevious

Exit_Previous_Record_Click:
Exit Sub

Err_Previous_Record_Click:
MsgBox Err.Description
Resume Exit_Previous_Record_Click

End Sub
Private Sub NEXT_RECORD_Click()
On Error GoTo Err_NEXT_RECORD_Click


DoCmd.GoToRecord , , acNext

Exit_NEXT_RECORD_Click:
Exit Sub

Err_NEXT_RECORD_Click:
MsgBox Err.Description
Resume Exit_NEXT_RECORD_Click

End Sub
Private Sub EXIT_FORM_Click()
On Error GoTo Err_EXIT_FORM_Click


DoCmd.Close

Exit_EXIT_FORM_Click:
Exit Sub

Err_EXIT_FORM_Click:
MsgBox Err.Description
Resume Exit_EXIT_FORM_Click

End Sub

Private Sub UOM_Click()
UOM.Dropdown
End Sub


:

PPCO,
Use the Click event (ex. cboComboBox)
Private Sub cboComboBox_Click()
cboComboBox.Dropdown
End Sub
or...
Try the Enter event when you tab into the combobox
Private Sub cboComboBox_Enter()
cboComboBox.Dropdown
End Sub
--
hth
Al Campagna
Microsoft Access MVP
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your
life."

Wondering if there's a way for a list to automatically drop down when a
combo
box is clicked on? Thanks
Click to expand...
Click to expand...
Click to expand...
 
Back
Top