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]Ajuda com Consulta

    jparpinfo
    jparpinfo
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 45
    Registrado : 27/06/2014

    [Resolvido]Ajuda com Consulta Empty [Resolvido]Ajuda com Consulta

    Mensagem  jparpinfo 20/8/2014, 16:20

    Amigos do forum;

    Tenho no cadastro do cliente um campo chamado dia do vencimento, como faço uma consulta pra quando chegar aquele dia ele me avisar, tipo
    Dia de vencimento  10   como faço ele me mostrar 10/08/2014 ou 10/09/2014.


    Última edição por jparpinfo em 11/9/2015, 14:00, editado 1 vez(es)
    efrain_ben-orion
    efrain_ben-orion
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 78
    Registrado : 28/04/2014

    [Resolvido]Ajuda com Consulta Empty Re: [Resolvido]Ajuda com Consulta

    Mensagem  efrain_ben-orion 20/8/2014, 18:50

    Você pode usar o Agora para estabelecer o comparativo, pegando apenas o dia "dd" com o Format.
    Aí no Evento "Ao abrir" ou "Ao Carregar" você insere o código que faz a verificação:

    Private Sub Form_Load() 'Evento ao carregar o formulário Cadastro_Cliente

    Dim v1 As Variant

    v1 = Format (nomeDaSuaTabela.dia_do_vencimento, 'dd') Like * Format(Now(), "dd")"

    If v1 <> "" Then
    MsgBox "Vencimento da Fatura de:" & vbCrLf & vbCrLf & Me.NomeCliente, & Now(), vbExclamation + _
    vbOKOnly + vbDefaultButton1, "Vencimento de Fatura"

    End If

    Me.Filter = v1
    Me.FilterOn = True

    End Sub

    Mais ou menos isso. Você faz um filtro e ele filtra de acordo com a data atual Now().
    Uma sugestão era usar um Formulário Contínuo para exibir todos os clientes que estão com vencimento na data atual, ou ainda em uma data que você informar.


    .................................................................................
    Quanto mais aprendemos, mas fica comprovada a nossa ignorância!

      Data/hora atual: 21/11/2024, 20:15