Cómo acceder Contar registros en consulta

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 realizado para recuperar datos de una tabla. En 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

Inicio 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 campo " Insertar" y seleccione " Módulo ".
2

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

getRecordCnt Sub Private ()

rst As Recordset

db As Database

sqlstr dévil como secuencia

sqlstr = " CREATE TABLE CityInfo (Ciudad TEXT ( 25 ) , TEXTO Estado ( 25 )); "

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CityInfo ( [Ciudad] , [ Estado] ) "

sqlstr = sqlstr y
" VALUES ( ' Arlington ',' Texas ), "

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )

sqlstr = " INSERT INTO CityInfo ( [ Ciudad ] , [ Estado] ) "

sqlstr = sqlstr &" VALUES ( " Watauga ", " Texas ),"

DoCmd.SetWarnings False

DoCmd.RunSQL ( sqlstr )

sqlstr = "SELECT * FROM CityInfo CityInfo ; ".

Set rst = db.OpenRecordset ( sqlstr )

rst.MoveFirst

rst.MoveLast

MsgBox rst.RecordCount

End Sub
3

Press "F5 " para ejecutar la subrutina . El código creará una nueva tabla, agregar registros a la misma, y abrir un conjunto de registros.