dropdown combos

[Lafor]

Any 1 recalls the simpler way to not allow the user to type something of his own in a drop down box.. only the items chosen?

Thanks in advance...

[crptcblade]

Change the Style property to 2.

[ahara]

Change the Style property

[Lafor]

When I change the style property to 2... it would work ok... The problem is that blank fields or fields with Null values would kick an error... Any workaround...

[MartinLiss]

Originally posted by Lafor
When I change the style property to 2... it would work ok... The problem is that blank fields or fields with Null values would kick an error... Any workaround...

What is the source of the data? Why can't you filter it befeore you load the combobox?

[Lafor]

Here is how I do it

From a loaded recordset

cmbMfgTextRecvd.Text = .Fields("MfgTextRecvd") & ""

Still get the error.. I don't really want to put a blank in there...

[MartinLiss]

Do something like

If .Fields("MfgTextRecvd") > "" Then
    cmbMfgTextRecvd.AddItem .Fields("MfgTextRecvd") 
End If

[RobDog888]

Here is a public function that I wrote a while ago that can handel that.

Option Explicit
 
Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
 
Private Const CB_FINDSTRINGEXACT = &H158
Private Const CB_FINDSTRING = &H14C
 
Public Function SearchCBO(ByRef cboCtl As ComboBox, ByVal sSearchCriteria As String, Optional ByVal bLIKE As Boolean) As Long
'<RR 08/08/2003 - VB/OUTLOOK GURU>
    On Error GoTo No_Bugs
    
    If bLIKE = False Then 'EXACT MATCH
        SearchCBO = SendMessageStr(cboCtl.hwnd, CB_FINDSTRINGEXACT, 0&, ByVal sSearchCriteria)
    Else 'LIKE MATCH
        SearchCBO = SendMessageStr(cboCtl.hwnd, CB_FINDSTRING, 0&, ByVal sSearchCriteria)
    End If
    Exit Function
    
No_Bugs:
    
    MsgBox Err.Number & " - " & Err.Description, vbOKOnly + vbInformation
    Exit Function
    Resume 'FOR DEBUGGING
End Function

Usage...

'...
'...
'...
cmbMfgTextRecvd.ListIndex = SearchCBO(cmbMfgTextRecvd, .Fields("MfgTextRecvd") & "", False)

If it exists it will change the combo to the item and if it doesn't then it
will set the combo to a listindex of -1 which is no selection.

HTH

[Lafor]

Thanks much to all of you.. for responding so promptly..