Numeric Field Overflow - MS Access 2000

[Hayton]

Hi Everyone,I have a database with one table and four fields. One of the fields is Equipment Number. I am using a form to do a query. A combo box has been placed in the Form Header. The result of the Combo selection query is placed in text boxes in the Deatil section of the form.

If I type in a number combo box and the number is not in the database, a run time error Numeric Field Overflow occurs.

The code displayed is:

Private Sub Combo12_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Registration] = '" & Me![Combo12} & "'"
Me.Bookmark = rs.Bookmark
End Sub

What code can I use to get arround this.

 

[Spellman]

try sticking an if statement in. Maybe something like

if rs.recordcount <> 0 then
me.bookmark = rs.bookmark
end if
Mark

The key to immortality is to make a big impression in this life!!