[Resolvido]Criar tabela via VBA e campos

Boa tarde Amigos


Com este código crio uma tabela no Back_End

'-----------------------------
Private Sub Comando0_Click()
If IsNull(Me.CboTabela) Then
  MsgBox "Falta o Nome da Tabela a Ser Criada", vbInformation, "Aviso"
 Me.CboTabela.SetFocus
Exit Sub
End If

If MsgBox("Confirma a Criaçãoo da Tabela ? " & Me.CboTabela & "", vbYesNo + vbQuestion, "Aviso") = vbYes Then

Dim strCaminhoBe As String

strCaminhoBe = DLookup("path_0", "tblCaminhoBe")

CurrentDb.Execute "CREATE TABLE [" & strCaminhoBe & "]." & Me!CboTabela & "(Id Number, NomeProduto text);"

MsgBox "Tabela " & Me.CboTabela & " Criada", vbInformation, "Aviso"
 Me.CboTabela = ""
Else
MsgBox "Tabela " & Me.CboTabela & " N?o Foi Criada", vbInformation, "Aviso"
  Me.CboTabela = ""
End If
End Sub

'-------------------------------------

Em um formulário com um botão de "comando0"

Tem um campo chamado "CboTabela" aonde digito o nome da tabela que quero.

Minha duvida é poder criar os campos da nova tabela em campos do formulário, para a linha do código seguinte ?

CurrentDb.Execute "CREATE TABLE [" & strCaminhoBe & "]." & Me!CboTabela & "(Id Number, NomeProduto text);"

Como ficaria esta linha nos campos da tabela marcados a vermelho, com os campos a serem digitados em campos do formulário ?

Obrigado

Boa tarde Assis..

Um exemplo para lhe ajudar

CurrentDb.Execute "CREATE TABLE [" & strCaminhoBe & "]." & Me!CboTabela & "(Id Number AUTOINCREMENT, NomeProduto CHAR);"



Ou pegando um exemplo do Avelino Sampaio

Public Sub fncCriarTabela()
Dim strSql$
On Error GoTo trataErro

strSql = "CREATE TABLE tblProdutos (" & _
"idProduto AUTOINCREMENT," & _
"NomeProduto CHAR," & _
"DataLançamento DATE," & _
"QuantidadeEstoque INTEGER," & _
"ValorUnitário CURRENCY," & _
"Observação MEMO," & _
"Descontinuado YESNO)"

'-----------------------------------------------
'Executa a consulta e cria a tabela no front-end
'-----------------------------------------------
CurrentDb.Execute strSql
'-------------------------------------------
'Caixa de mensagem temporizada da dica 61
'-------------------------------------------
MsgBoxTimer 2, "Tabela tblProdutos criada...", vbOKOnly, "Aviso"
sair:
Exit Sub
trataErro:
'-------------------------------------------------------------
'Informa que a tabela já existe. Caixa de mensagem da dica 61
'--------------------------------------------------------------
If Err.Number = 3010 Then MsgBoxTimer 2, "A tabela já existe ...", _
vbSystemModal, "Aviso"
Resume sair:
End Sub

Silvio

Conheço esse código do Mestre Avelino Sampaio.

Só não sei como por os campos marcados a vermelho, estando esses nomes em caixas de texto de um formulário?

se for possível ??????????????????????

(Id Number, NomeProduto text)

Obrigado

Assis, manda um exemplo para mim com as entidades necessárias.

Silvio

É difícil desmembrar a minha BD para enviar parte dela, pois é composta por back e front, com password no Front.

Obrigado

Assis, mantenha na rotina os mesmos nomes então que irão fazer parte da tua tabela.


CurrentDb.Execute "CREATE TABLE [" & strCaminhoBe & "]." & Me!CboTabela & "(Id Number AUTOINCREMENT, NomeProduto CHAR);

IdNumber é incremento...auto numeração.

NomeProduto Varchar..texto.

Silvio

Já funciona

CurrentDb.Execute "CREATE TABLE [" & strCaminhoBe & "]." & Me!CboTabela & "(" & Me.CampoTbl & " Number, " & Me.CampoTbl2 & " Text);"


strCaminhoBe --> é o caminho das tabelas no BackEnd

Me!CboTabela --> é um campo do formulário onde digito o nome que quero para a tabela.

Me.CampoTbl --> é um campo do formulário onde digito o nome de um campo na tabela, do tipo numero .

Me.CampoTbl2 --> é outro campo do formulário onde digito o nome de outro campo na tabela, do tipo texto .

Pelo menos já dá para criar a tabela com um campo ID e outro do tipo texto.

Quando necessitar de mais campos na tabela já existe aqui no forum um exemplo criado por mim   , com a ajuda (sempre) dos nossos Mestres JPaulo, e Teixeira, etc.

Procurar no forum por "Adiciona campo em tabelas "

Obrigado

Show de bola Assis...show de bola.

Assis, e o retorno. Aguardamos.

Foi resolvido