Expand|Select|Wrap|Line Numbers
- Public Sub DuplicatePlan()
- Set qdefPold = CurrentDb.CreateQueryDef("SELECT * FROM RiderEntry WHERE FACTSPlanName=Forms!Group!Rates.Form.PickPlan")
- Set rstPold = qdefPold.OpenRecordset
- Set qdefPnew = CurrentDb.CreateQueryDef("SELECT Rates * FROM Rates WHERE grID=Forms!Group!gID")
- Set rstAnew = qdefAnew.OpenRecordset
- With rstPnew
- .AddNew
- !RM1Rider = rstPold!M3Rider
- !rARider = rstPold!ARider
- !rBRider = rstPold!BRider
- !rCRider = rstPold!CRider
- !rDRider = rstPold!Drider
- !rERider = rstPold!ERider
- !rDPRider = rstPold!DPRider
- !rEPRider = rstPold!EPRider
- !rGRider = rstPold!GRider
- !rHRider = rstPold!H1Rider
- !rJRider = rstPold!JRider
- !rKRider = rstPold!KRider
- !rLRider = rstPold!LRider
- !rNRider = rstPold!NRider
- !rPRider = rstPold!PRider
- !rQRider = rstPold!QRider
- !rFRider = rstPold!FRider
- !rFRiderDed = rstPold!F15Rider
- .Update
- .MoveLast
- .Close
- End With
- rstPold.Close
- Set qdefPold = Nothing
- Set rstPold = Nothing
- Set qdefPnew = Nothing
- Set rstPnew = Nothing
- End Sub
Thank you,
Kelly