Thanks Paul,
I think I have it, but in a less elegant way:
Code:
Private Sub Exit_Complete_Click()
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenQuery "QryDayNumTbl", acViewNormal, acEdit
DoCmd.OpenQuery "QryUpDayNum", acViewNormal, acEdit
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable = acDefault, "TblDayNum"
DoCmd.SetWarnings True
DoCmd.Close ,""
DoCmd.OpenForm"frmStart", acNormal, "", "", , acNormal
End Sub
2 Queries referenced:
QryUpDaynum
Code:
UPDATE TblChangeRequest, TblDayNum SETTblChangeRequest.DayNum = [TblDayNum].[DayNum]
WHERE (((TblChangeRequest.CRID)>1));
And
qryDayNumTbl
Code:
SELECT TblChangeRequest.DayNum INTO TblDayNum
FROM TblChangeRequest
WHERE (((TblChangeRequest.CRID)=1));
Suggestions on a more eloquent way is accepted happily
Grazi