Error '3251'

Hello everyone,

I created a form to add rows to a table in my database.

Among these rows, there is a field called "Supplier."
I want that when someone enters a supplier that does not yet exist in the database, they are directed to another form to enter the information for this new supplier.

To do this, I typed this code (integrated into the main code of the form):

Set rsref = db.OpenRecordset("tFournisseurs") rsref.FindFirst ("Supplier='" + CStr(Me.txt_fournisseur) + "'") If rsref.NoMatch Then MsgBox ("Supplier not registered, You will be directed to the add page") DoCmd.OpenForm ("fAdd_Supplier") End If

Small problem, it shows me this message: "Runtime error '3251': Operation not allowed for this type of object."
The debugger indicates line 2 (

rsref.findfirst...

).

Here is the full code:

Option Compare Database Option Explicit Private Sub btn_add_Click() Dim db As DAO.Database Dim rs As DAO.Recordset Dim rsref As DAO.Recordset Set db = CurrentDb Set rs = db.OpenRecordset("#tStock_search") If Me.txt_reference = "" Or Me.txt_supplier = "" Or Me.txt_quantity = "" _ Or Me.txt_tool = "" Or Me.txt_sector = "" Or Me.txt_location = "" Then MsgBox ("Please fill in all fields") Else rs.AddNew rs!Reference = Me.txt_reference rs!Supplier = Me.txt_supplier rs!Quantity = Me.txt_quantity rs!Type = Me.txt_tool rs!Sector = Me.txt_sector rs!Location = Me.txt_location rs.Update MsgBox ("Reference added successfully") txt_reference = "" txt_supplier = "" txt_quantity = "" txt_tool = "" txt_sector = "" txt_location = "" End If Set rsref = db.OpenRecordset("tSuppliers") rsref.FindFirst ("Supplier='" + CStr(Me.txt_supplier) + "'") If rsref.NoMatch Then MsgBox ("Supplier not registered, You will be directed to the add page") DoCmd.OpenForm ("fAdd_Supplier") End If rs.Close rsref.Close db.Close DoCmd.OpenForm ("#fDetail_tool") Set rs = Nothing Set db = Nothing Set rsref = Nothing End Sub

I hope you can help me solve this problem!