[Resolvido]Código para desmarcar caixa de seleção

Boa noite a todos.

Preciso de um código que desmarque a caixa de seleção da tabela "Clientes" quando o ano virar. Quando um novo ano começar, automaticamente a caixa de seleção "Já enviado" de todos os clientes passe a ser: False. "desmarcadas"

Desde já agradeço a atenção de todos.

Ola;

Para fazer isso deve ter um campo com a data de qualquer coisa.
Somente assim você poderá comparar a ultima data com a virada do ano.

Se já existir esse campo, indique o nome da tabela e o nome dos campo checkbox e data.

Bom dia JP!!! Bom falar contigo novamente.

Sim, existe o campo "dataReg" da tabela "clientes" e o campo caixa seleção: "JáEnv" que deverá ser desmarcado na virada do ano.

Cole esta função feita em cima do joelho, num modulo e grave.

Pode chamar a função em qualquer parte do seu banco, assim;
Call CheckaViradaDoAno

Código:

Public Function CheckaViradaDoAno()
Dim CampoAno As String
Dim AnoData As String
Dim DB As Database
Dim rst As Recordset
'JPaulo @maximoaccess
'2017-10-31
Set DB = CurrentDb
'Ano tirado da data do sistema
AnoData = Year(Date)
 
'Abre a sua Tabela na ultima data registrada
Set rst = DB.OpenRecordset("Select Max(dataReg) as dt from clientes")

'Se não há registros na tabela, morre aqui
If rst.RecordCount = 0 Then Exit Function

'Pega o ano do ultimo registro
CampoAno = Year(rst(0))
'testa se existe diferença
If CampoAno <> AnoData Then
    MsgBox "O sistema irá reiniciar a tabela de Clientes" _
    & vbCrLf & " em função da virada do ano", vbInformation, "ATENÇÃO"
'atualiza todas as checkboxs para False
   CurrentDb.Execute "UPDATE clientes SET JáEnv=False"
End If

rst.Close: Set rst = Nothing
DB.Close: Set DB = Nothing
End Function


Maravilha JP!!!
Muito obrigado novamente pela atenção e paciência.
Grande abraço e um excelente dia pra você. Valeu!

Fico feliz.

Obrigado pelo retorno o forum agradece.