[Resolvido]Duvidas na escrita

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...

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".

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?

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;"

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...

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());"