Recording date that a record has been appended and deleted

[Fi64]

Hi,

I hope someone can help.

I have a macro that appends and deletes records to a new table once the the record has been closed. I need to record the date this was done in my original table and the new table and have had brain freeze as to how to achieve this.

Any suggestions??

 

[GaryPanic]

ok

field in your table called xxxx
on the firing of your maco (I presume by a button) have xxxx = now() - this will only record the last time it was fired - so if you did it on the 01/01/07 and again on 02/02/07 only the last date would be saved
take this concept and tweak for the new table - same thing really

g

 

[Fi64]

Thankyou

I am not very good at using the visual basic in access but I have converted my macro (code below). It all works apart from actually inserting today's date in the table field. I am missing something very basic I am sure. Without the close option in the macro it ends with the cursor in the correct table field. Can you please help again?

Thanks



Option Compare Database
Option Explicit

'------------------------------------------------------------
' Archive_CCR
'
'------------------------------------------------------------
Function Archive_CCR()
On Error GoTo Archive_CCR_Err

DoCmd.OpenQuery "Completed Customer Complaints Append", acViewNormal, acEdit
DoCmd.OpenQuery "Completed Customer Complaints Delete", acViewNormal, acEdit
DoCmd.OpenTable "Customer Complaint Details", acViewNormal, acEdit
DoCmd.GoToControl "Archive Date"
Call Now
DoCmd.Close acTable, "Customer Complaint Details"


Archive_CCR_Exit:
Exit Function

Archive_CCR_Err:
MsgBox Error$
Resume Archive_CCR_Exit

End Function