Aprire Microsoft Access e creare un nuovo database con il tasto " Control- N ", seguito facendo clic su " Blank banca dati ". Potrai creare un piccolo tavolo per questo database , quindi utilizzare le macro per cancellare i dati da essa.
2
Fare clic su " Tabella " sotto il menu "Crea" , quindi digitare " ProductName " nella riga superiore della seconda colonna della griglia della tabella . Tipo " Prezzo " nella cella direttamente a destra di " ProductName ".
3
tipo una o due file di dati di esempio nelle celle sotto i nomi delle colonne che hai appena digitato . Ad esempio, digitare "carbone compressa , " e " 1,98 " per una tavola delle risorse dell'arte.
4
Premere " Control- S " e premere "OK" per salvare la tabella con il nome di default " Tabella 1 . "
5
Premere" Alt- F11 "per entrare nell'ambiente di sviluppo integrato di VBA ( IDE ) , quindi fare clic su " Module " del menu" inserisci " per effettuare una nuova finestra per l'inserimento di macro del vostro programma codice .
6
Incollare il seguente programma nella finestra. Questo programma funziona aprendo un oggetto recordset del database corrente . Il recordset è basata sulla tabella " Tabella1 " si è completata nel passaggio 4 . Il metodo MoveFirst (cioè la funzione ) del RecordSet si sposta il puntatore del record corrente al primo record della tabella , . Il metodo elimina Elimina quel primo disco
Public Sub deleteRecord ( ) per
Dim db As DAO . Database
Dim rcset Come DAO.Recordset
Dim str As String
Set db = CurrentDb
rcset = Sub
7
Eseguire la macro eliminazione cliccando su una qualsiasi delle sue dichiarazioni , poi premendo il tasto " F5 ". Premere il tasto " Alt- F11 " per tornare all'interfaccia utente di Access di serie , quindi fare doppio clic sull'icona " Tabella1 " nel pannello di navigazione di Access, che si trova a sinistra dello schermo . L'accesso sarà aperto " Tabella1 " a rivelare che il primo record immesso nel passaggio 3 è soppresso .
8
Premere " Alt- F11 " per tornare al codice macro in IDE , quindi incollare il seguente nuovo programma sotto il precedente che hai scritto . Questo programma elimina il campo " Prezzo " dal tavolo chiamando il metodo "Delete" del " Tabella1 ".
Public Sub DeleteField ( ) per
Dim db As
DAO.Database
Dim rcset Come DAO.Recordset
Dim mytab Come TableDef
Set db = CurrentDb
mytab = db.TableDefs ( " Tabella1 " ) per
myTab.Fields.Delete ( " Prezzo " ) per
db.Close
End Sub
9
Eseguire il programma che avete fatto la precedente, e doppio - cliccare su " Tabella 1 " nel pannello di navigazione per verificare che il campo " Prezzo " è andato.
Programmazione © www.354353.com