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

    [Resolvido]Criar tabela com campo relacionado

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Criar tabela com campo relacionado Empty [Resolvido]Criar tabela com campo relacionado

    Mensagem  baldocchi 21/8/2017, 15:57

    Bom dia a todos,

    Sei que pode parecer simples demais, mas estou apanhando para criar uma tabela com os seguintes critérios.
    Eu preciso criar 55 tabelas com esses mesmos campos, é uma tabela para cada Atividade.


    Campo UndGestora tem que pegar o campo UndGestora da tabela tGestoras;
    Campo Atividade tem que pegar o campo Atividade da tabela tAtividades;
    Campo TotAno tem que ser a soma de Jan a Dez;

    Abaixo está o primeiro código que eu tentei fazer funcionar sem os relacionamentos, mas não funciona

       Dim dbs As Database

       Set dbs = OpenDatabase(CurrentDb)

       dbs.Execute "CREATE TABLE 2100_33503900 " _
           & "(UndGestora CHAR, Atividade CHAR, " _
           & "DetDespesa VARCHAR, TotAno," _
           & "Jan MONEY, Fev MONEY, Mar MONEY, " _
           & "Abr MONEY, Mai MONEY, Jun MONEY, " _
           & "Jul MONEY, Ago MONEY, Set MONEY, " _
           & "Out MONEY, Nov MONEY, Dez MONEY, " _
           & ");"

       dbs.Close

    quem puder ajudar, agradeço muito



    Olha, eu consegui fazer isto aqui:

    Dim dbs As DAO.Database
    Dim dbsS As DAO.Recordset
    Dim StrX As String

    Set dbs = CurrentDb

       StrX = "CREATE TABLE 2100_33503900 (UndGestora CHAR(250), Atividade CHAR(250), DetDespesa CHAR(250), " _
           & "Jan MONEY, Fev MONEY, Mar MONEY, " _
           & "Abr MONEY, Mai MONEY, Jun MONEY, " _
           & "Jul MONEY, Ago MONEY, Set MONEY, " _
           & "Out MONEY, Nov MONEY, Dez MONEY);"

       dbs.Execute (StrX)




    Tá funcionando bem, mas eu não consigo criar o campo TotAno, que soma todos os meses do ano.
    Eu já tentei:



    Sum([Jan] +[Fev] +[Mar] +[Abr] +[Mai] +[Jun] +[Jul] +[Ago] +[Set] +[Out] +[Nov] +[Dez]) AS TotAno

    ([Jan] +[Fev] +[Mar] +[Abr] +[Mai] +[Jun] +[Jul] +[Ago] +[Set] +[Out] +[Nov] +[Dez]) AS TotAno


    Nenhuma das duas tentativas deu certo, por favor, se alguém puder ajudar....


    Obrigado de novo

      Data/hora atual: 12/6/2021, 23:56