[Resolvido]Atualização de consulta por trimestre

Bom dia todos
Estou tentando atualizar uma tabela de acordo com as funções abaixo.

Function primeiroDiaTrimestre1() As Date
primeiroDiaTrimestre1 = CDate("01/01/" & Year(Date))
End Function
Function ultimoDiaTrimestre1() As Date
ultimoDiaTrimestre1 = CDate("31/03/" & Year(Date))
End Function

'ATUALIZANDO DADOS 1º TRIMESTRE
Private Sub Comando8_Click()
Dim inicioTrim1, fimTrim1 As Date
inicioTrim1 = primeiroDiaTrimestre1
fimTrim1 = ultimoDiaTrimestre1
DoCmd.SetWarnings False

'Desta Forma atualiza o campo SltEqp da tabela Dados normalmente

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between #01/01/2013# And# 31/03/2013#));"

'Mais que queria inserir os dados da função para que o ano fique automático de acordo o ano atual, alterei para a forma abaixo mais não está dando certo.

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between inicioTrim1 And fimTrim1));"

Desde já agradeço!

Se a intenção é utilizar os trimestres do ano atual, poderia colocar uma combo para selecionar os trimestres de 1 a 4 e rodar a SQL mais ou menos assim:

Código:

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE [Dados]![SltEqp] Between #01 & "/" & Me.NomeDaCombo.Value & "/" Year(Date) And # & DateSerial(Year(Date()), Month(Date()) + 1, 0) & "/" & Me.NomeDaCombo.Value + 3 & "/" Year(Date);"

É mais ou menos assim, genericamente falando. Tente adaptar.

Obrigado Criquio!
Mais a intenção é ao clicar no Botão, atualizar os 4 trimestres ao mesmo tempo utilizando a função para cada trimestre, sem precisar selecionar o trimestre, tem como fazer isso
Desde já agradeço.

O que exatamente precisa atualizar e como precisa atualizar? Se é para os quatro trimestres, não seria o caso de se colocar quatro SQLs sendo uma para cada trimestre?

Exatamente Criquio, não coloquei os 4 SQL, para o post não ficar muito extenso.

Existe os campos Dados.EqpT1 (1º Trim), Dados.EqpT2 (2º Trim), Dados.EqpT3 (3º Trim), Dados.EqpT4 (4º Trim).

Tenho consultas de atualização para cada trimestre, que ao clicar no Botão, atualiza todas elas sem problemas, quando muda de ano tenho que editar a consulta alterando o ano de cada trimestre.

Só queria montar um SQL que atualizasse os campos relativos ao Trimestre (Dados.EqpT1, Dados.EqpT2, Dados.EqpT3 Dados.EqpT4) de acordo com as datas do campo SltEqp.
abraços!

Ah, acho que agora entendi. Talvez seja algo assim:

Código:

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between #01/01/# & Year(Date) And #31/03/# & Year(Date)));"

deu erro, expressao invalida

Tente trocando as serquilhas (#) por aspas.

troquei mais tá dando erro de compilação e; sintaxe

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between "01/01/"& Year(Date) And "31/03/" & Year(Date)));"

Tem que adaptar. Coloque por exemplo duas variáveis do tipo Date e coloque elas valendo a data inicial e a data final e depois passe as variáveis no lugar das datas na sql.

Criei a variável mais não consegui adaptar ao SQL

Private Sub AtualizaSaltosEquipado_Click()
Dim primeiroDiaTrimestre1, ultimoDiaTrimestre1 As Date
primeiroDiaTrimestre1 = CDate("01/01/" & Year(Date))
ultimoDiaTrimestre1 = CDate("31/03/" & Year(Date))

DoCmd.SetWarnings False

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between primeiroDiaTrimestre1 And ultimoDiaTrimestre1)));"

End Sub

Desculpe incomodar, pois sou iniciante no VBA

Finalmente consegui montar o SQL.
O problema estava no formato da data e tive que usar a função que transforma o formato.
Criei as variáveis do tipo Data e adaptei ao SQL.

Function dataSql(argDataHora As Date) As String
'Transforma a data no formato SQL -> #mm/dd/yy#
dataSql = "#" & Month(argDataHora) & "/" & Day(argDataHora) & "/" & Year(argDataHora) & "#"

End Function

'ATUALIZA SALTO EQUIPADO 1º TRIM
Private Sub AtualizaSltEqpTrim1_Click()
Dim primeiroDiaTrimestre1 As Date
Dim ultimoDiaTrimestre1 As Date
primeiroDiaTrimestre1 = CDate("01/01/" & Year(Date))
ultimoDiaTrimestre1 = CDate("31/03/" & Year(Date))

DoCmd.RunSQL "UPDATE Dados SET Dados.EqpT1 = Dados!SltEqp WHERE ((([Dados]![SltEqp]) Between " & dataSql(primeiroDiaTrimestre1) & " And " & dataSql(ultimoDiaTrimestre1) & " )); "

Obrigado Criquio, pelas dicas me ajudou muito.
Abraços!

O fórum agradece o retorno.