DAO.Recordset Subform Datasheet Populate Help

B

Brandon Johnson

Im trying to fill a subform datasheet with a criteria from the main
form. Its throwing me an error on the section where it goes through the
do until loop. If anyone has any suggestions please let me know.
thankyou.


Dim promoteSub As DAO.Recordset
Dim promCri As String

Set promoteSub = CurrentDb.OpenRecordset("SELECT * FROM
qryPromotedItems WHERE PromoteGroup = " & Chr$(34) & cboPromote &
Chr$(34) & " ORDER BY PromoteGroup ASC;", dbOpenDynaset)
promCri = "[PromoteGroup] = " & Chr$(34) & cboPromote & Chr$(34) &
" ORDER BY PromoteGroup ASC"
promoteSub.MoveFirst
Do Until promoteSub.EOF
Forms!frmStardustPlanningTool!frmPromote.Forms!Text2 =
promoteSub!PromoteGroup
Forms!frmStardustPlanningTool!frmPromote.Forms!Text4 =
promoteSub!UPCCase
Forms!frmStardustPlanningTool!frmPromote.Forms!Text6 =
promoteSub!UPCItem
Forms!frmStardustPlanningTool!frmPromote.Forms!Text8 =
promoteSub!SVDCName
Forms!frmStardustPlanningTool!frmPromote.Forms!Text10 =
promoteSub!SVStatus
Forms!frmStardustPlanningTool!frmPromote.Forms!Text12 =
promoteSub!SVDescription
Forms!frmStardustPlanningTool!frmPromote.Forms!Text14 =
promoteSub!SVPack
Forms!frmStardustPlanningTool!frmPromote.Forms!Text16 =
promoteSub!VendorPkCost
Forms!frmStardustPlanningTool!frmPromote.Forms!Text18 =
promoteSub!WeekFcst
promoteSub.MoveNext
Loop
promoteSub.Close
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Assign Recordset to Subform Help 5
Subform rowsource help 3
SQL HELP Seems Simple 3

Top