Bloccare esecuzione macro su una tabella vuota.

Question

Salve.

Ho creato un database nel quale c'è una tabella che periodicamente deve essere ripulita alla chiusura.

La macro che ho creato funziona perfettamente solo se la tabella contiene dei record ma va in errore se non trova dei record da cancellare.

In pratica, se apro la tabella e questa non contiene record, quando la chiudo la macro viene eseguita lo stesso e non trovando record da cancellare, genera l'errore.

La condizione da inserire sarebbe di non eseguire la macro in caso di tabella vuota.

Come posso fare?

Grazie.

Answer 1

ciao Giovanni,

se devi cancellare il contenuto di una tabella basta una query di eliminazione da lanciare...quando ti serve.

Se invece vuoi cancellarne il contenuto solo se ci sono righe presenti è sufficiente valutarne appunto il contenuto.

Non uso le macro, vedi se questo semplice codice su evento click di un command button ti può aiutare, sostituendo il nome della tabella T3 con quello reale del tuo scenario.

If DCount("*", "t3") > 0 Then

    DBEngine(0)(0).Execute Query:="delete * from T3", options:=&H80

    VBA.MsgBox prompt:="Il contenuto della tabella è stato eliminato", _

               buttons:=vbInformation + vbOKOnly, _

               title:="Avviso"

Else

     VBA.MsgBox prompt:="Tabella vuota nessuna riga da eliminare", _

               buttons:=vbInformation + vbOKOnly, _

               title:="Avviso"

End If

ciao, Sandro.

Answer 2

Ciao Sandro,

Buttata via la query, ho risolto grazie al tuo contributo.

Grazie,

Giovanni