MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


3 participantes

    [Resolvido]Mensagem para o usuário

    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Mensagem para o usuário Empty [Resolvido]Mensagem para o usuário

    Mensagem  sueli1947 12/4/2017, 02:21

    Boa Noite a todos
    Uso o Access 2007
    Tenho um campo chamado composicao onde digito sim ou não.
    Quando for digitado N aparecer uma mensagem box " Não é necessária o preenchimento do campo abaixo" Digitador Aviso Importante.
    Quando for digitado S aparecer uma mensagem box " É necessária o preenchimento do campo abaixo" Digitador Aviso Importante.
    Att
    Sueli
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Mensagem para o usuário Empty Re: [Resolvido]Mensagem para o usuário

    Mensagem  CassioFabre 12/4/2017, 12:52

    Bom dia,

    No evento Após Atualizar do campo coloque:
    Código:
    If seucampo = "Sim" Then
        Msgbox "É necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    Elseif seucampo = "Não" Then
        Msgbox "Não é necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    Else
        Msgbox "Valor não reconhecido", vbCritical, "Erro"
        seucampo = null
    End if

    Abraço.
    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Mensagem para o usuário Empty Mensagem para o usuário

    Mensagem  sueli1947 12/4/2017, 23:58

    Olá Cassio Fabre
    O código ficou assim :

    Private Sub Pagar_Recibo_AfterUpdate()
    If Pagar_Recibo = "Sim" Then
    MsgBox "É necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    ElseIf Pagar_Recibo = "Não" Then
    MsgBox "Não é necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    Else
    MsgBox "Valor não reconhecido", vbCritical, "Erro"
    Pagar_Recibo = Null
    End If
    End Sub

    Não esta dando certo aparece quando digito n ou s a mensagem "Valor não reconhecido"
    Será porque na Tbl_Recibo no campo Pagar_Recibo esta como valor padrão "N"
    No Aguardo !
    Sueli
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]Mensagem para o usuário Empty Re: [Resolvido]Mensagem para o usuário

    Mensagem  philipp.moreira 13/4/2017, 02:53

    Boa noite!

    Tente assim:

    Código:
    Private Sub Pagar_Recibo_AfterUpdate()
    If Pagar_Recibo = "Sim" OR Pagar_Recibo = "S" Then
       MsgBox "É necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    ElseIf Pagar_Recibo = "Não" OR Pagar_Recibo = "N"Then
       MsgBox "Não é necessária o preenchimento do campo abaixo", vbInformation, "Digitador - Aviso Importante"
    Else
       MsgBox "Valor não reconhecido", vbCritical, "Erro"
    Pagar_Recibo = Null
    End If
    End Sub
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Mensagem para o usuário Empty Re: [Resolvido]Mensagem para o usuário

    Mensagem  CassioFabre 13/4/2017, 11:47

    Bom dia,

    Se você, ao invés de digitar SIM, digita apenas S, como o amigo acima completou, acrescente a cláudula OR no IF, como ele bem fez.

    Abraço.
    avatar
    sueli1947
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 122
    Registrado : 17/05/2013

    [Resolvido]Mensagem para o usuário Empty Mesagem para Usuário

    Mensagem  sueli1947 13/4/2017, 18:19

    Boa Tarde !!!
    Quero agradecer aos mestres :
    Cassio Fabre e Philipp Moreira pelo código ficou excelente !
    Vou dar como resolvido, DEUS abençoe a todos
    Att
    Sueli

    Conteúdo patrocinado


    [Resolvido]Mensagem para o usuário Empty Re: [Resolvido]Mensagem para o usuário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 19/5/2024, 08:30