after running this code, I want the combobox dropdown deployed

[markjkubicki]

after running this code, I want the combo-box control's dropdown deployed (without any further action from the user), but it does not... suggestions on what I ought to be doing instead would be greatly appreciated in advance (also striking out any lines that are unnecessary).

[CODE][
Private Sub cmbInstallationNoteTitle_click()
Select Case Me.cmbInstallationNoteTitle
Case Is = "0"
Me.cmbInstallationNoteTitle.RowSource = _
"SELECT OptInstallationNotes.InstallationNoteTitle, OptInstallationNotes.optionNumber, OptInstallationNotes.Options From OptInstallationNotes ORDER BY
OptInstallationNotes.InstallationNoteTitle, OptInstallationNotes.[InstallationNoteTitle]; "
Me.cmbInstallationNoteTitle.Requery
Me.cmbInstallationNoteTitle.AutoExpand = True
Me.cmbInstallationNoteTitle.Dropdown
Me.cmbInstallationNoteTitle.SetFocus
vInstallationNoteTitle = Me.cmbInstallationNoteTitle
If Len(Nz(vInstallationNoteTitle)) > 0 Then
vstr = DLookup("[options]", "optInstallationNotes", _


"[OptionNumber] = " & Me.cmbInstallationNoteTitle)
Me.txtNoteText = vstr
' <other lines of code>
Else
' <other lines of code>
End If
End Select
End Sub/CODE]

Thnx,
mark

[June7]

Set focus to the combobox first.

Might want to put dropdown code in the combobox GotFocus event.