[Resolvido]Verificar data antes de executar consulta.

Amigos boa tarde, mais uma vez venho lhe pedir ajuda.

Eu tenho uma consulta que atualiza um campo "status". Caso tenho algum registro no campo "data" com mais de 30 dias então atualiza o status para "NECESSARIO ANALISE".

"SeImed(Data()>SomData("d";30;[data_analise]);1;0)"

Onde eu chamo a consulta quando carrega o formulário.

Private Sub Form_Load()
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "Não foram localizados registros com esse CPF!", vbExclamation, "Erro!!!"
DoCmd.Close acForm, "frmCpf_tecnicos"
Else:
DoCmd.SetWarnings False
DoCmd.OpenQuery ("conVerif_status")
DoCmd.SetWarnings True
End If

Funciona, porém eu quero que a consulta só seja executada caso não exista nenhum registro dentro do mês vigente (putz falei lindo agora rs.)
Alguma dica?

up!

Insira num campo novo na sua consulta:


MesRef: IIf(DateSerial(Year(Date());Month(Date());1)=DateSerial(Year([data_analise]);Month([data_analise]);1);1;0)

No criterio desse campo, coloque 1

Se não devolver registros, não tem para o mês atual.

Desculpa a demora pelo retorno, tive um problema com a luz aqui.
Irei testar e já digo se deu certo.

Não funcionou :/

Criei um novo campo na consulta como disse, mas a consulta não atualiza o status :/

Bom, como eu quero que a consulta verifique data da consulta e veja se existe registro com mais de 30 dias e atualiza o status. Porém caso exista algum registro com menos de 30 dias, mantém o status atual.
Pensei com meus botões:

Como ficaria uma consulta que verifique se todos os registros estão com mais de 30 dias, se sim atualiza o status, senão, se exista algum registro com menos de 30 dias mantém o status atual?

Das duas uma....

Ou você cria duas consultas, em que:

A primeira terá o;

30Dias: IIf(Date()>DateAdd("d";30;[data_analise]);1;0)

E a segunda:

MesRef: IIf(DateSerial(Year(Date());Month(Date());1)=DateSerial(Year([data_analise]);Month([data_analise]);1);1;0)

Ou coloca as duas instruções numa só consulta, e filtra a gosto;

30DiasMesRef: IIf(Date()>DateAdd("d";30;[Data_Mov]);1;IIf(DateSerial(Year(Date());Month(Date());1)=DateSerial(Year([Data_Mov]);Month([Data_Mov]);1);2;0))

Entendi... Vou separar as consultas, e tratar cada caso individualmente.
Obrigado a ajuda.