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.