1
Inicio Microsoft Office Access 2007 y seleccione "Base de datos en blanco ", y luego haga clic en " Crear". Haga clic en " Herramientas de base de datos ", seleccione "Basic . Visual "
2 Haga clic en el campo " Insertar" y seleccione " Módulo ".
Copia y pega el siguiente código en el módulo :
createNewTable Sub Private ()
rst As Recordset
db As Database
sqlstr dévil como secuencia
sqlstr = "CREATE TABLE CustomerInfo ( TEXTO Nombre ( 25 ) , TEXTO Apellidos ( 25 )); "
DoCmd.RunSQL ( sqlstr )
sqlstr = "INSERT INTO CustomerInfo ( [ Nombre] , [Apellidos ] ) "
sqlstr = sqlstr &" VALUES ( 'John ', ' Williams '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
sqlstr = "INSERT INTO CustomerInfo ( [ Nombre] , [ Apellidos] ) "
sqlstr = sqlstr & " VALUES ( 'Charles ', ' González '); "
DoCmd . EstablecerAdvertencias False
DoCmd.RunSQL ( sqlstr )
sqlstr = " CustomerInfo.FirstName SELECT "
sqlstr = sqlstr & " CustomerInfo.LastName EN CharlesInfo "
sqlstr = sqlstr y "FROM CustomerInfo "
sqlstr = sqlstr & " WHERE ( ( ( CustomerInfo.FirstName ) = ' Charles ')) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
End Sub
3 Pulse
"F5 " para ejecutar la subrutina . El código creará una nueva tabla y agregue dos nuevos registros de datos. Una nueva tabla se creará en " Nombre" es igual a " Charles ".