Search box

[ctathrh]

Hi,

I want to create a search box. I wanted the search box as in combo box and as I selected the value in the combo box, I want the form from the selected value to pop up.

This is the code I use for my combo box but the record did not appear.

Private Sub Combo8_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object


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

Do anyone know is this code is correct or not

I really new to access, hope anyone can teach me the steps to create it.



Thank you

[Bob Fitz]

It should be possible to create this functionality by using the wizard to create the combo box.
If you can't figure it out, post a copy of your db.

[Welshgasman]

Firstly, how can a combo be null?
Secondly test for NoMatch after a find.
I am assuming you are using a combo as I do, first column autonumber,second description?

[CJ_London]

this code is not right

rs.FindFirst "[Type_Damage] = " & Str(Nz(Me![Combo8], 0))

all depends on what datatype Type Damage is - if it is a string, why pass a 0? and the code would need to be

rs.FindFirst "[Type_Damage] = '" & Str(Nz(Me![Combo8], 0)) & "'"

if a number, you don't need to convert to a string

rs.FindFirst "[Type_Damage] = " & Nz(Me![Combo8], 0)