combobox

[smh]

How can you lock a combo box so that the user can't delete the name that is shown, but can still select another name?

If it was a textbox, I would lock it, but you can't do that with a combobox and then select another name from the list.

[YoungBuck]

Set the Style property to 2 - Dropdown List.

Either just use a list box , or set the Style to 2 - drop down list

[smh]

I can't do that because of the following code:

rstOwner.Open "SELECT * from ATMOwnerContacts where OwnerName='" & cboOwner.Text & "';", cnn

cboOwnerContact.Text = rstOwner!contact
txtPhoneNumber = rstOwner!Phone
txtExtension = rstOwner!extension & ""
txtFaxNumber = rstOwner!fax
txtEmail = rstOwner!Email

I get the error 'Read Only'.

Try this:

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

[smh]

That worked great with one exception.

What if they highlight the word and then press delete? It does delete then.

Any suggestions on how to prevent that?

[YoungBuck]

Try this smh....

Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
    KeyCode = 0
End Sub

Private Sub Combo1_KeyPress(KeyAscii As Integer)
    KeyAscii = 0
End Sub

[smh]

Thanks guys...it works great!

[YoungBuck]

Found another problem smh, if the user highlights the text and presses the space bar the text can still be deleted.

[YoungBuck]

Nevermind I did something stupid!!