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]Duvidas na escrita

    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Duvidas na escrita Empty [Resolvido]Duvidas na escrita

    Mensagem  brunopmelo 25/11/2013, 19:01

    boa tarde amigos

    estou com um problema em uma consulta

    quando escrevo no modo grafico, funciona perfeitamente

    INSERT INTO tblMensalidade ( MatriculaFk, data, valor )
    SELECT cod,DATEADD("m", 1, data) as tData,mValor
    FROM tblMatricula

    mais quando tento no vba nao funciona.

    CurrentDb.Execute " INSERT INTO tblMensalidade ( MatriculaFk, data, valor ) " _
    & "SELECT cod, DateAdd("m", 1, data) as tData ,mValor FROM tblMatricula ;"

    queria essa consulta no click de um botao...
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  Leandro 25/11/2013, 19:12

    Tente assim:


    CurrentDb.Execute "INSERT INTO tblMensalidade ( MatriculaFk, data, valor ) SELECT cod, DateAdd('m', 1, data) as tData ,mValor FROM tblMatricula;"


    Obs: Campos com nome "Data", "Valor", não são recomendados, pois podem coincidir com nomes próprios de funções, SEMPRE, nomeie de forma sugestiva, ex: "DataVencimento", "ValorFatura".

    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  brunopmelo 26/11/2013, 15:40

    leandro funcionou...

    sao os pequenos detalhes q fazem a diferença,

    bastou trocar " " por ' ' ...

    aproveitando sua atenção, como faço no lugar do dateadd

    colocar alguma instrução para que insira o mes atual ou mes de uma variavel?
    Leandro
    Leandro
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1601
    Registrado : 12/11/2009

    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  Leandro 26/11/2013, 16:44

    Tente assim:

    CurrentDb.Execute "INSERT INTO tblMensalidade ( MatriculaFk, data, valor ) SELECT cod, Month(Now()) As MesAgora ,mValor FROM tblMatricula;"

    Ou

    Dim intMes As Integer

    intMes = Month(SuaData)

    CurrentDb.Execute "INSERT INTO tblMensalidade ( MatriculaFk, data, valor ) SELECT cod," & " dtMes ,mValor FROM tblMatricula;"

    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  brunopmelo 27/11/2013, 12:40

    leandro obrigado pela atenção, deu certo mias de outra forma

    dessa forma registra na tabela apenas o mês da data,

    a intenção era que o select vai selecionar algumas datas da tblMatricula

    que serão adicionadas a tblMensalidade, oque eu queria era que quando

    for inserir na tblMensalidade, a consulta alterasse da data selecionada,

    apenas o mês, por exemplo: a intrução selecionaria da tblMatricula da data

    de 27/01/2013, e iria inserir na tblMensalidade a data de 27/11/2013, sendo

    o mes a ser adicionado seria através de uma variável ou da data atual, e possivelmente

    o ano, a intenção era criar uma função que faria pra mim o lançamento de mensalidades

    a a partir da data da matricula, então todo mês a função faria o lançamento de mais uma mensalidade,

    mais no mes da data atual, a data do dia do vencimento seria a mesma so mudaria o mes, e ano algumas vezes...
    avatar
    brunopmelo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/05/2011

    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  brunopmelo 1/12/2013, 21:32

    Boa noite

    quebrei a cabeça e estudei um pouco e consegui

    ficou dessa forma


    CurrentDb.Execute " INSERT INTO tblMensalidade ( MatriculaFk, data, valor ) " _
    & " SELECT cod,Format([data] ,'dd/ " & varMes & " /yyyy') ,mValor FROM tblMatricula " _
    & " WHERE day(Data) BETWEEN (" & varDia & ") and day(Date());"

    Conteúdo patrocinado


    [Resolvido]Duvidas na escrita Empty Re: [Resolvido]Duvidas na escrita

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:28