Cómo acceder a registros de conteo en Query

Microsoft Office Access es un sistema de gestión de base de datos relacional de uso frecuente para las bases de datos más pequeñas. Visual Basic para aplicaciones, también conocido como VBA, es un lenguaje de programación utilizado para automatizar tareas manuales en las aplicaciones de Microsoft Office. Una consulta SQL es una operación común que se realiza para recuperar datos de una tabla. En unos pocos pasos se puede escribir código VBA para consultar una tabla y mostrar el número de registros a través de un cuadro de mensaje.

Instrucciones

1 Iniciar Microsoft Office Access y seleccione "Base de datos en blanco" y luego haga clic en "Crear". Haga clic en "Herramientas de base de datos" y seleccione "Visual Basic". Haga clic en el "insertar" y seleccione "Módulo".

2 Copia y pega el siguiente código VBA en su módulo:

Private Sub getRecordCnt ()

Dim primera medida de registros

Dim db Como Base de Datos

Dim como secuencia sqlstr

Sqlstr = "CREATE TABLE CityInfo (TEXTO City (25), TEXTO Estado (25));"

DoCmd.RunSQL (sqlstr)

Sqlstr = "INSERT INTO CityInfo ([City], [Estado])"

Sqlstr = sqlstr y "VALUES ( 'Arlington', 'Tejas');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlstr)

Sqlstr = "INSERT INTO CityInfo ([City], [Estado])"

Sqlstr = sqlstr y "VALUES ( 'Watauga', 'Tejas');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlstr)

Sqlstr = "SELECT * FROM CityInfo CityInfo;".

Establecer primera = db.OpenRecordset (sqlstr)

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub

3 Pulse la tecla "F5" para ejecutar la subrutina. El código va a crear una nueva tabla, añadir registros a la misma, y ​​abrir un conjunto de registros.