If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
drop down list: how to open on cursor
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 |
#2
|
|||
|
|||
drop down list: how to open on cursor
Listing code that has nothing to do with your question/problem is a surefire
way to have your post ignored! The standard way to do this is to have the combobox drop down when the control is entered: Private Sub ComboBoxName_Enter() ComboBoxName.Dropdown End Sub -- There's ALWAYS more than one way to skin a cat! Answers/posts based on Access 2000/2003 Message posted via http://www.accessmonster.com |
#3
|
|||
|
|||
drop down list: how to open on cursor
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 There's ALWAYS more than one way to skin a cat! Answers/posts based on Access 2000/2003 Message posted via http://www.accessmonster.com . |
#4
|
|||
|
|||
drop down list: how to open on cursor
On Sat, 1 May 2010 07:19:02 -0700, jmuirman
wrote: 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 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. -- John W. Vinson [MVP] |
Thread Tools | |
Display Modes | |
|
|