inputbox for a combobox (easy)

Any way to set up an inputbox prompt to fill in a combobox. I want an
inputbox to ask for a name. When I input the name I want the combobox to
show that name.

"dogpigfish" wrote in message:
...

Any way to set up an inputbox prompt to fill in a combobox. I want an
inputbox to ask for a name. When I input the name I want the combobox to
show that name.

Something like so??
(I put this on a command button click event)

Private Sub cmdPrompt_Click()
On Error GoTo ErrorPoint

Dim varPrompt As Variant

varPrompt = InputBox("Please enter a name.", "Enter Name")

' Name of my combo box is cboSomeName
Me.cboSomeName = varPrompt

ExitPoint:
Exit Sub

ErrorPoint:
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " & Err.Description _
, vbExclamation, "Unexpected Error"
Resume ExitPoint

End Sub

--
Jeff Conrad
Access Junkie
Bend, Oregon

Thanks again

"Jeff Conrad" wrote:

"dogpigfish" wrote in message:
...

Any way to set up an inputbox prompt to fill in a combobox. I want an
inputbox to ask for a name. When I input the name I want the combobox to
show that name.

Something like so??
(I put this on a command button click event)

Private Sub cmdPrompt_Click()
On Error GoTo ErrorPoint

Dim varPrompt As Variant

varPrompt = InputBox("Please enter a name.", "Enter Name")

' Name of my combo box is cboSomeName
Me.cboSomeName = varPrompt

ExitPoint:
Exit Sub

ErrorPoint:
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " & Err.Description _
, vbExclamation, "Unexpected Error"
Resume ExitPoint

End Sub

--
Jeff Conrad
Access Junkie
Bend, Oregon

"dogpigfish" wrote in message:
...

Thanks again

You're welcome, good luck with your project.
--
Jeff Conrad
Access Junkie
Bend, Oregon