MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    msgbox de confirmação e negação

    Compartilhe

    kakay
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 23
    Registrado : 16/04/2011

    msgbox de confirmação e negação

    Mensagem  kakay em Sex 25 Maio 2018, 16:58

    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

    akk_pain
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 17
    Registrado : 27/11/2017

    Re: msgbox de confirmação e negação

    Mensagem  akk_pain em Sex 25 Maio 2018, 18:00

    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

      Data/hora atual: Qua 20 Jun 2018, 12:41