[Resolvido]Atualiza campo data conclusão quando checkbox é pressionada

Boa tarde pessoal,

Necessito da vossa ajuda pf no código VBA.

Quando clico na checkbox "concluido" atualiza o campo "Data conclusão" com a data atual (Now()). O código não gera qualquer erro, mas também não faz o pretendido.

Private Sub Concluidos_Click()
Dim Concluido As Boolean
Dim DataConclusão As Date
Dim agora As Date
agora = Now()
Concluido = Me!Concluido.Value
DataConclusão = Me!DataConclusão.Value
If Concluido = 0 Then DataConclusão = agora
Else
DataConclusão = ""
End If
Requery
End Sub

Alguem me pode ajudar pf.
Obrigado

Para que é que você necessita dessas variaveis ?

A checkbox marcada o valor é -1, desmarcada é 0

Concluidos_Click() é a checkbox ?

Private Sub Concluidos_Click()
    If Me!Concluido.Value = -1 Then
    Me.DataConclusão.Value = Now()
    Else
    Me.DataConclusão.Value = ""
    End If
End Sub

Mestre JPaulo

Eu sou um principiante no VBA é possivel que o enquadramento e sintax não esteja bem.
Agradeço desde já a sua ajuda.
Mas respondendo à questão: Concluido é o nome da checkbox. LOL Já vi o erro
E acertou em cheio no código e no objetivo.

Muito Obrigado JPAULO.

Obrigado pelo retorno o forum agradece.