O seu aplicativo de acesso será mais fácil de usar se você campos autopopulate em uma mesa quando você sabe que os dados que vai neles. Isso pode ser feito usando o Visual Basic for Applications. Você pode usar o objeto Recordset para abrir a tabela de banco de dados e preencher todo o campo na tabela. O método AddNew é usado para criar um novo registro no objeto Recordset eo método Update salva as alterações feitas no registro . Instruções
1

Clique em "Ferramentas de banco de dados " e clique em " Visual Basic " para abrir o editor Microsoft Visual Basic. Clique no menu "Inserir" e clique em " Módulo " para adicionar um novo módulo de código . Criar um novo OnFilterComboChange adicionando o seguinte código: Private Sub

populateField ()
2

Criar as variáveis ​​que você vai usar para criar uma nova tabela e preencher um campo :
dbs

Dim Database

Dim rst Como Recordset

Dim rowCntr As Integer Dim

fNames (10) As String

Set dbs = CurrentDb
3

Preencher a matriz de cadeia com dados :

fNames (0) = "João"

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

Executar uma instrução SQL para criar uma nova tabela em seu banco de dados com um campo de texto :

sqlstr = " CREATE TABLE MyNewTable ( PrimeiroNome TEXT ( 50) ); "

DoCmd.RunSQL ( sqlstr )
5

Abra sua nova tabela usando um conjunto de registros:

Set rst = dbs.OpenRecordset ( " MyNewTable " )
6

Criar um loop for para preencher o campo " Nome" de sua tabela :

Para rowCntr = 0 To 9

RST . AddNew

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

rst.Update

Próxima rowCntr
7

Feche o conjunto de registros e terminar o seu OnFilterComboChange :

rst.Close

End Sub
8

Pressione " F5" para executar o procedimento . Volte para o Microsoft Access e clique duas vezes em " MyNewTable " para visualizar o campo povoada.