Ako získať prístup a odstrániť dáta s Makro

Užívatelia databázové aplikácie, aplikácie Microsoft Access , niekedy používajú makrá spravovať ich dáta , vrátane mazanie dát . Makrá sú programy napísané v jazyku Visual Basic for Applications ( VBA ) , a možno automatizovať akýkoľvek úlohu vykonať pomocou štandardného užívateľského rozhrania prístup " . Mazanie dát s VBA môže mať rôzne podoby , v závislosti na tom , či údaje , ktoré majú byť vymazané , je celý stĺpec alebo iný objekt databázy . Vymazanie dát s makrami - na rozdiel od manuálnych metód - šetrí čas , a je menej náchylné k chybám ako ručné odstránenie . Veci , ktoré budete potrebovať v Microsoft Access
Zobraziť ďalšie inštrukcie Cestuj 1

Spustite program Microsoft Access a vytvorenie novej databázy stlačením tlačidla " Control - N , " nasledovaný kliknutím na " Blank databázy . " Budete vytvoriť malú tabuľku pre túto databázu , potom použite makrá odstrániť dáta z neho .
2

Kliknite na " Tabuľka " v menu " Create " , zadajte " Productname " v hornom riadku z druhého stĺpca mriežke na stole je . Typ " Cena " v bunke priamo napravo od " NázevVýrobku . "
3

Zadajte jeden alebo dva riadky ukážkových dát v bunkách pod názvami stĺpcov ste práve zadali z Zadajte napríklad " Compressed uhlie , " a " 1,98 " pre umenie zásobovanie tabuľke .
4

Stlačte " Control - S " a stlačte tlačidlo " OK " pre uloženie tabuľku s predvoleným názvom " Table1 . "
5

Stlačte tlačidlo " Alt - F11 " zadať VBA integrované vývojové prostredie ( IDE ) , potom kliknite na tlačidlo " modul " v menu " Vložiť " , aby sa nové okno pre zadanie makro vášho programu kód .
6

vložte nasledujúci program do okna . Tento program funguje po otvorení objektu Recordset z aktuálnej databázy . RecordSet je založený na " Tabuľka1 " tabuľky , ktorú dokončený v kroku 4. MoveFirst metóda ( napr. funkcia ) Recordset presunie aktuálny ukazovateľ záznamu na prvý záznam v tabuľke je , Delete metóda odstráni , že prvý záznam

Public Sub DeleteRecord ( )

Dim db ako DAO . . databázy

Dim rcset Ako DAO.Recordset

Dim str As String

Set db = CurrentDb

Set rcset = Sub
7

Spustiť odstránenie makra kliknutím na niektorý zo svojich vyhláseniach , stlačením tlačidla " F5 " . Stlačte tlačidlo " Alt - F11 " sa vrátite do štandardného užívateľského rozhrania prístup , a potom dvakrát kliknite na ikonu " Tabuľka1 " v navigačnej table Access , ktorá je na ľavej strane obrazovky . Access otvorí " Tabuľka1 " , ukázať , že prvý záznam , ktoré ste zadali v kroku 3 sa vypúšťa .
8

Stlačte tlačidlo " Alt - F11 " sa vrátite do kódu makra v IDE , potom vložte nasledujúci nový program pod predchádzajúce , ktorú ste napísal . Tento program odstráni pole " cena " zo stola volaním metódy " Delete " z " Table1 . "

Public Sub DeleteField ( )

Dim db Ako DAO.Database

Dim rcset Ako DAO.Recordset

Dim myTab Ako TableDef

Set db = CurrentDb

Set myTab = db.TableDefs ( "Tabuľka 1 " )

myTab.Fields.Delete ( " Cena " )

db.Close

End Sub
9

Spustiť program ako ste ten predchádzajúci , a double kliknite na " Tabuľka1 " v navigačnej table overte , že pole " Cena " je preč .

• Predchádzajúca strana: Ako pre prístup k dátovej mriežky 
• Ďalšia strana: Ako ušetriť premenné do databázy pomocou programu Microsoft Visual Basic OLEDB