Saber prefill uma forma , enquanto a introdução de dados em outro no Microsoft Office Access pode economizar tempo quando você precisa de múltiplas formas com os mesmos dados inseridos . Access é um sistema de gerenciamento de banco de dados relacional oferecido na suíte Microsoft Office. Visual Basic for Applications (VBA) é uma linguagem de programação usada no Access para automatizar processos manuais . Um formulário é uma interface gráfica do usuário (GUI) usada no Access para fornecer uma maneira fácil de inserir dados no banco de dados . Instruções
1

Abra o Microsoft Office Access 2007, clique em "Banco de Dados em Branco " e selecione " Criar". Na aba "Criar" , selecione " Form Design ". Clique no controle de " Caixa de texto " no painel " Controles ", clique no formulário e criar um controle de caixa de texto . Clique no novo controle de caixa de texto e pressione " Ctrl" e "C" simultaneamente para copiar o controle.
2

pressione "Ctrl " e " V " duas vezes para colar dois novos controles de caixa de texto no formulário. Pressione "Ctrl " e " S " e clique em "OK" para salvar o formulário . Crie um novo formulário e criar três novos controles de texto usando o mesmo processo . Pressione "Ctrl " e " S " e clique em "OK" para salvar o formulário .
3

direito do mouse no Form1 e selecione " Propriedades". Em " Tipo de seleção : ", selecione " Form ". Selecione " [Procedimento de evento ]" ao lado de " On Load" e clique nas reticências ( ...) para abrir a janela do Microsoft Visual Basic.
4

Pressione " Ctrl" e "A" , em seguida, pressione "Excluir " para remover o código existente

Copie e cole o código abaixo em seu módulo: .

Private Sub Form_Load ()

DoCmd.OpenForm " Form2 " , acNormal

End Sub

Sub Text0_Change privado ( )

Forms! Form2 ! Text0.SetFocus

Forms! Form2 ! Text0.Text = Me.Text0.Text

End Sub

Sub Text1_Change privado ( )

Forms! Form2 ! Text1.SetFocus

Forms! Form2 ! Text1.Text = Me.Text1 . Texto

End Sub

Sub Text2_Change privado ( )

Forms! Form2 ! Text2.SetFocus

Formulários! Form2 ! Text2.Text = Me.Text2 . Texto

End Sub
5

Volte para a acessar a janela Microsoft e botão direito do mouse " Form1 " e selecione " Form View ".