Clicca su "Strumenti Database " e cliccare su " Visual Basic " per aprire l'editor di Microsoft Visual Basic. Fai clic sul menu "Inserisci" e fare clic su "Modulo " per aggiungere un nuovo modulo di codice . Creare un nuovo subprocedure aggiungendo il seguente codice : Private Sub
populateField ( ) economici 2
Creare le variabili che saranno utilizzati per creare una nuova tabella e compilare un campo :
Dim dbs As Database Dim rst
come Recordset
Dim rowCntr As Integer Dim
fNames (10 ) As String
Set dbs = CurrentDb
3
Compilare la matrice di stringhe con i dati :
fNames ( 0 ) = "John"
fNames ( 1 ) = " Kitzia " < br
fNames > ( 2) = " Adaly "
fNames ( 3) = " Oscar "
fNames ( 4) = " Emilio "
fNames (5 ) = " Carlos"
fNames ( 6) = " Sylvia "
fNames (7 ) = " Sebastian "
fNames (8 ) = " Luis "
fNames ( 9) = " Joe "
4
eseguire un'istruzione SQL per creare una nuova tabella nel database con un campo di testo:
sqlstr = " CREATE TABLE MyNewTable ( TESTO Nome ( 50) ) ; "
DoCmd.RunSQL ( sqlstr ) economici 5
aprire la nuova tabella utilizzando un Recordset :
Set rst = dbs.OpenRecordset ( " MyNewTable " ) economici 6
Creare un ciclo for per popolare il campo " Nome " della tabella :
rowCntr = 0 To 9
RST . AddNew
rst.Fields ( 0 ) . Valore = fNames ( rowCntr ) per
rst.Update
Avanti rowCntr
7
chiudere il recordset e terminare la procedura secondaria :
rst.Close
End Sub
8
Premere " F5 " per eseguire la procedura. Tornare a Microsoft Access e fare doppio clic su " MyNewTable " per visualizzare il campo popolato .
Programmazione © www.354353.com