Aprender a programar en Microsoft Office Access le puede dar la ventaja de aprovechar plenamente los beneficios de acceso . Visual Basic para Aplicaciones ( VBA) es un lenguaje de programación utilizado para automatizar tareas como la creación , edición y actualización de tablas. Puede crear funciones de programa interfaces de usuario ( UI) y para dar al usuario una forma amigable de manipular la información de base de datos . El uso de programación en Access permite ahorrar tiempo mediante la automatización de los procesos de rutina . Instrucciones
1

lanzamiento Access, haga clic en "Base de datos en blanco" y haga clic en el botón "Crear " para crear una nueva base de datos . Haga clic en la pestaña "Herramientas de base de datos " y haga clic en "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el menú " Insertar" y haga clic en " módulos" para insertar un nuevo módulo de código
2

Escriba lo siguiente para crear un nuevo procedimiento almacenado: .

ProgramInAccess Sub Private ()

Pulse " Enter".
3

Escriba lo siguiente para crear sus variables:

strSQL As String Dim

datastring As secuencia

MyRst As Recordset

myDbs Dim como base de datos

rowcnt Dim As Integer

Set myDbs = CurrentDb
4

Escriba el siguiente para crear una nueva tabla en la base de datos :

strSQL = " CREATE TABLE tableWithData ( TEXTO cliente ( 25 ) , del texto Producto ( 25 ) ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )
5

Escriba el siguiente para agregar una nueva fila de datos mediante el objeto " DoCmd ":

sqlstr = "INSERT INTO tableWithData ( [Cliente] , [ producto] ) "

sqlstr = sqlstr &" VALUES ( 'John ' , 'Escritorio '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )
6

Escriba lo siguiente para agregar una segunda fila de datos de la tabla mediante un objeto Recordset :

Set MyRst = myDbs.OpenRecordset ( " tableWithData ")

myRst.AddNew
myRst.Fields

( " Cliente " ) . Valor = " Susan "
myRst.Fields

( " Producto ") . Valor = " Laptop "

myRst.Update

myRst.Close
7

Escriba la siguiente consulta la tabla nueva :

strSQL =" . tableWithData SELECT * dE tableWithData ; "
8

Escriba lo siguiente para abrir la consulta utilizando un objeto Recordset y recorren el contenido de la tabla :

Set MyRst = myDbs.OpenRecordset ( strSQL )

myRst.MoveFirst

Para rowcnt = 0 Para myRst.RecordCount

datastring = "Cliente : " . y myRst.Fields ( 0 ) Valor y "