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.

 

 

Ultimi Articoli

01.05.2017
Proteggere Access
11.03.2017
Perche' imparare il VBScript
22.08.2016
Rubrica con VBScript - Parte 2
28.07.2016
Rubbrica con VBScript - Parte 1
15.12.2015
Raccolta dati da sito web