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

    Dúvida: VBA para "faltam X dias para vencer o boleto"

    avatar
    saulosa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 21/06/2016

    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  saulosa 28/1/2018, 23:32

    Mestres,

    Estou fazendo um sistema para gestão de boletos.
    Quero atualizar o campo status do boleto (pendente/atrasado) conforme a data de hoje.

    Tenho os seguintes campos
    [status] / [datavencimento]


    Fiz o seguinte macro, mas não deu certo
    Alguém poderia me ajuda?





    Private Sub Form_Load()

    Dim var_dias As Date
    Dim var_hoje As Date

    var_hoje = Date

    var_dias = var_hoje - Me.datavencimento

    If var_dias < 0 Then

    Me.TPA_status = "Atrasada"

    End If


    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho 29/1/2018, 10:44

    Saulo

    Experimente o código abaixo.

    Detalhe, se for navegar nos registros em um formulário, esse código deve estar na propriedade No Atual do formulário.

    [ ]'s

    Código:

    Dim var_dias As integer
    Dim var_hoje As Date
    Dim dvencto as Date
    dvencto = me.datavencimento

    var_hoje = format(Date,"dd,mm,yy")

    var_dias = DateDiff("d",var_hoje,dvencto)

    If var_dias < 0 Then

    Me.TPA_status = "Atrasada"

    End If


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    saulosa
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 21/06/2016

    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  saulosa 8/2/2018, 14:44

    Amigo, obrigado pela ajuda!
    Já está funcionando!

    Mas no meu formulário ele acabou gerando alguns erro (indiretos):

    1) Quando a data de vencimento está vazia... dá msg de erro.

    2) Quando eu pago o campo status (deixando vazio novamente), depois de atualizo o formulário ele não voltar a preencher com atrasado
    Tem diferença o campo estar vazio por se tratar de um registro novo e quando fica vazio pelo conteúdo ter sido apagado?
    qual a diferença em "" e Null ?

    3) Meu formulário está no modelo contínuo, então só atualiza no primeiro registro... os outros ficam sem atualizar o código

    Poderia me ajudar?

    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho 8/2/2018, 16:10


    Sim existe diferença:

    Quando escrevemos = "" quer dizer campo vazio, ou sequencia vazia. Quando uma variável não é iniciada.

    Já o campo é nulo quando iniciado mas não tem dados. Veja a ajuda do Access, para mais detalhes.

    Para formulário continuo, o código é diferente.

    Estou fora de casa, se até a noite ninguém te ajudar, eu o faço.

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Noobezinho 8/2/2018, 17:38

    Esqueci de dizer, depois colo na outra mensagems

    Anexe as tabela(s) , consulta(s) e formulário(s) em questão.



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


    Dúvida: VBA para "faltam X dias para vencer o boleto" Empty Re: Dúvida: VBA para "faltam X dias para vencer o boleto"

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 20:49