Ho questa serie di comandi:
codice:
DoCmd.RunSQL "UPDATE [ANAGRAFICHE FRUITORI1] INNER JOIN [ANNI ASSOCIAZIONE] ON [ANAGRAFICHE FRUITORI1].ID_sezione = [ANNI ASSOCIAZIONE].idfruitore SET [ANAGRAFICHE FRUITORI1].SOCIO = 'Sì' WHERE ((([ANNI ASSOCIAZIONE].anno)=2004))"
DoCmd.RunSQL "INSERT INTO [ANAGRAFICHE FRUITORI] ( ID_sezione, COGNOME, NOME, SESSO, TOPONIMO, INDIRIZZO, NUMCIVICO, CAP, CITTA, [TELEFONO CASA], CELLULARE, LAVORO, [E MAIL], SOCIO, [GRUPPO OPERATIVO], [AREA GEOGRAFICA], [GRADO DISABILITA], [DATA NASCITA], [RAPPORTO SM], DIAGNOSI, LAVORATORE, [TITOLO DI STUDIO], [NOTE] )" & _
             "SELECT [ANAGRAFICHE FRUITORI1].ID_sezione, [ANAGRAFICHE FRUITORI1].COGNOME, [ANAGRAFICHE FRUITORI1].NOME, [ANAGRAFICHE FRUITORI1].SESSO, [ANAGRAFICHE FRUITORI1].TOPONIMO, [ANAGRAFICHE FRUITORI1].INDIRIZZO, [ANAGRAFICHE FRUITORI1].NUMCIVICO, [ANAGRAFICHE FRUITORI1].CAP, [ANAGRAFICHE FRUITORI1].CITTA, [ANAGRAFICHE FRUITORI1].[TELEFONO CASA], [ANAGRAFICHE FRUITORI1].CELLULARE, [ANAGRAFICHE FRUITORI1].LAVORO, [ANAGRAFICHE FRUITORI1].[E MAIL], [ANAGRAFICHE FRUITORI1].SOCIO, [ANAGRAFICHE FRUITORI1].[GRUPPO OPERATIVO], [ANAGRAFICHE FRUITORI1].[AREA GEOGRAFICA], [ANAGRAFICHE FRUITORI1].[GRADO DISABILITA], [ANAGRAFICHE FRUITORI1].[DATA NASCITA], [ANAGRAFICHE FRUITORI1].[RAPPORTO SM], [ANAGRAFICHE FRUITORI1].DIAGNOSI, [ANAGRAFICHE FRUITORI1].LAVORATORE, [ANAGRAFICHE FRUITORI1].[TITOLO DI STUDIO], [ANAGRAFICHE FRUITORI1].NOTE FROM [ANAGRAFICHE FRUITORI1]"
DoCmd.RunSQL "INSERT INTO tbl_operatori ( ID_sezione, cognome, nome, tipologia, qualifica, altro, telefono, cellulare, indirizzo, CAP, comune, sesso, titolo_di_studio ) SELECT tbl_operatori1.ID_sezione, tbl_operatori1.cognome, tbl_operatori1.nome, tbl_operatori1.tipologia, tbl_operatori1.qualifica, tbl_operatori1.altro, tbl_operatori1.telefono, tbl_operatori1.cellulare, tbl_operatori1.indirizzo, tbl_operatori1.CAP, tbl_operatori1.comune, tbl_operatori1.sesso, tbl_operatori1.titolo_di_studio FROM tbl_operatori1"
DoCmd.RunSQL "INSERT INTO [SERVIZI EROGATI] ( ID_sezione, DATA, [TIPO SERVIZIO], ora_inizio, ora_fine, [TEMPO IMPIEGATO], [KM PARTENZA], [KM ARRIVO], [KM TOTALI], [CARICO AISM], [CARICO ENTE PUBBLICO], [CARICO UTENTE], [NOTA ALTRO GENERICO], [SOMMA EROGATA], ALTRO, [DATA NASCOSTA] ) SELECT [SERVIZI EROGATI1].ID_sezione, [SERVIZI EROGATI1].DATA, [SERVIZI EROGATI1].[TIPO SERVIZIO], [SERVIZI EROGATI1].ora_inizio, [SERVIZI EROGATI1].ora_fine, [SERVIZI EROGATI1].[TEMPO IMPIEGATO], [SERVIZI EROGATI1].[KM PARTENZA], [SERVIZI EROGATI1].[KM ARRIVO], [SERVIZI EROGATI1].[KM TOTALI], [SERVIZI EROGATI1].[CARICO AISM], [SERVIZI EROGATI1].[CARICO ENTE PUBBLICO], [SERVIZI EROGATI1].[CARICO UTENTE], [SERVIZI EROGATI1].[NOTA ALTRO GENERICO], [SERVIZI EROGATI1].[SOMMA EROGATA], [SERVIZI EROGATI1].ALTRO, [SERVIZI EROGATI1].[DATA NASCOSTA] FROM [SERVIZI EROGATI1]"
DoCmd.RunSQL "INSERT INTO Tbl_servizi_fruitori ( id_servizio, id_fruitore ) SELECT Tbl_servizi_fruitori1.id_servizio, Tbl_servizi_fruitori1.id_fruitore FROM Tbl_servizi_fruitori1"
DoCmd.RunSQL "INSERT INTO Tbl_servizi_operatori ( id_servizio, id_operatore ) SELECT Tbl_servizi_operatori1.id_servizio, Tbl_servizi_operatori1.id_operatore FROM Tbl_servizi_operatori1"
Vorrei sapere se è possibile che ad ogni errore, o interruzione nell'esecuzione del codice (anche da parte di un utente mi esegua un determinato comando: come faccio???