Tecnología

Inicio

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

September 1

Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office. Visual Basic para Aplicaciones (VBA) se utiliza para automatizar tareas rutinarias en las aplicaciones de Microsoft Office. Los programadores a veces encuentran con la necesidad de actualizar el valor de un registro específico en una tabla mediante programación. En unos pocos pasos se puede escribir código VBA para actualizar un registro en una tabla.

Instrucciones

1 Seleccionar "Herramientas de base de datos." Haga clic en "Visual Basic" para abrir la ventana "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 actual:

Dim como secuencia sqlstr

Dim primera medida de registros

DBS dévil como Base de Datos

Set dbs = CurrentDb

3 Escribe lo siguiente para crear una nueva tabla:

sqlString = "CREATE TABLE editRecord (F_Name TEXTO, L_Name TEXTO)"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlString)

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

strsql = "INSERT INTO VALORES editRecord ( 'Sebastian', 'PUGA')"

DoCmd.RunSQL (strsql)

STRSQL = "INSERT INTO VALORES editRecord ( 'María', 'GONZALEZ')"

DoCmd.RunSQL (strsql)

STRSQL = "INSERT INTO VALORES editRecord ( 'John', 'LOPEZ')"

DoCmd.RunSQL (strsql)

5 Escribe lo siguiente para consultar la tabla y devolver todos los registros:

Establecer primera dbs.OpenRecordset = ( "SELECT editRecord. * FROM editRecord")

6 Escriba lo siguiente para pasar al registro de número de tres y actualizar el campo "F_Name" a "JUAN":

Establecer primera dbs.OpenRecordset = ( "SELECT editRecord. * FROM editRecord")

rst.Move (2)

rst.Edit

rst.Fields ( "F_Name"). Value = "JUAN"

rst.Update

7 Escriba lo siguiente para cerrar el conjunto de registros y suelte la variable "DBS" de la memoria:

rst.Close

Set dbs = Nada

Pulse la tecla "F5" para ejecutar su nueva subrutina.