marcelo3092 Sex 7 Abr - 8:52
Ola amigo bom dia entao no seu caso digamos que vc tem uma tabela com nome de TB_CLIENTE com os campos código, status, cliente, datasolicitacao.
ai vc poderia criar um modulo com uma função publica para ser chamada na hora que abre o sistema tipo num formulario de splash ou o formulario de login.
Cria um modulo novo e la vc vai coloca
Public Sub Valida_Cadastro()
Dim sSQL As String
Dim rst As DAO.Recordset
Dim Rst1 As DAO.Recordset
Dim nReg As Long
Dim nReg1 As Long
nReg1 = 1
sSQL = ""
sSQL = "Select * from TB_CLIENTE " ' abra e lê tabela
Set rst = CurrentDb.OpenRecordset(sSQL) 'abre o recordeset
rst.MoveLast
nReg = rst.RecordCount
rst.MoveFirst
While (Not rst.EOF)
If rst("datasolicitacao").Value + 365 <= Date Then 'Pega a Data de Solicitação mais 365 dias e comprara com a data hoje
DoCmd.SetWarnings False
Dim strSQL As String
'Monta a consulta atualização utilizando
strSQL = "Update TB_CLIENTE Set status = 'INATIVO' where código = " & rst("código").Value & ""
'Executa a consulta
DoCmd.RunSQL strSQL
MsgBox "Cadastro Vencido" ' aqui vc pode tirar que foi so pra teste
Else
MsgBox "Cadastro Nao Vencido" ' aqui vc pode tirar que foi so pra teste
End If
nReg1 = nReg1 + 1
rst.MoveNext 'vai para o proximo registro
Wend
rst.Close 'fecha o recorset
MsgBox "Cadastros Atualizados!!!", vbInformation, "Sistema" ' aqui vc pode tirar que foi so pra teste
End Sub
ai pra chamar ela basta vc colocal
call Valida_Cadastro em qualquer formulario de entrada
Início
