Salve, come posso operare per cancellare tutti i file su un date base in access 2003 senza cancellare tutte le istruzioni?. Grazie Cesare

salve
cosa intendi esattamente?? svuotare completamente tutte le tabelle??
se è questo che intendi, la macro da assegnare ad un pulsante posto su una maschera (magari con attributo di nascosto)



Option Compare Database

Private Sub Comando2_Click()
Dim tdf As TableDef
If InputBox("Inserire password") = "Miapassword" Then
For Each tdf In CurrentDb.TableDefs
If (tdf.Attributes And dbSystemObject) = False And (tdf.Attributes And _
dbHiddenObject) = False Then
DoCmd.RunSQL "DELETE * FROM " & tdf.Name
End If
Next tdf
Else
Cancel = True
End If
End Sub

NB.per funzionare necessita caricare la libreira Microsoft DAO

saluti
Andrea

---

salve
quando sei in ambiente Vba dove copierai la macro, In Menù Strumenti>Riferimenti nell'elenco che si aprirà cerca la voce Microsoft Dao 3.6 object library e metti la spunta sulla casella a fianco del nome
La versione 3.6 può cambiare in funzione della versione di access.

PS. non ti ho speicificato prima che il nome della macro che ti ho postato
"Private Sub Comando2_Click()" viene inserito automaticamente quando assegnerai il codice al pulsante
saluti
Andrea

---