[Resolvido]Atualizar campo ao iniciar o sistema?

Ola pessoal,

Tenho uma tabela chamada Projetos, nela tenho os seguintes campos:
DataFinal
NomeProjeto
Status

Preciso fazer com que sempre quando alguem acessar o sistema, seja iniciada uma SQL, ou codigo (nao sei), que verifique se algum projeto cadastrado (campo NomeProjeto) possui DataFinal maior que hoje, se houver entao atualiza o campo status para: finalizado.

Alguem pode me ajudar ?

Juliana

Oi Juliana;

Coloque este código no evento VBA ao carregar do seu form e altere para os nomes corretos;


Private Sub Form_Load()
Dim rst As Recordset

Set rst = CurrentDb.OpenRecordset("SuaTabela")

If rst.RecordCount = 0 Then Exit Sub
rst.MoveLast
rst.MoveFirst

Do While Not rst.EOF
If rst.Fields("SeuCampoDataFinal").Value > Date Then
rst.Edit
rst.Fields("SeuCampoStatus").Value = "Finalizado"
rst.Update

End If
rst.MoveNext
Loop
Set rst = Nothing
End Sub


Confira um pequeno exemplo;

Otima dica, deu certinho.

Obrigada.

Juliana.

Valew pelo retorno o forum agradece.