Cómo acceder a la consulta de actualización a través de VB

Microsoft Access tiene un lenguaje de programación , Visual Basic para Aplicaciones ( VBA) , que se puede utilizar para realizar operaciones de base de datos como seleccionar y actualizar consultas. Programas VBA que realizan estas operaciones hacen con objetos virtuales, incluidas las que representan la base de datos actual, conjuntos de registros , definiciones de consulta y otros elementos de base de datos . Hacer cambios o cualquier tipo de operación de base de datos en VBA implica entender cómo manejar estos objetos , que se recogen en una jerarquía de árbol llamado el " modelo de objetos ". Realizar consultas de actualización de Visual Basic permite a los desarrolladores cambiar el contenido de bases de datos de forma rápida y con menos posibilidades de error del usuario. Cosas que necesitará
Microsoft Access
Ver Más instrucciones
1

Open Access y crear la tabla de ejemplo siguiente, que el programa de Visual Basic va a hacer una operación de actualización en: Crear un campo " campo1 " en una tabla llamada "Tabla1 ", a continuación, escriba un registro en ese campo : . " xyz"
2

Pulse " Alt -F11 " para entrar en el entorno de desarrollo integrado de Visual Basic ( IDE ) , a continuación, haga clic en el comando " Módulo " del menú " Insertar". Esta acción creará un nuevo espacio para que escriba un programa VB
3

Pegar o teclear el siguiente programa en el módulo de código: .

Public Sub doUpdate ()

Const tabName = " Tabla1"

Dim dbs Como DAO.Database

primer As DAO.Recordset

Set dbs = CurrentDb
< p> Set rst = dbs.OpenRecordset ( tabName )

rst.MoveFirst

¿ Hasta rst.EOF

Si rst ! campo1 = " zxy " Entonces
< p> rst.Edit

primera ! campo1 = " abc"

rst.Update

rst.Close

dbs.Close
< p > Exit Sub End If

rst.MoveNext

Loop End Sub

la declaración " OpenRecordset " abre la "Tabla1 "Tabla de modificación y establece una referencia a la mesa con la" variable rst " . El bloque de sentencias que comienza con " Do Until " y termina con " Loop " se mueve a través de los datos de " RST" , en busca de un registro cuyo valor es " xyz ". El programa utiliza la " actualización" métodos de " primera " en "Editar" y cambiar el valor de este registro , una vez que encuentre el disco " xyz" .
4

Ejecute el programa haciendo clic en cualquiera de sus declaraciones , a continuación pulsar "F5 ". Pulse la tecla " Alt- F8 " para volver a Access. Verá el valor " xyz" que ha introducido anteriormente ahora ha cambiado a " abc ".
5

Prensa " Alt- F8 " para volver al IDE. Escriba las nuevas declaraciones siguientes después de la última declaración " Dim " en el listado del programa :

f = InputBox ( "¿Qué valor le gustaría buscar" )

v = InputBox ("¿Qué valor usted tiene gusto de cambiar a ? " )

Estas instrucciones de consulta al usuario un valor a buscar, y un nuevo valor para cambiar .
6

Tipo sobre la declaración " Si la primera campo1 = " zxy " Entonces " con esta nueva declaración :

Si rst campo1 = f Entonces

esta declaración y el que está en el siguiente paso será utilizar el nuevo "f ! "y " "variables para encontrar y actualizar el registro correcto de la tabla
7

Tipo sobre la declaración . " v rst campo1 = " abc ", " con esta declaración :

rst ! campo1 = v
8

Ejecute el programa como lo hizo en el paso 4 . Responda a los mensajes que aparecen a continuación , escribir " abc " para el valor de buscar, y " xyz" para el valor de cambiar. El programa revisado cambiará el "abc " a " xyz ".