[Resolvido]Comando UPDATE em VBA - Ajuda simples

Boa tarde a todos. Sou iniciante em access e VBA. Tenho uma tabela que alimenta um formulário.
O objetivo do formulário é simplesmente atualizar um campo da tabela, o campo data.
Criei um botão para atualizar e inseri os cód VBA mas não entendo porque não esta funcionando.
Vou deixar o link abaixo e o cód usado.
Obrigado

Link: dropbox.com/s/ymm7hqxww6uulm4/exames%20de%20funcionarios%20-%20problema.accdb?dl=1
[Não são permitidos links externos]  -  Copiar e colar no browser

Código:

Private Sub Comando214_Click()
   If Not IsDate(Me.data) Then
       MsgBox "O Campo não pode ficar em branco"
   Else
       DoCmd.RunCommand acCmdSaveRecord
       Dim codigo As Integer
       codigo = Me.Cod_Ct.Value
       
       SQL = "UPDATE tb_exame SET agendado = '" & Me.data.Value & "' WHERE Cod_Ct = " & codigo & ""
       
        CurrentDb.Execute SQL
        MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
            DoCmd.RunCommand acCmdRecordsGoToNext
   End If
End Sub

Tens algumas opções tais como

Me.Requery
DoCmd.RefreshRecord
DoCmd.Save

Depende do que queres fazer.
Podes por exemplo tentar assim

Private Sub Comando214_Click()
If Not IsDate(Me.data) Then
MsgBox "O Campo não pode ficar em branco"
Else
DoCmd.RunCommand acCmdSaveRecord
Dim codigo As Integer
codigo = Me.Cod_Ct.Value

SQL = "UPDATE tb_exame SET agendado = '" & Me.data.Value & "' WHERE Cod_Ct = " & codigo & ""

CurrentDb.Execute SQL
MsgBox ("Cliente foi agendado com sucesso!"), vbinformations + vbOKOonly, "Agenda"
Me.Requery
DoCmd.RunCommand acCmdRecordsGoToNext
End If
End Sub

Não funcionou, apareceu uma mensagem, parece que o problema de cód... deixei a foto em anexo.
Se possível, tenta modificar no link que passei, realmente não estou conseguindo..
Obrigado

Só para ajudar, não desfazendo a ajuda anterior;

Veja os meus comentarios dentro do VBA do form;

Download

JPaulo me salvando mais uma vez! muito obrigado pela ajuda e pelos ensinamentos!

Att

Obrigado pelo retorno o forum agradece.