Usare una query di eliminazione per cancellare i dati
Fino ad ora abbiamo visto come
creare tabelle, maschere ed inserire dati.
In questo semplicissimo tutorial vedremo invece come
attraverso l'oggetto query
(dall'inglese, domanda) sia possibile eliminare i record
di un database.
La query è un oggetto molto utile, che permette di filtrare i dati contenuti nelle maschere secondo alcuni criteri e di svolgere alcune operazioni con essi.
Per creare una nuova query clicchiamo sul folder Crea e poi su Struttura query (Fig.1)
Fig.1
Ci verrà chiesto di selezionare la tabella su cui
vogliamo eseguire la query.
Selezioniamo i campi che vogliamo eliminare e
specifichiamo che si tratta di una query di eliminazione
(Fig.2).
Fig.2
Come detto all'inizio, il campo Criteri serve per specificare secondo quale parametro filtrare i dati, per esempio da data a data, tutti i dati che contengono un nome o un numero, ecc..
A questo punto bisogna eseguire la query. Il modo più semplice è attraverso la routine Su clic di un pulsante di una maschera. Il codice VBA che esegue è riportato sotto.
On Error GoTo Errore
Dim R As Integer
R = MsgBox("Sei sicuro di eliminare i dati dalla
tabella?", vbYesNo + vbQuestion, "Cancella")
If R = vbNo Then Exit Sub
DoCmd.SetWarnings False
DoCmd.OpenQuery "Query1"
DoCmd.SetWarnings True
Forms![Nome_Maschera].Requery
Errore:
Exit Sub
Cliccando sul pulsante si aprirà un
messaggio che chiederà di confermare l'operazione.
Scegliendo SI verrà aperta la query e cancellati i dati
Buon lavoro.