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


    [Resolvido]Texto de mensagem

    avatar
    Manuel Neto
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 7
    Registrado : 11/12/2020

    [Resolvido]Texto de mensagem Empty [Resolvido]Texto de mensagem

    Mensagem  Manuel Neto 6/3/2021, 07:25

    Bom dia pessoal, com estão?
    Tenho um problema, no meu formulário tenho três campos serviço, data e valor.
    A ajuda que preciso é a seguinte: primeiro insiro a data e depois de inserir o serviço, se o serviço for "Pagamento" e a data ser maior que dia 10 de qualquer mês, deve vir uma mensagem dizendo "pagamento fora do prazo"


    Última edição por Manuel Neto em 16/3/2021, 10:38, editado 1 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Texto de mensagem Empty Re: [Resolvido]Texto de mensagem

    Mensagem  Avelino Sampaio 6/3/2021, 09:17

    Olá, Manuel!

    Experimente o código abaixo no evento "antes de atualizar" do campo serviço:

    Private Sub serviço_BeforeUpdate(Cancel As Integer)
    If (Me!serviço = "pagamento") And (Day(Me!DataServiço) > 10) Then
    MsgBox "Pagamento fora do prazo...", vbCritical, "Aviso"
    Cancel = True
    Me!serviço.Undo
    End If
    End Sub


    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Manuel Neto
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 7
    Registrado : 11/12/2020

    [Resolvido]Texto de mensagem Empty Re: [Resolvido]Texto de mensagem

    Mensagem  Manuel Neto 16/3/2021, 10:40

    Muito obrigado avelino sampaio
    a linha de código funciono perfeitamente com eu queria

    Conteúdo patrocinado

    [Resolvido]Texto de mensagem Empty Re: [Resolvido]Texto de mensagem

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 15/5/2021, 12:13