Recordset in a Subform - How To Format Listbox Colors Multi-Select and Work With Recordsets in Microsoft Access Developer 16


	Back to Access Developer 16 Comments List

Recordset in a Subform

Lesli Cochran

4 years ago

Is there additional code to make a recordset populate in a subform? When I add the recordset from a combobox, the associated table is updated but not the form.

Lesli Cochran OP @Reply

4 years ago

Here's my code. Excuse all the confusing misspellings of "itinerary"! ItineraryDetailT updates with the recordset but not the form. I'll post some pictures too.

  Dim rsGroup As Recordset, rsGroupDetail As Recordset

    Set rsGroup = CurrentDb.OpenRecordset("ItineraryDetailT")

    'LOOP THROUGH DETAILS AND ADD AS TIME AND ACTIVITY

    Set rsGroupDetail = CurrentDb.OpenRecordset("SELECT * FROM EventIteneraryDetailT " & _
    "WHERE EventIteneraryGroupID=" & ItineraryGroupCombo, dbOpenSnapshot)

    While Not rsGroupDetail.EOF
        rsGroup.AddNew
        rsGroup!OrderId = Forms!OrderF!OrderId
        rsGroup!Activity = Nz(DLookup("ItneraryActivityName", "IteneraryActivityT", "IteneraryActivityID=" & rsGroupDetail!IteneraryActivityID), "Unknown")
        rsGroup!Time = rsGroupDetail!DefaultTime

        rsGroup.Update
        rsGroupDetail.MoveNext
    Wend

    rsGroupDetail.Close
    rsGroup.Close
    Set rsGroupDetail = Nothing
    Set rsGroup = Nothing

    Me.Requery

	Lesli Cochran OP @Reply 4 years ago

	Kevin Robertson @Reply 4 years ago
Did you Requery the Subform?

	Lesli Cochran OP @Reply 4 years ago
Thats what I was wondering - is the "me.requery" the right code for the subform?

	Adam Schwanz @Reply 4 years ago
If you're still having trouble with this, see these. Value From a Form Requery Subform

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

Next Unseen