Cómo acceder a una VBA Incremental Record Search

Conocer cómo buscar a través de los registros de una tabla de base de datos mediante una consulta en Microsoft Office Access le puede ahorrar tiempo en la búsqueda de un texto específico en una columna. Visual Basic para aplicaciones , también conocido como VBA es un lenguaje de programación utilizado para automatizar tareas rutinarias en otras aplicaciones de MS Office de Microsoft Access y . El acceso es un sistema de gestión de base de datos relacional utilizada para diseñar bases de datos pequeñas . Una consulta se utiliza para recuperar información de una tabla de base de datos . Instrucciones
1

Abra la base de datos Access Northwind Microsoft Office. La base de datos Northwind se incluye en la suite de Microsoft Office.

2 Haga clic en " Herramientas de base de datos ", seleccione "Visual Basic " para abrir la ventana de Microsoft Visual Basic . Haga clic en el campo " Insertar" y seleccione " Módulo ".
3

Escriba lo siguiente para crear un nuevo subprograma:

searchRecords Private Sub ( )
< p > Pulse la tecla " Enter".
4

Escriba lo siguiente para crear la variable "rst " , lo va a usar para abrir un nuevo conjunto de registros :

rst As Recordset

Escriba lo siguiente para crear la variable " DBS " , lo va a usar para identificar la base de datos actual :

Dim dbs como base de datos

Escriba lo siguiente para crear la variable " stringToSearch " , lo va a usar para contener los caracteres que usted debe buscar en la búsqueda de registros :

stringToSearch dévil como secuencia

Escriba lo siguiente para configurar la base de datos actual como base de datos para su uso en esta subrutina :

Set dbs = CurrentDb
5

Escriba lo siguiente para definir la cadena que se va a utilizar para buscar los registros devueltos por la consulta , con el nombre de " Daniel ", como un ejemplo:

stringToSearch = " Daniel"
6

Escriba lo siguiente para abrir un nuevo conjunto de registros y consultar la tabla " clientes ":

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

Edite la siguiente línea de código para consultar otra tabla :

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

Escriba el siguiente para ir al primer registro de los resultados de la consulta :

rst.MoveFirst
7

Escriba el siguiente bucle a través del conjunto de registros mediante el incremento de la posición de registros y la búsqueda de " Daniel" en la columna " Nombre" :

Do While Not rst.EOF

Si rst.Fields ( "Nombre" ) . Valor = stringToSearch Entonces

MsgBox " encontrado" y stringToSearch & " en el número de registro :" & rst.AbsolutePosition

rst.MoveLast

demás

rst.MoveNext

End If

Loop

para buscar otros conjuntos de caracteres de una columna diferente , modifique las siguientes líneas de código:

stringToSearch = "text "

Si rst.Fields ( " 8

Escriba lo siguiente para liberar Las variables de la memoria :

rst.Close

dbs.Close

Press " F5 " para ejecutar la subrutina
< . br>