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

Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en la suite de Microsoft Office. Visual Basic para Aplicaciones ( VBA ) se utiliza para automatizar tareas rutinarias en las aplicaciones de Microsoft Office. Los programadores a veces topan con la necesidad de actualizar el valor de un registro específico en una tabla mediante programación. En pocos pasos se 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 " Microsoft Visual Basic " .

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

escriba lo siguiente para crear las variables y establecer la base de datos actual :

sqlstr dévil como secuencia

rst As Recordset

Dim dbs como base de datos

Set dbs = CurrentDb
3

Escriba lo siguiente para crear una nueva tabla :

SQLString = " CREATE TABLE editRecord ( F_Name TEXTO, TEXTO l_name ) "
< p > DoCmd.SetWarnings False

DoCmd.RunSQL ( SqlString )
4

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

strsql = "INSERT EN VALORES editRecord ( 'Sebastián ', ' PUGA ') "

DoCmd.RunSQL ( strsql )

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

DoCmd.RunSQL ( strsql )

strsql = "INSERT INTO VALORES editRecord ( ' JUAN ', ' LOPEZ ')"

DoCmd.RunSQL ( strsql )

5

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

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

escriba lo siguiente para pasar a registrar el número tres y actualizar el campo " F_Name " a " JUAN ":

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

primera . Move ( 2 )

rst.Edit

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

rst.Update
7

Escriba el siguiente para cerrar el conjunto de registros y suelte la variable " dbs " de la memoria :

rst.Close

Set dbs = Nothing

Press "F5 " para ejecutar su nuevo subprograma.