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


2 participantes

    [Resolvido]Texto de mensagem

    Manuel Neto
    Manuel Neto
    Manuel Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 12
    Registrado : 11/12/2020
    • Mensagem nº1

    [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)
    • Ir para o topo
    Avelino Sampaio
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3883
    Registrado : 04/04/2010
    • Mensagem nº2

    [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 vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    • Ir para o topo
    Manuel Neto
    Manuel Neto
    Manuel Neto
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Angola
    Mensagens : 12
    Registrado : 11/12/2020
    • Mensagem nº3

    [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
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº4

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 12/5/2024, 03:25