MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal Empty [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

    Mensagem  chsestrem 18/7/2012, 16:14

    Bom dia amigos do Forum,

    Estou precisando fazer uma rotina para incluir campos na tabela temporaria que existem na tabela principal.

    Ex:

    TblPrincipal

    IdAluno
    NomeAluno
    Idade
    Municipio
    Estado

    TblTemporaria

    IdAluno
    NomeAluno

    Preciso Incluir na Tabela Temporaria os campos "Idade", "Municipio" e "Estado"

    Estou tentando como o código Abaixo:

    '***********************


    Private Sub Comando0_Click()

    Dim rs As DAO.Recordset
    Dim rst As DAO.Recordset
    Dim CampoTbPrincipal As DAO.Field
    Dim CampoTemp As DAO.Field
    Dim CampoAplicar As String
    Dim CampoValidar As String


    Set rst = CurrentDb.OpenRecordset("TblPrincipal")

    For Each CampoTbPrincipal In rst.Fields

    CampoAplicar = CampoTbPrincipal.Name

    Set rs = CurrentDb.OpenRecordset("TblTemporaria")

    For Each CampoTemp In rs.Fields

    CampoValidar = CampoTemp.Name

    Next

    If CampoAplicar <> CampoValidar Then

    rs.Close
    Set rs = Nothing

    CurrentDb.Execute ("ALTER TABLE AlunosII ADD COLUMN " & CampoAplicar & " TEXT;")

    End If

    Next

    MsgBox " Campos Incluidos!"

    rst.Close
    Set rst = Nothing

    End Sub

    Acontece o seguinte, o processo só roda sem erros se na Tabela temporaria não tiver

    nenhum campo com o mesmo nome da Tabela Principal.

    Alguém pode me ajudar como eu posso fazer isso???

    Sds,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    Gilberto Rocha
    Gilberto Rocha
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1027
    Registrado : 21/01/2010

    [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal Empty Re: [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

    Mensagem  Gilberto Rocha 18/7/2012, 16:30

    Essa rotina do JPaulo adiciona campos:

    Dim strAltera As String, strPass
    Dim strBancoExterno As Access.Application
    Dim strCaminho As String
    strCaminho = "Caminho completo de seu banco"
    strPass = "suasenha"
    Set strBancoExterno = CreateObject("Access.Application")
    strBancoExterno.OpenCurrentDatabase strCaminho, , strPass
    strAltera = "ALTER TABLE SuaTabelaTemporaria ADD COLUMN Idade integer, Municipio text(100), Estato text(2);"
    strBancoExterno.DoCmd.RunSQL strAltera
    strBancoExterno.CloseCurrentDatabase
    Set strBancoExterno = Nothing

    Mas eu prefiro criar a tabela temporária no Access mesmo e depois deletar os registros, é mais prático e rápido.
    chsestrem
    chsestrem
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

    [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal Empty Re: [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

    Mensagem  chsestrem 18/7/2012, 17:33

    Boas Gilberto,

    Este é um exemplo didático.

    Se você perceber, o código não atende minha necessidade, porque na verdade

    não sei quais campos já estão na Tabela Temporaria. O que preciso é que

    sejam incluidos os campos(colunas) da tabela principal que não estão na tabela temporaria.


    Pode ocorrer da tabela temporaria vir com todos os campos ou faltando um ou dois.



    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br

    Conteúdo patrocinado


    [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal Empty Re: [Resolvido]Incluir Campos na Tabela Temporaria que existem na Tabela Principal

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:08