Access Macros

[Dr. Chill]

I am trying to do a macro where I save a table and give it a different name. Is there a way to either link it to a form for part of the name or prompt a message box or something to have a name typed in?

 

[Norie]

I don't know if you could do this using a macro.

You could do it using VBA. Why don't you convert the existing macro to VBA and post the code?

 

[Dr. Chill]

I am not much of a VB guy. How do I go about doing that?

 

[Dr. Chill]

OK I figured it out

Option Compare Database
Option Explicit

'------------------------------------------------------------
' mcr_Move_Prior_Year_ACC_Data_ALL
'
'------------------------------------------------------------
Function mcr_Move_Prior_Year_ACC_Data_ALL()
On Error GoTo mcr_Move_Prior_Year_ACC_Data_ALL_Err

DoCmd.SetWarnings False
' Copies Prior years data to another table for Balanced
DoCmd.CopyObject "", "ACC Premium Prior Year Balanced ", acTable, "ACC Premium Balanced 1-1 to 10-31"
' Copies Prior years data to another table for Bond
DoCmd.CopyObject "", "ACC Premium Prior Year Bond", acTable, "ACC Premium Bond 1-1 to 10-31"
' Copies Prior years data to another table for High Yield
DoCmd.CopyObject "", "ACC Premium Prior Year High Yield ", acTable, "ACC Premium High Yield 1-1 to 10-31"
DoCmd.SetWarnings True


mcr_Move_Prior_Year_ACC_Data_ALL_Exit:
Exit Function

mcr_Move_Prior_Year_ACC_Data_ALL_Err:
MsgBox Error$
Resume mcr_Move_Prior_Year_ACC_Data_ALL_Exit

End Function