ubiquitour.com

Cómo establecer el valor de un registro específico en Access Visual Basic

Microsoft Office Access es un sistema de gestión de bases de datos relacionales incluido en la suite Microsoft Office. Visual Basic para aplicaciones (VBA) se utiliza para automatizar tareas rutinarias en aplicaciones de Microsoft Office. Programadores a veces tener la necesidad de actualizar el valor de un registro específico en una tabla mediante programación. En unos pocos pasos puede escribir código VBA para actualizar un registro en una tabla.

Instrucciones

1 Seleccione "Herramientas de base de datos." Haga clic en "Visual Basic" para abrir la ventana de "Microsoft Visual Basic".

Crear un nuevo sub escribiendo "Private Sub editRecordSet ()" y presionar "Enter".

2 Escriba lo siguiente para crear las variables y establecer la base de datos:

Dim sqlStr As String

Dim rst como conjunto de registros de

Dim dbs como base de datos

Set dbs = CurrentDb

3 Escriba lo siguiente para crear una nueva tabla:

sQLString = "Crear tabla EditarRegistro (F_Name texto, L_Name texto)"

DoCmd.SetWarnings False

DoCmd.RunSQL (sQLString)

4 Escriba lo siguiente para agregar tres registros de datos a la tabla:

strsql = "Inserte EditarRegistro VALUES('SEBASTIAN','PUGA')"

DoCmd.RunSQL (strsql)

strsql = "Inserte EditarRegistro VALUES('MARIA','GONZALEZ')"

DoCmd.RunSQL (strsql)

strsql = "Inserte EditarRegistro VALUES('JOHN','LOPEZ')"

DoCmd.RunSQL (strsql)

5 Escriba lo siguiente para la consulta de la tabla y devuelve todos los registros:

Set rst = dbs. OpenRecordset ("SELECT editRecord.* FROM EditarRegistro")

6 Escriba lo siguiente para pasar a grabar número tres y actualice el campo "F_Name" a "JUAN":

Set rst = dbs. OpenRecordset ("SELECT editRecord.* FROM EditarRegistro")

RST. Mover (2)

RST. Editar

RST. Fields("F_Name"). Valor = "JUAN"

RST. Actualización

7 Escriba lo siguiente para cerrar el Set de grabación y liberar la variable "dbs" de la memoria:

RST. Cerrar

Set dbs = nada

Presione "F5" para ejecutar la subrutina nuevo.