MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Criar tabela via VBA e campos

    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Criar tabela via VBA e campos Empty [Resolvido]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 : 4624
    Registrado : 20/04/2011

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4225
    Registrado : 06/11/2009

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4624
    Registrado : 20/04/2011

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4225
    Registrado : 06/11/2009

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4624
    Registrado : 20/04/2011

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4225
    Registrado : 06/11/2009

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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 : 4624
    Registrado : 20/04/2011

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]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."
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2308
    Registrado : 22/11/2016

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]Criar tabela via VBA e campos

    Mensagem  DamascenoJr. em 23/5/2020, 14:25

    Assis, e o retorno. Aguardamos.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Assis
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Criar tabela via VBA e campos Empty Re: [Resolvido]Criar tabela via VBA e campos

    Mensagem  Assis em 23/5/2020, 16:06

    Foi resolvido


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: 25/10/2020, 19:42