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]somar data com condições

    avatar
    Mariotom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 17/06/2014

    [Resolvido]somar data com condições Empty [Resolvido]somar data com condições

    Mensagem  Mariotom 01.09.14 20:42

    Ola;tempos atras tinha uma duvida e o forense Fernando Bueno; mostrou um exemplo; mas agora fiz um outro formulario e agora não consigo acrescentar dias em uma data para aparecer em outro campo; o codigo vba ja esta no arquivo; em anexo tem fotos para melhor entendimento; quem puder ajudar agradeço muito
    uso access 2013
    Anexos
    [Resolvido]somar data com condições Attachmentsomar data.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (254 Kb) Baixado 13 vez(es)
    LiveBrain
    LiveBrain
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 182
    Registrado : 15/05/2011

    [Resolvido]somar data com condições Empty Re: [Resolvido]somar data com condições

    Mensagem  LiveBrain 02.09.14 0:01

    o problema é que seu ListBox tem 2 colunas e do jeito que vc está informando, ele está retornando a coluna 1 que é o código da despesa.
    Para corrigir utilize o código abaixo


    Código:
    If Receita.Column(1, Receita.ListIndex) = "Credito" Then
          Me.Previsão_Receita = DateAdd("d", 30, Me.Data_Receita)
    ElseIf Receita.Column(1, Receita.ListIndex) = "Debito" Then
          Me.Previsão_Receita = DateAdd("d", 3, Me.Data_Receita)
    ElseIf Receita.Column(1, Receita.ListIndex) = "Vista" Then
          Me.Previsão_Receita = Me.Data_Receita
    End If


    Abraços



    .................................................................................
    Abraços

    Live Brain Tutoriais

    "Fraca é a pessoa que não conhece a força que possui nos amigos"
    avatar
    Mariotom
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 31
    Registrado : 17/06/2014

    [Resolvido]somar data com condições Empty ok resolvido

    Mensagem  Mariotom 02.09.14 11:27

    Obrigado pela ajuda livebrain;resolveu meu problema

    Conteúdo patrocinado


    [Resolvido]somar data com condições Empty Re: [Resolvido]somar data com condições

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 07.11.24 11:36