Microsoft Access tem uma linguagem de script , Visual Basic for Applications (VBA ) , que você pode usar para executar operações de banco de dados , como consultas seleção e atualização . Programas VBA que realizam estas operações fazê-lo com objetos virtuais , incluindo as que representam as bases de dados, conjuntos de registros , definições de consulta atuais e outros elementos do banco de dados . Fazer atualizações ou qualquer tipo de operação de banco de dados em VBA envolve a compreensão como gerenciar esses objetos , que são coletados em uma hierarquia de árvore chamada de " modelo de objeto. " Realizar consultas de atualização com o Visual Basic permite que os desenvolvedores para alterar o conteúdo do banco de dados de forma rápida e com menos chances de erro do usuário. Coisas que você precisa
Microsoft Access
Mostrar Mais instruções
um

Open Access e criar tabela de exemplo a seguir, que o seu programa Visual Basic vai fazer uma operação de atualização em: criar um campo " campo1 " em uma tabela chamada " tabela 1 ", digite um registro em que o campo " . xyz"
2

Pressione " Alt- F11 " para entrar no Visual Basic ambiente de desenvolvimento integrado (IDE), em seguida, clique no comando "Inserir" do menu " Módulo " . Esta ação criará um novo espaço para você entrar em um programa VB
3

Cole ou digite o seguinte programa no módulo de código: .

Public Sub DoUpdate ()

Const tabname = " Tabela1"

Dim dbs Como DAO.Database

Dim rst Como DAO.Recordset

Set dbs = CurrentDb

Set rst = dbs.OpenRecordset ( tabname )

rst.MoveFirst

Do Until rst.EOF

Se rst campo1 = " ZXY !" Então

rst.Edit

rst ! campo1 = " abc"

rst.Update

rst.Close

dbs.Close

Exit Sub End If

rst.MoveNext

loop

End Sub

a afirmação " OpenRecordset " abre a " Tabela 1 "mesa para modificação, e define uma referência a essa tabela com a" variável rst " . O bloco de instruções que começa com " Until " e termina com " Loop" move-se através dos dados " rep" , em busca de um registro cujo valor é " xyz ". O programa usa o "Editar" e "Update" métodos de "rst " para alterar o valor deste registro, uma vez que encontra o registro "xyz" .
4

Execute o programa clicando em qualquer um dos seus declarações , em seguida, a tecla " F5 ". Pressione " Alt- F8 " para voltar ao Access. Você vai ver o valor "xyz" que você inseriu anteriormente agora alterado para " abc ".
5

Pressione " Alt- F8" para voltar para o IDE. Digite os seguintes novas declarações após o último " Dim " declaração na lista de programas : ( "Qual o valor que gostaria de procurar " )

f = InputBox

v = InputBox ( "O que valor que gostaria de mudar para ? ")

Estas declarações consultar o usuário para um valor a procurar, e um novo valor para mudar.
6

Digite sobre a declaração " Se rst campo1 =! " ZXY "Então, " com esta nova declaração :

Se rst campo1 = f Então

esta declaração e aquele em o próximo passo será usar o novo " f "e" "variáveis ​​para encontrar e atualizar o registro correto na tabela
7

Escreva sobre a declaração . " v rst campo1 = "abc" " com esta declaração :

rst ! campo1 = v
8

Execute o programa como você fez no passo 4. Responda às solicitações quando então aparecem , digitando " abc" para o valor de procurar, e "xyz" para o valor mudar. O programa revisto vai mudar o "abc " para " xyz ".