Ciao Mimmo, grazie come sempre per la tua gentilezza ed il tuo cortese riscontro.
Ci avevo già pensato e creato il codice per fare questo, lo posto.
Private Sub SvuotaCampi_Click()
Dim db As DAO.Database, RecCount As Long
On Error GoTo ErrorHandler
DoCmd.Hourglass True
RecCount = DCount("*", "tblAnagrafica")
Set db = CurrentDb
db.Execute "INSERT INTO Tabella2 (Matricola,MatrMecc,Grado,Cognome,Nome,cod_Reparto,Cod_Fiscale,REPARTO)" & _
"SELECT Matricola,MatrMecc,Grado,Cognome,Nome,cod_Reparto,Cod_Fiscale,REPARTO " & _
"FROM tblAnagrafica", dbFailOnError
If RecCount = db.RecordsAffected Then
db.Execute "DELETE * FROM tblAnagrafica", dbFailOnError
End If
DoCmd.Hourglass False
Me.Requery
MsgBox "Importazione dati completata con successo!!"
ErrorHandler_Exit:
Exit Sub
ErrorHandler:
MsgBox "Error " & Err.Number & " " & Chr(13) & Err.Description
Resume ErrorHandler_Exit
End Sub
Ero curioso di conoscere altre possibili alternative alla mia esigenza imparando da voi professionisti di Access, del tipo creare una query di eliminazione (o di aggiornamento a valori Null negli altri campi, spero di non dire fesserie) con l'indicazione
dei soli 6 campi da preservare.
Ciao Nicola.