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

    [Resolvido]Multiplicação Automático

    Aleksandro Souza Silva
    Aleksandro Souza Silva
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Multiplicação Automático Empty [Resolvido]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 : 7746
    Registrado : 05/11/2009

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]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 : 11
    Registrado : 02/06/2020

    [Resolvido]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 : 7746
    Registrado : 05/11/2009

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]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
    Aleksandro Souza Silva
    Aleksandro Souza Silva
    Novato
    Novato

    Respeito às Regras 100%

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

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]Multiplicação Automático

    Mensagem  Aleksandro Souza Silva em 6/7/2020, 14:48

    oi,bom dia!
    a onde eu coloco esse código?
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]Multiplicação Automático

    Mensagem  Alexandre Neves em 6/7/2020, 17:46

    Boa tarde
    Coloque num módulo


    .................................................................................
    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 : 11
    Registrado : 02/06/2020

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]Multiplicação Automático

    Mensagem  Aleksandro Souza Silva em 7/7/2020, 12:24

    oi,Bom dia Amigo!
    tem possibilidade de mandar o arquivo.
    num conseguir fazer não
    coloquei no modulo mais num funcionou
    acho que sou burro d mais.

    Abraço

    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]Multiplicação Automático

    Mensagem  Alexandre Neves em 7/7/2020, 15:10

    Boa tarde
    O arquivo você já o tem. O formulário já o tem.
    Sabe criar o módulo do formulário? Se não sabe, abra o formulário em modo estrutura và a propriedades-> AoAbrir->Procedimento de evento->prima nos 3 pontos e abre-lhe o módulo do formulário. Cole o código. Para o executar prima F5 ou crie um controlo para chamar a execução do código


    .................................................................................
    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 : 11
    Registrado : 02/06/2020

    [Resolvido]Multiplicação Automático Empty Re: [Resolvido]Multiplicação Automático

    Mensagem  Aleksandro Souza Silva em 7/7/2020, 17:12

    Abraço
    Obrigado pelo seu tempo e Esforço

      Data/hora atual: 25/10/2020, 20:10