Tornar o cliente inativo ,após um ano de cadastro com caixa de opção!

EU tenho uma tabela na qual o cliente precisa ficar como inativo após um ano de cadastro. Como fazer isso? Seria possível por exemplo : if data de solicitação - data atual = 0 então = inativo na combo box? Ou se possível uma outra maneira?
Eu controlo a validade do cliente baseado na data de solicitação/inscrição.

Olá Jorge, seja bem-vindo ao fórum!

No caso, do cliente inativo, você controla apenas pela data de cadastro ou você tem um campo inativo na tabela?

*Mudei o tópico de local, para melhor adequação.

Boa noite!
Preciso controlar a validade do cliente baseado na data de solicitação/inscrição e a data atual e se passado um ano de matricula , quero colocá-lo como inativo. Ou com texto ou com mensagem.

Desde de já obrigado...

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

Boa tarde!
Vou criar o módulo e testar.
Muito bom meu camarada, Valeu .Obrigado