MS Access: query para crear tabla igual que otra

[fonx]

Después de haber buscado ayer por la tarde y hoy se ha cumplido la ley de Murphy q dice que cuando no encuentras algo después de intentarlo un rato largo postealo en un foro, justo después lo encontrarás tu solito por tus propios medios...

Hay mucha gente q pregunta algo en un foro y si después encuentra la solución no pone la respuesta...Como a mi no me gusta eso y para recibir ayudar hay q darla os pongo la solución PARCIAL que encontré. Repito es parcial, no encontré una sentencia SQL que me sirviera para access en mi propósito, lo que hice es lo siguiente:

Procedure TFNGC3.CrearTablaDatos(nombreTabla:string);
var
   sql:string;
begin
   sql:='CREATE TABLE '+nombreTabla+' AS(SELECT * FROM PlantillaDatos)';
   sql:='SELECT * INTO '+nombreTabla+' FROM PlantillaDatos';
   AComm1.CommandText := sql;
   AComm1.Execute();
   sql:='ALTER TABLE '+nombreTabla+' ADD CONSTRAINT PK_'+nombreTabla+' PRIMARY KEY (NOperacion)';
   AComm1.CommandText := sql;
   AComm1.Execute();
end;

Con el SELECT INTO copio la tabla origen (estructura + datos) en destino. No me hace falta vaciarla porque es una tabla vacía. Lo que pasa q las claves no me las copia así que acto seguido tengo q ponerlas yo con un ALTER TABLE.

Un saludo