G
Guest
I want to get records from query and populate them to a table. I just used
that code below but in the 6th line "Set rs2 =
db.OpenRecordset("CoursesQuery2")" program gives that error. Can somebody
explain how can I fix this problem?
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("ChangeMajorTemp")
Set rs2 = db.OpenRecordset("CoursesQuery2")
For Each Item In rs2
rs1.MoveLast
rs1.AddNew
rs1!ChangeInMajor = rs2!CourseClassifications
rs1.Update
Next
that code below but in the 6th line "Set rs2 =
db.OpenRecordset("CoursesQuery2")" program gives that error. Can somebody
explain how can I fix this problem?
Dim db As DAO.Database
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Set db = CurrentDb
Set rs1 = db.OpenRecordset("ChangeMajorTemp")
Set rs2 = db.OpenRecordset("CoursesQuery2")
For Each Item In rs2
rs1.MoveLast
rs1.AddNew
rs1!ChangeInMajor = rs2!CourseClassifications
rs1.Update
Next