User Defined Type Not Defined Lesson 3 - How To Build a Reservation System and Copy Orders With Details Using Recordsets in Microsoft Access


	Back to Access Developer 24 Lessons Comments List

Upload Images @Reply Bookmark Link Email Next Unseen

User Defined Type Not Defined Lesson 3

Sarah Bliss

4 months ago

I get the above error message.
I copied your recordset code exactly. I changed the table names and the field names but left the whole thing as it was.
But it doesn't even get beyond the second line. It an't find the "Dim rsNew as recordset". I alternated it with the "rsOld" bit but same problem.
This is the very first time I've tried using recordsets. Is there sone setting I should have? What am I doing wrong?
I tried to add a screenshot here but I don't know how to.

	Kevin Robertson @Reply 4 months ago
You have a missing reference. In the VB Editor go to `Tools -- References`. Make sure `Microsoft Office 16.0 Object Library` is checked.

Sarah Bliss OP @Reply

4 months ago

Thank you Kevin. It wasn't checked and I checked it. I did a compact & repain and closed the database and opened it again but I get the same error.

This is the code but it hasn't even got to the point of starting because of this initial error:

Details

Private Sub AddRecipeCopyBtn_Click()



        Dim NewID As Long, ProductID As Long

        Dim rsNew As Recordset, rsOld As Recordset

        Dim Fld As Field



    If IsNull(RecipeID) Then Exit Sub

    Me.Refresh

    

    ProductID = ProductNameCombo

    

    ' copy the recipe

    Set rsOld = CurrentDb.OpenRecordset("SELECT * FROM RecipeT WHERE RecipeID=" & RecipeID)

    Set rsNew = CurrentDb.OpenRecordset("RecipeT")

    rsNew.AddNew

    NewID = rsNew!RecipeID

    For Each Fld In rsOld.Fields

        If Fld.Name = "RecipeDate" Then

            rsNew!RecipeDate = Date

        ElseIf Fld.Name = "RecipeNotes" Then

            rsNew!RecipeNotes = "(COPY) " & rsOld!RecipeNotes

        ElseIf Fld.Name <> "RecipeID" Then

            rsNew(Fld.Name) = rsOld(Fld.Name)

        End If

    Next

    rsNew.Update

    rsNew.Close

    rsOld.Close

	Sarah Bliss OP @Reply 4 months ago
I went looking at thoses references and I googled them and found this: "Microsoft ActiveX Data Objects Recordset 6.0 Library" I tried it and the error stopped. I now have another error (LOL) but it's in the SQL bit so it's probably spelling or something. Let me know if this is something I shouldn't have done - it's way out of my depth here. And thanks again - and on Sunday too! Thank you!

	Kevin Robertson @Reply 4 months ago
Image Uploads New Upload Images Button

	Sarah Bliss OP @Reply 4 months ago
Right under my nose🤣🤣🤣

This thread is now CLOSED. If you wish to comment, start a NEW discussion in Access Developer 24 Lessons.

Next Unseen

New Feature: Comment Live View