Cómo acceder a una búsqueda incremental Registro de VBA

Sabiendo manera de buscar en 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 utilizado 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 Neptuno Microsoft Office Access. La base de datos Northwind se incluye en el paquete de Microsoft Office.

2 Haga clic en "Herramientas de base de datos", a continuación, seleccione "Visual Basic" para abrir la ventana de Visual Básico Microsoft. Haga clic en el "insertar" y seleccione "Módulo".

3 Escribe lo siguiente para crear un nuevo subprograma:

searchRecords Private Sub ()

Presione ENTRAR."

4 Escriba lo siguiente para crear la variable "primero"; lo va a usar para abrir un nuevo conjunto de registros:

Dim primera medida de registros

Escriba lo siguiente para crear el "DBS" variables; lo va a usar para identificar la base de datos actual:

DBS dévil como Base de Datos

Escriba lo siguiente para crear la variable "stringToSearch"; lo va a usar para mantener los caracteres que se va a buscar en la búsqueda de grabación:

Dim como secuencia stringToSearch

Escribe lo siguiente para establecer la base de datos actual como base de datos para utilizar en este subprograma:

Set dbs = CurrentDb

5 Escribe lo siguiente para definir la cadena que se va a utilizar para buscar los registros devueltos por la consulta, utilizando 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":

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

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

Establecer primera dbs.OpenRecordset = ( "SELECT <nombre de tabla>. * FROM <nombre de tabla>")

Escribe lo siguiente para pasar al primer registro de los resultados de la consulta:

rst.MoveFirst

7 Escriba lo siguiente para recorrer el conjunto de registros mediante el incremento de la posición de registros y la búsqueda de "Daniel" en la columna "Nombre":

Aunque no hacer rst.EOF

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

MsgBox "Found " & stringToSearch & " in record number: " & rst.AbsolutePosition

rst.MoveLast

Más

rst.MoveNext

Terminara si

Lazo

Para buscar otros conjuntos de caracteres en una columna diferente, edite las siguientes líneas de código:

stringToSearch = "<su texto a buscar>"

Si rst.Fields ( "<nombre de columna>"). Value = Entonces stringToSearch

8 Escribe lo siguiente para liberar las variables de la memoria:

rst.Close

dbs.Close

Pulse la tecla "F5" para ejecutar la subrutina.