[Resolvido]Multiplicação Automático

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

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

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?

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


oi,bom dia!
a onde eu coloco esse código?

Boa tarde
Coloque num módulo

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

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

Abraço
Obrigado pelo seu tempo e Esforço