MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Multiplicação Automático

    Aleksandro Souza Silva
    Aleksandro Souza Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/06/2020

    Multiplicação Automático Empty Multiplicação Automático

    Mensagem  Aleksandro Souza Silva em 30/6/2020, 19:27

    Boa tarde!
    Mais uma duvida aqui.
    E possessível fazer uma Multiplicação Automaticamente no determinado dia.

    Se o final do mês for 28 quero que o dia 14 faça a multiplicação Automaticamente, utilizando o fator = 0,0019178082
    pega o valor digitado no campo VolumeTotalA20C no formulário e multiplica pelo fator 0,0019178082 automaticamente.

    Se o final do mês for 29 quero que o dia 15 faça a multiplicação Automaticamente, utilizando o fator = 0,0020547945
    pega o valor digitado no campo VOLUME TOTAL A 20°C no formulário e multiplica pelo fator 0,0020547945 automaticamente.

    Se o final do mês for 30 quero que o dia 16 faça a multiplicação Automaticamente, utilizando o fator = 0,0021917808
    pega o valor digitado no campo VOLUME TOTAL A 20°C no formulário e multiplica pelo fator 0,0021917808 automaticamente.

    Se o final do mês for 31 quero que o dia 17 faça a multiplicação Automaticamente, utilizando o fator = 0,0021917808
    pega o valor digitado no campo VOLUME TOTAL A 20°C no formulário e multiplica pelo fator 0,0021917808 automaticamente

    E no inicio de cada mês fazer a Multiplicação utilizando o fator 0,0020547945
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7644
    Registrado : 05/11/2009

    Multiplicação Automático Empty Re: Multiplicação Automático

    Mensagem  Alexandre Neves em 30/6/2020, 20:10

    Boa tarde
    E quando quer que faça essa operação?
    Na tabela deve ter controlo para saber se a operação já foi feita para que não a volte a fazer sobre o mesmo registo


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    Aleksandro Souza Silva
    Aleksandro Souza Silva
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 02/06/2020

    Multiplicação Automático Empty Multiplicação Automático

    Mensagem  Aleksandro Souza Silva em 1/7/2020, 17:48

    Boa tarde!
    O que quero e fazer a multiplicação automático somente nos dias 14,15,16,17 de cada mês
    só se o final de mês de cada um for 28,29,30,31
    e igual mencionei encima.

    Não estou conseguindo em enviar arquivo,
    o que sera?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7644
    Registrado : 05/11/2009

    Multiplicação Automático Empty Re: Multiplicação Automático

    Mensagem  Alexandre Neves em 3/7/2020, 22:32

    Boa noite
    Utilize o procedimento
    Código:
    Sub Multiplica()
        '--------------------------------------------------------------'
        '  código criado por Alexandre Neves, do Fórum MaximoAccess  '
        '    utilize o código livremente mas mantenha os créditos    '
        '--------------------------------------------------------------'
        Select Case Day(DateSerial(Year(Date), Month(Date) + 1, 1) - 1)
        Case 28
            If Day(Date) = 14 Then VolumeTotalA20C = VolumeTotalA20C * 0.0019178082
        Case 29
            If Day(Date) = 15 Then VolumeTotalA20C = VolumeTotalA20C * 0.0020547945
        Case 30
            If Day(Date) = 16 Then VolumeTotalA20C = VolumeTotalA20C * 0.0021917808
        Case 31
            If Day(Date) = 17 Then VolumeTotalA20C = VolumeTotalA20C * 0.0021917808
        End Select
    End Sub


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

      Data/hora atual: 5/7/2020, 07:20