I have Recordset rst1 which is the result of a query
I would like to create rst2, a copy of rst1, where
without rerunning the query above.
I want to end up with rst1 and rst2, two distinct Recordsets.
I have tried using Clone
but this will not create two distinct Recordsets
Code:
dim strSQL as string
strSQL = "SELECT tblAppointment.lngAppointID, tblAppointment.lngPatientID, tblAppointment.dtmAppointDate, tblAppointment.dtmAppointTime, tblAppointment.txtAppointDesc, tblAppointment.chkKeptAppointYesNo, " _
& " tblAppointment.lngServiceID, tblDoctor.txtSurnameName, tblAppointment.blnSMSWasSent, tblAppointment.lngAppointmentStatus, tblAppointment.txtAppointmentStatus, tblCustomer.txtSurname, tblCustomer.txtName " _
& " FROM tblCustomer INNER JOIN (tblDoctor INNER JOIN tblAppointment ON tblDoctor.lngDoctorID = tblAppointment.lngAppointDoctorID) ON tblCustomer.lngCustomerID = tblAppointment.lngPatientID " _
& " WHERE (((tblAppointment.lngPatientID) = " & Forms!frmSchedule!subAppointmentNew.Form!cbolngPatientID & ") ) " _
& " ORDER BY tblAppointment.dtmAppointDate DESC, tblAppointment.dtmAppointTime;"
set rst1 = new ADODB.Recordset
rst1.open strSQL, CurrentProject.Connection, adOpenKeyset, adLockPessimistic
I would like to create rst2, a copy of rst1, where
Code:
tblAppointment.dtmAppointDate > Date
without rerunning the query above.
I want to end up with rst1 and rst2, two distinct Recordsets.
I have tried using Clone
Code:
Set rst2 = rst1.clone