Disable the dropdown on a combo box

[jmersing]

I have a combo box that reads a bar code and auto tabs to the next field. It has an after update event that retrieves the correct record. I do not want the users to manually enter a bar code # with the keypad, and I do not want them to see the dropdown window.
Can I do this?

 

[Norie]

Why are you using a combobox?

Could you not use a textbox?

How is the control 'reading' a bar code?

 

[jmersing]

The focus is set to the combo box it will detect the scan on it's own. Then I run this after update statement:

Private Sub cmbScan_AfterUpdate()
' Find the record that matches the control.

Dim rs As Object
Dim intresult As Integer

Set rs = Me.Recordset.Clone
rs.FindFirst "[eventid] = " & Str(Nz(Me![cmbScan], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Me.signout.SetFocus
If Me.signout.Text = "" Then
Me.signout = Time()
Me.signoutdate = Now()
DoCmd.SetWarnings off
DoCmd.OpenQuery "qryAppendStatus"

Else
Me.signin = Time()
Me.signindate = Now()
'Me.signout = Me.signout
DoCmd.SetWarnings off
DoCmd.OpenQuery "qryNewUpdate"
End If
Me.rfid.SetFocus


The recordsource for the combobox is :

SELECT [sign out record].EventID, [sign out record].BadgeID, [sign out record].[Employee Name]
FROM [sign out record]
ORDER BY [sign out record].[Employee Name];