user defines type not defined 1

[santastefano]

The following code has worked well but has now stopped with the error message "user defined type not defined" at the line Dim rsNewBook As DAO.Recordset. I can not understand why it has stopped.

Dim varBookTitle, varPublisher, varSupplier, varBuyPrice, varSellPrice, varMOQ As Variant
varBookTitle = Me.BookTitle
varPublisher = Me.Publisher
varSupplier = Me.Supplier
varBuyPrice = Me.BuyPrice
varSellPrice = Me.SellPrice
varMOQ = Me.MOQ
Dim rsNewBook As DAO.Recordset
    Set db = CurrentDb
    Set rsNewBook = db.OpenRecordset("tblBooks", dbopendynaset)
   With rsNewBook
      .AddNew   
      !BookTitle = varBookTitle
      !Publisher = varPublisher
      !Supplier = varSupplier
      !BuyPrice = varBuyPrice
      !SellPrice = varSellPrice
      !MOQ = varMOQ
      .Update   
    End With
rsNewBook.Close 
Set rsNewBook = Nothing 
Set db = Nothing

Can anybody advise?
Thanks in advance

 

[easyit]

check your references; unlink & relink if needed.

 

[PHV]

when in VBE (Ctrl+G) menu Tools -> References ...
Tick the Microsoft DAO 3.# library.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[santastefano]

Thanks easyit.
References are Ok.
I am sorry to be Mr Thicko but I don't understand Unlink and Relink.
When you have time could you please point me...
Thanks in advance

 

[santastefano]

PHV - a good fix. I am not sure how it could have got unchecked but, never mind. It works OK now.
Thanks for reading and responding.