Crear tablas con nombre de variable
Muy buenas Telemaco,
Espero que puedas ayudarme. La cuestión es que estoy haciendo una bd en donde en un formulario introduzco una entrada de nombre y prefijo cuyos valores se meterán en una tabla TIPOS. Bien... La pregunta es como puedo crear una nueva tabla cuyo nombre de tabla es el nombre que yo halla introducido en el campo nombre del formulario.
Espero que me halla explicado... Muchas gracias de antemano y ayudame por favor...
Espero que puedas ayudarme. La cuestión es que estoy haciendo una bd en donde en un formulario introduzco una entrada de nombre y prefijo cuyos valores se meterán en una tabla TIPOS. Bien... La pregunta es como puedo crear una nueva tabla cuyo nombre de tabla es el nombre que yo halla introducido en el campo nombre del formulario.
Espero que me halla explicado... Muchas gracias de antemano y ayudame por favor...
1 respuesta
Respuesta de telemaco
1
Esta seria la manera por código:
NombreTabla = "MiTabla"
SQL = "CREATE TABLE " & NombreTabla & " (ID INTEGER,Nombre TEXT, Apellidos TEXT, Fecha_Nacimiento DATETIME);"
CurrentDb.Execute SQL
OJO: si ya existe el te pedirá que si reemplazas...para evitar esto ELIMINE LA TABLA..
On Error Resume Next
NombreTabla = "MiTabla"
DoCmd.DeleteObject acTable, NombreTabla
SQL = "CREATE TABLE " & NombreTabla & " (ID INTEGER,Nombre TEXT, Apellidos TEXT, Fecha_Nacimiento DATETIME);"
CurrentDb. Execute SQL
PARA EVITAR EL ERROR que por primera vez no exita la tabla... se coloca el On Resume Next... el problema seria que el codigo tiene error, no te lo dira y pasara dfe larogo...
Att:telemaco
NombreTabla = "MiTabla"
SQL = "CREATE TABLE " & NombreTabla & " (ID INTEGER,Nombre TEXT, Apellidos TEXT, Fecha_Nacimiento DATETIME);"
CurrentDb.Execute SQL
OJO: si ya existe el te pedirá que si reemplazas...para evitar esto ELIMINE LA TABLA..
On Error Resume Next
NombreTabla = "MiTabla"
DoCmd.DeleteObject acTable, NombreTabla
SQL = "CREATE TABLE " & NombreTabla & " (ID INTEGER,Nombre TEXT, Apellidos TEXT, Fecha_Nacimiento DATETIME);"
CurrentDb. Execute SQL
PARA EVITAR EL ERROR que por primera vez no exita la tabla... se coloca el On Resume Next... el problema seria que el codigo tiene error, no te lo dira y pasara dfe larogo...
Att:telemaco
