MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Criar tabela via VBA e campos

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3951
    Registrado : 06/11/2009

    Criar tabela via VBA e campos Empty Criar tabela via VBA e campos

    Mensagem  Assis em 31/7/2019, 12:24

    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


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4466
    Registrado : 20/04/2011

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Silvio em 31/7/2019, 12:39

    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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3951
    Registrado : 06/11/2009

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Assis em 31/7/2019, 13:15

    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


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4466
    Registrado : 20/04/2011

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Silvio em 31/7/2019, 13:53

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3951
    Registrado : 06/11/2009

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Assis em 31/7/2019, 19:21

    Silvio

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4466
    Registrado : 20/04/2011

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Silvio em 31/7/2019, 19:32

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3951
    Registrado : 06/11/2009

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Assis em 31/7/2019, 19:59

    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  Very Happy , com a ajuda (sempre) dos nossos Mestres JPaulo, e Teixeira, etc.

    Procurar no forum por "Adiciona campo em tabelas "

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4466
    Registrado : 20/04/2011

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Silvio em 31/7/2019, 20:06

    Show de bola Assis...show de bola.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Conteúdo patrocinado

    Criar tabela via VBA e campos Empty Re: Criar tabela via VBA e campos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/11/2019, 16:29