L'applicazione di accesso sarà più facile da usare se si compilati automaticamente campi di una tabella quando si sa i dati che va in loro. Questo può essere realizzato utilizzando Visual Basic, Applications Edition. È possibile utilizzare l'oggetto Recordset per aprire la tabella del database e popolare qualsiasi campo della tabella. Il metodo AddNew viene utilizzato per creare un nuovo record nell'oggetto Recordset e il metodo di aggiornamento salva tutte le modifiche apportate al record.

istruzione

1 Fai clic su "Strumenti database" e fare clic su "Visual Basic" per aprire l'editor di Microsoft Visual Basic. Fare 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 ()

2 Creare le variabili che si intende utilizzare per creare una nuova tabella e compilare un campo:

DBS fiochi come database

Dim rst come Recordset

Dim rowCntr As Integer

fNames Dim (10) come stringa

Set dbs = CurrentDb

3 Popolare la matrice di stringhe con i dati:

fNames (0) = "John"

fNames (1) = "Kitzia"

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 (FirstName TEXT (50));"

DoCmd.RunSQL (SQLStr)

5 Aprire la nuova tabella utilizzando un Recordset:

Set rst = dbs.OpenRecordset ( "MyNewTable")

6 Creare un ciclo for per popolare il campo "Nome" della tabella:

Per rowCntr = 0 a 9

rst.AddNew

rst.Fields (0) .Value = fNames (rowCntr)

rst.Update

Successivo rowCntr

7 Chiudere il recordset e terminare la subprocedure:

rst.Close

End Sub

8 Premere il tasto "F5" per eseguire la procedura. Tornare a Microsoft Access e fare doppio clic su "MyNewTable" per visualizzare il campo popolato.