drop down list: how to open on cursor

  • Thread starter Thread starter jmuirman
  • Start date Start date
J

jmuirman

How do I set the event procedure to make the list drop when I start typing in
the field?

Thanks,

John

here is the code:

Option Compare Database

Private Sub Command189_Click()
On Error GoTo Err_Command189_Click


DoCmd.Close

Exit_Command189_Click:
Exit Sub

Err_Command189_Click:
MsgBox Err.Description
Resume Exit_Command189_Click

End Sub
Private Sub Command190_Click()
On Error GoTo Err_Command190_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "LIFE EXPECTANCY TABLE"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command190_Click:
Exit Sub

Err_Command190_Click:
MsgBox Err.Description
Resume Exit_Command190_Click

End Sub
Private Sub Command191_Click()
On Error GoTo Err_Command191_Click

Dim stDocName As String

stDocName = "RATED AGE REPORT2"
DoCmd.OpenReport stDocName, acPreview

Exit_Command191_Click:
Exit Sub

Err_Command191_Click:
MsgBox Err.Description
Resume Exit_Command191_Click

End Sub
Private Sub Command192_Click()
On Error GoTo Err_Command192_Click


DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

Exit_Command192_Click:
Exit Sub

Err_Command192_Click:
MsgBox Err.Description
Resume Exit_Command192_Click

End Sub
Private Sub Command233_Click()
On Error GoTo Err_Command233_Click

Dim stDocName As String

stDocName = "qClientNotes by CLAIMANT1"
DoCmd.OpenReport stDocName, acPreview

Exit_Command233_Click:
Exit Sub

Err_Command233_Click:
MsgBox Err.Description
Resume Exit_Command233_Click

End Sub
Private Sub Command234_Click()
On Error GoTo Err_Command234_Click


DoCmd.GoToRecord , , acNext

Exit_Command234_Click:
Exit Sub

Err_Command234_Click:
MsgBox Err.Description
Resume Exit_Command234_Click

End Sub
Private Sub Command235_Click()
On Error GoTo Err_Command235_Click

Dim stDocName As String

stDocName = "Set-up Report by CLAIMANT"
DoCmd.OpenReport stDocName, acPreview

Exit_Command235_Click:
Exit Sub

Err_Command235_Click:
MsgBox Err.Description
Resume Exit_Command235_Click

End Sub
Private Sub Command236_Click()
On Error GoTo Err_Command236_Click

Dim stDocName As String

stDocName = "Marketing Notes1"
DoCmd.OpenReport stDocName, acPreview

Exit_Command236_Click:
Exit Sub

Err_Command236_Click:
MsgBox Err.Description
Resume Exit_Command236_Click

End Sub
Private Sub Command240_Click()
On Error GoTo Err_Command240_Click

Dim stDocName As String

stDocName = "Set-up Report by Claimant CNA"
DoCmd.OpenReport stDocName, acPreview

Exit_Command240_Click:
Exit Sub

Err_Command240_Click:
MsgBox Err.Description
Resume Exit_Command240_Click

End Sub
Private Sub Command245_Click()
On Error GoTo Err_Command245_Click

Dim stDocName As String

stDocName = "Settlement Worksheet"
DoCmd.OpenReport stDocName, acPreview

Exit_Command245_Click:
Exit Sub

Err_Command245_Click:
MsgBox Err.Description
Resume Exit_Command245_Click

End Sub
Private Sub Command247_Click()
On Error GoTo Err_Command247_Click

Dim stDocName As String

stDocName = "Settlement Annalysis Report"
DoCmd.OpenReport stDocName, acPreview

Exit_Command247_Click:
Exit Sub

Err_Command247_Click:
MsgBox Err.Description
Resume Exit_Command247_Click

End Sub
Private Sub Command259_Click()
On Error GoTo Err_Command259_Click

Dim stDocName As String

stDocName = "Set-up Report by CLAIMANT"
DoCmd.OpenReport stDocName, acPreview

Exit_Command259_Click:
Exit Sub

Err_Command259_Click:
MsgBox Err.Description
Resume Exit_Command259_Click

End Sub
Private Sub Command270_Click()
On Error GoTo Err_Command270_Click

Dim stDocName As String

stDocName = "RATED AGE REPORT3"
DoCmd.OpenReport stDocName, acPreview

Exit_Command270_Click:
Exit Sub

Err_Command270_Click:
MsgBox Err.Description
Resume Exit_Command270_Click

End Sub

Private Sub Defendant_Carrier_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

Private Sub Form_Open(Cancel As Integer)
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub

Private Sub switchboard_Click()
On Error GoTo Err_switchboard_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "SWITCHBOARD"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_switchboard_Click:
Exit Sub

Err_switchboard_Click:
MsgBox Err.Description
Resume Exit_switchboard_Click

End Sub
Private Sub AL_LSET_UP_FORMS_Click()
On Error GoTo Err_AL_LSET_UP_FORMS_Click

Dim stDocName As String

stDocName = "Set-up Report"
DoCmd.OpenReport stDocName, acPreview

Exit_AL_LSET_UP_FORMS_Click:
Exit Sub

Err_AL_LSET_UP_FORMS_Click:
MsgBox Err.Description
Resume Exit_AL_LSET_UP_FORMS_Click

End Sub
Private Sub Command306_Click()
On Error GoTo Err_Command306_Click

Dim stDocName As String

stDocName = "Settlement Worksheet by ID#"
DoCmd.OpenReport stDocName, acPreview

Exit_Command306_Click:
Exit Sub

Err_Command306_Click:
MsgBox Err.Description
Resume Exit_Command306_Click

End Sub
Private Sub CONTACTS_Click()
On Error GoTo Err_CONTACTS_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "fContacts BY INDIVIDUAL"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_CONTACTS_Click:
Exit Sub

Err_CONTACTS_Click:
MsgBox Err.Description
Resume Exit_CONTACTS_Click

End Sub
Private Sub SET_UP_REPORT_BY_ID__Click()
On Error GoTo Err_SET_UP_REPORT_BY_ID__Click

Dim stDocName As String

stDocName = "Set-up Report by ID#"
DoCmd.OpenReport stDocName, acPreview

Exit_SET_UP_REPORT_BY_ID__Click:
Exit Sub

Err_SET_UP_REPORT_BY_ID__Click:
MsgBox Err.Description
Resume Exit_SET_UP_REPORT_BY_ID__Click

End Sub
Private Sub Command309_Click()
On Error GoTo Err_Command309_Click


DoCmd.GoToRecord , , acNext

Exit_Command309_Click:
Exit Sub

Err_Command309_Click:
MsgBox Err.Description
Resume Exit_Command309_Click

End Sub
Private Sub Command310_Click()
On Error GoTo Err_Command310_Click


DoCmd.GoToRecord , , acPrevious

Exit_Command310_Click:
Exit Sub

Err_Command310_Click:
MsgBox Err.Description
Resume Exit_Command310_Click

End Sub
Private Sub Command311_Click()
On Error GoTo Err_Command311_Click

Dim stDocName As String

stDocName = "RATED AGE REPORT3 BY ID#"
DoCmd.OpenReport stDocName, acPreview

Exit_Command311_Click:
Exit Sub

Err_Command311_Click:
MsgBox Err.Description
Resume Exit_Command311_Click

End Sub
Private Sub Command312_Click()
On Error GoTo Err_Command312_Click

Dim stDocName As String

stDocName = "qClientNotes by ID"
DoCmd.OpenReport stDocName, acPreview

Exit_Command312_Click:
Exit Sub

Err_Command312_Click:
MsgBox Err.Description
Resume Exit_Command312_Click

End Sub
Private Sub Command369_Click()
On Error GoTo Err_Command369_Click

Dim stDocName As String

stDocName = "POST SETTLEMENT STATUS"
DoCmd.OpenReport stDocName, acPreview

Exit_Command369_Click:
Exit Sub

Err_Command369_Click:
MsgBox Err.Description
Resume Exit_Command369_Click

End Sub
 
I'm not sure what to do with this: Where do I paste this in the code?

Thanks,

John
Private Sub ComboBoxName_Enter()
ComboBoxName.Dropdown
End Sub
 
I'm not sure what to do with this: Where do I paste this in the code?

Thanks,

John
Private Sub ComboBoxName_Enter()
ComboBoxName.Dropdown
End Sub
Click to expand...

Open the form in design view.
Select the combo box.
View its Properties.
On the Events tab find the Enter property.
Click the ... icon by it.
Choose Code Builder.

Access will give you the Private Sub and End Sub lines. Type the Dropdown
line. You might need to use

Me.ComboBoxName.Dropdown

Of course use the actual name of your combo box in place of ComboBoxName.
 
Back
Top