msgbox de confirmação e negação

Olá pessoal bom dia!

Gostaria da ajuda dos mestres aqui, com a seguinte questão, se puderem me ajudar é claro.

Tenho em no FRM o campo CERTIFICADO do tipo sim/não. verdadeira ou falso.
E outro campo chamado AUTENT_CERT  do tipo data.


Gostaria que:

Quando o campo CERTIFICADO fosse verdadeiro, o campo AUTENT_CERT recebesse a data e hora.
E quando esse campo fosse verdadeiro e por algum motivo fosse desmarcado, o campo CERTIFICADO ficasse vazio, porém com a AUTENTICAÇÃO data e hora atual

Assim saberia se algum usuário marcou o campo e na sequencia desmarcou.
Tentei usar um código que encontrei aqui no forum, mais não tive sucesso total


Segue exemplo:

Private Sub CERTIFICADO_Click()

    Dim CERTIFICADO As VbMsgBoxResult
    CERTIFICADO = MsgBox("Tem certeza que deseja prosseguir com esta ação, irá gerar uma AUTENTICAÇÃO que não poderá ser EXCLUÍDA?", vbYesNo, "Tomando uma decisão")
    If resultado = vbYes Then
         MsgBox "Você acaba de confirmar a AUTENTICAÇÃO"
         AUTENT_CERT = Date
    Else
         MsgBox "Você acaba de confirmar a EXCLUSÃO"
         AUTENT_CERT = Date
    End If
   
End Sub


Atenciosamenete,
Ademilson Santos

Olá pessoal bom dia!

Gostaria da ajuda dos mestres aqui, com a seguinte questão, se puderem me ajudar é claro.

Tenho em no FRM o campo CERTIFICADO do tipo sim/não. verdadeira ou falso.
E outro campo chamado AUTENT_CERT  do tipo data.


Gostaria que:

Quando o campo CERTIFICADO fosse verdadeiro, o campo AUTENT_CERT recebesse a data e hora.
E quando esse campo fosse verdadeiro e por algum motivo fosse desmarcado, o campo CERTIFICADO ficasse vazio, porém com a AUTENTICAÇÃO data e hora atual

Assim saberia se algum usuário marcou o campo e na sequencia desmarcou.
Tentei usar um código que encontrei aqui no forum, mais não tive sucesso total


Segue exemplo:

Private Sub CERTIFICADO_Click()

   Dim CERTIFICADO As VbMsgBoxResult
   CERTIFICADO = MsgBox("Tem certeza que deseja prosseguir com esta ação, irá gerar uma AUTENTICAÇÃO que não poderá ser EXCLUÍDA?", vbYesNo, "Tomando uma decisão")
   If resultado = vbYes Then
        MsgBox "Você acaba de confirmar a AUTENTICAÇÃO"
        AUTENT_CERT = Date
   Else
        MsgBox "Você acaba de confirmar a EXCLUSÃO"
        AUTENT_CERT = Date
   End If
 
End Sub


Atenciosamenete,
Ademilson Santos

O Código precisa de uns ajustes, tente:

Código:


Private Sub CERTIFICADO_Click()
    Dim resultado as vbmsgboxresult
    resultado = MsgBox("Tem certeza que deseja prosseguir com esta ação, irá gerar uma AUTENTICAÇÃO que não poderá ser EXCLUÍDA?", vbYesNo, "Tomando uma decisão")
    If resultado = vbYes Then
         MsgBox "Você acaba de confirmar a AUTENTICAÇÃO"
    Elseif vbno then
         MsgBox "Você acaba de confirmar a EXCLUSÃO"
    End If
   AUTENT_CERT = Date
End Sub