combo box serach as you type

[gango]

hi,
I am using this vba in my combo box in subform, but when i go to next record and select another "productnr" that is defferent then then the above selected in the above record "productnr" disappear
Private Sub productid_Change()
Dim strSQL As String
If Len(Me.productid.Text) > 0 Then
strSQL = "SELECT product.id, product.productnr, product.cod FROM product WHERE (((product.productnr,) Like '*" & Me.productid.Text & "*')) ORDER BY product.productnr,;"
Else


strSQL = "SELECT product.id, product.productnr, product.cod FROM product ORDER BY product.productnr; " 'This is the default row source of combo box
End If


Me.productid.RowSource = strSQL
Me.productid.Dropdown
End Sub

[CJ_London]

see this link for an example.

https://www.access-programmers.co.uk...asheet.326876/

[gango]

ok,thanks! i used the code of your example. it is perfect, but i have some vba calculation in combo before update event which are connected with column (0) and with them code does not work

[CJ_London]

without knowing what that means, can't really provide any advice other than perhaps look at using different code or a different event

[gango]

Thanks again, it was my wrong, everything is ok.