FabioPaes- Maximo VIP
- Respeito às regras :
Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013
FabioPaes 25/3/2018, 02:22
Olá, experimente isso:
Dim SQL as String
SQL = "SELECT * INTO NomeNovaTabela FROM tb2 WHERE 1=1" ' Neste caso duplica a tabela sem copiar os registros
CurrentDb.Execute (SQL)
tb2= É a Tabela que será copiada sua Estrutura.
Se quiser que o Usuario forneça o novo nome para a Tabela faça assim:
SQL = "SELECT * INTO " & Me.txtNomeTabela & " FROM tb2 WHERE 1=1" ' Neste caso duplica a tabela sem copiar os registros
Obs: Nunca Utilizei isso, Prefiro eu mesmo criar a tabela e deixar ela limpa, apenas manipulo os dados nela.
.................................................................................
_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!
O importante não saber tudo, mas sim a Onde procurar!