Oh, here is the vba version of the sql code:
Function Snapshot()
On Error GoTo Snapshot_Err
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO zMREQ ( MRID, MRReqS, MRReqF, MRReqA, MRtoCR, WEdt ) SELECT MREQ.MRID, MREQ.MRReqS, MREQ.MRReqF, MREQ.MRReqA, MREQ.MRtoCR, Date() AS WEdt FROM...