Ciao a tutti,
sono nuovo nel forum e premetto che con Access non sono proprio una cima, ma ultimamente mi ci sto dedicando un pochino per automatizzare dei processi lavorativi.
Adesso mi trovo in questa situazione, ho un db nel quale nelle varie tbl inserisco attraverso delle maschere i versamenti da fare all'erario ed al termine dell'elaborazione vorrei creare 2 tabelle di backup una destinata al recupero "immediato" che viene sovrascritta ogni volta, e l'altra per avere uno storico. Il codice che ho usato è il seguente:
Function Genera_F24()
Dim check As String
check = MsgBox("Una volta generato l'F24 per poterlo modificare sarà necessario prima avviare la Macro ""XXX - Elimina per Generare nuovamente F24 COMPLETO"" VUOI CONTINUARE?", vbYesNo)
If check = vbYes Then
DoCmd.SetWarnings False
DoCmd.OpenQuery "Elimina Dati", acViewNormal, acEdit
DoCmd.OpenQuery "Crea AdE 1", acViewNormal, acEdit
DoCmd.OpenQuery "Crea AdE 2", acViewNormal, acEdit
DoCmd.OpenQuery "Crea AdE 3", acViewNormal, acEdit
DoCmd.OpenQuery "Contropartita AdE", acViewNormal, acEdit
DoCmd.OpenQuery "Codice tributo AdE 1", acViewNormal, acEdit
DoCmd.OpenQuery "Codice tributo AdE 2", acViewNormal, acEdit
DoCmd.OpenQuery "Codice tributo AdE 3", acViewNormal, acEdit
DoCmd.OpenQuery "Creazione 1 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Creazione 2 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Creazione 3 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Creazione 4 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Creazione 5 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda Recupero 1 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda Recupero 2 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda Recupero 3 Sintetico", acViewNormal, acEdit
DoCmd.OpenQuery "Cambio segno AdE", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda AdE 1 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda AdE 2 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda AdE 3 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda 1 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda 2 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda 3 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Accoda 4 Totale", acViewNormal, acEdit
DoCmd.OpenQuery "Aggiorna Dati Totale", acViewNormal, acEdit
DoCmd.CopyObject "", "Totale_backup", acTable, "4 - Totale"
DoCmd.CopyObject "", "Totale_backup_1", acTable, "4 - Totale"
Beep
MsgBox "F24 Generato CORRETTAMENTE", vbOKOnly, ""
Else
MsgBox "F24 non generato"
Exit Function
End If
End Function
successivamente ho fatto un'alta funzione per rinominare la tbl "Totale_backup_1", quella che serve per lo storico, con il seguente codice:
Function Rinomina()
Dim check As Date
DoCmd.Rename "Totale[check]", acTable, "Totale_backup_1"
End Function
la mia idea era quella di rinominarla con la data, ma non funziona.
Come posso risolvere?
Grazie