Microsoft Office Access
uređuje Branislav Mihaljev, MVP

Brisanje sadržaja svih tabela

Nivo:
NIVO 3 - Prilozi na ovom nivou su namenjeni naprednim korisnicima, onima koji se već dobro snalaze u programima i onima koji već imaju iskustva u naprednim tehnikama. Ovom nivou pripadaju preporuke i trikovi koje bi trebalo da savlada svako ko teži dugotrajnom i efikasnom radu u Office programima.

Pripremite se za godišnje radnje nad bazama podataka. Priloženi programski kod možete upotrebiti za brisanje sadržaja tabela, bez gubitka strukture.

Valja se blagovremeno pripremiti za godišnje spremanje baza, koje po pravilu ide u vreme najvećih gužvi u poslovanju. Ako imate baze čiji ritam popunjavanja je godišnji, onda posle uredno sklonjenog trajnog backupa na CD-u možete pribeći brisanju tabela i komprimovanju baze. Da ne biste ručno brisali sva polja, što može biti prilično naporan posao, poslužite se sledećim isečkom koda:

...

Dim ctr As Container
Dim doc As Document
Dim db As Database
Set db = CurrentDB()
Set ctr = db.Containers!Tables

For Each doc in ctr.Documents

  ' najpre provera da tabela nije sistemska
  ' (skrivene sistemske tabele se ne smeju prazniti!)

  If Left$(doc.Name, 4) <> "MSys" Then

    ' PAŽNJA: u slučaju da treba zaštititi
    ' spoljne (linkovane) tabele, gornji red
    ' (sa IF) treba zameniti sa sledeća dva:
    '
    ' If Left$(doc.Name, 4) <> "MSys" And _
    '   db.TableDefs(doc.Name).Connect = "" Then

    db.Execute "DELETE [" & doc.Name & "].*" & _
      "From [" & doc.Name & "];"

  End If

Next doc

...

Pri brisanju, struktura tabela i relacija među njima će ostati očuvana. Pripazite na jedan detalj: podrazumevani kod (bez komentara) će obrisati i spoljne sadržaje u linkovanim tabelama; klauzula IF čuva samo sistemske tabele (koje su skrivene, pa ih u podrazumevanom okruženju ne vidite u spisku tabela). Ako treba sačuvati spoljne sadržaje, onda obavezno zamenite red sa klauzulom IF sa dva reda priložena u komentaru.

Obratite pažnju i na to da Access ima elementarnu podršku referencijalnom integritetu podataka, pa brisanje podataka u relacionim strukturama neće odmah proći, nego će biti obrisani samo podaci u hijerarhijski najnižim tabelama. Ako imate definisane relacije, pokrenite proceduru brisanja više puta, kako bi se pobrisali podaci na svim stranama u relaciji.