Ajuda em formulário de entrada e saída de férias

Olá a todos,

Venho perante vós a solicitar a vossa ajuda numa situação que não estou a solucionar e que provavelmente até possa ser fácil, mas não estou a conseguir.
Também pedir a vossa opinião sobre a base de dados que estou a fazer.
Então é assim:
Estou a fazer uma base dados para introduzir as férias dos colaboradores do organismo onde trabalho a que têm direito.
Tenho um formulário de entrada de férias (f_EntradaFeriasNii), onde introduzo as férias de cada colaborador a que tem direito.
Aqui deparo-me com um problema.
Em vez de introduzir para cada colaborador os dias a que tem direito, não haverá forma de automaticamente (código vba) assim que passe de ano cada colaborador automaticamente fique com novos dias a que tem direito.

Ex: O António a 1/1/2019 tem direito a 22 dias de férias; 2 dias por antiguidade no serviço; 1 dia por idade (a partir dos 40 anos de idade)
O mesmo António a 1/1/2020 tem direito a 22 dias de férias; 2 dias por antiguidade no serviço; 1 dia por idade (a partir dos 40 anos de idade) e assim sucessivamente para cada colaborador.
Sendo que cada colaborador tem direita a:
22 dias de férias por cada ano
1 dia de antiguidade por cada 10 anos de serviço no organismo
1 dia de idade a partir dos 40 anos idade(inclusive), de 10 em 10 anos.


Depois tenho outro formulário onde o colaborador pede os dias de férias, mas o que está a acontecer é que quando o número de dias é superior ao que tem direito por gozar ele fica depois com dias negativos e pretendo que ele não deixe introduzir o numero que pretende e envie mensagem a dizer que não tem direito a tantos dias.

Finalmente tenho um outro formulário (fFeriasPorGozar) em como faço para aparecer o total de dias do corrente ano (ex: ano 2020).

Peço a vossa ajuda.
Obrigado.
Um grande abraço a todos.

Anexo base dados.

Olá rmjsantos

Segue ai em anexo para ver se ajuda

A função é mais ou menos assim:

Código:


Function calculoferias(codfun, dtatual)

Dim dtr As Date, dtn As Date, qta, qtt, diasqtdtrab, diasqtdidade, TotalFerias
'qta = idade do empregaodo  qtt = anos trabalhado
dtr = Nz(DLookup("[DataRamo]", "t_Colaboradores", "[Nii] like '" & codfun & "'"))
dtn = Nz(DLookup("[DataNascimento]", "t_Colaboradores", "[Nii] like '" & codfun & "'"))
qtt = DateDiff("yyyy", CDate(dtr), dtatual)
qta = DateDiff("yyyy", CDate(dtn), dtatual)
diasqtdtrab = Int(qtt / 10):
If qta >= 40 Then
diasqtdidade = Int((qta - 40) / 10) + 1
Else
diasqtdidade = 0
End If
TotalFerias = 22 + diasqtdtrab + diasqtdidade
calculoferias = TotalFerias
End Function


Execute ela assim:

Código:

Qtd Férias =  calculoferias([Nii], [Data das férias])

imagem
Bons estudos!

Clebergyn
Agradeço muito a sua ajuda na resposta que deu, mas o que pretendia mesmo era, se possível, aparecer numa caixa de texto o valor das férias do ano actual, sem ter de actualizar com o botão.

Ex:

Total de dias de Férias ano 2020: 25
Total de dias de Férias gozados: 10
Total de dias de Férias por Gozar: 15

Depois, se tem como, ao introduzir o número de dias de férias que o colaborador pretende, se o número for maior ao que tem direito, ou seja, se o número for maior ao numero de férias por gozar, envie mensagem a dizer que não tem direito a tantos dias.
Isto no formulário f_SaidaFeriasNii.

Então

fiz ai no anexo, veja se ficou bom

vai no formulário pedido de ferias e teste la, só implementei lá

agora foi o anexo

veja a figura

Atualizei o ultimo anexo, de uma olhada

Olá Clebergyn
Desculpe a demora para responder.
Já vi as modificações que fez e é essa a ideia.
Apenas um senão, assim que se inicia o registo do pedido de férias, a cx de texto Férias Gozadas fica com o erro #Erro e sas Férias a Gozar com o erro #Tipo!, mas assim que se insere o nº de dias de férias a pedir faz o calculo e fica bem.
Dá para não aparecer o erro assim que se inicia o registo?

Dá para em cada pedido de férias, ficar o registo das férias a gozar?
Exemplo:
10/01/2020 pede 4 dias de férias tem 25 dias-4 dias que vai pedir fica com 21 dias de férias a gozar
17/02/2020 pede 6 dias de férias tem 21 dias-6 dias que vai pedir fica com 15 dias de férias a gozar, e assim sucessivamente.

O que acontece é que está afazer bem o cálculo mas altera todos os registos anteriores, e se fosse possível, pretendia a cada registo ficasse o nº de dias gozados de cada pedido. É possível?

Depois outra situação, no caso de se pedir um nº superior de férias a que se tem direito, a seguir à mensagem do nº máximo de férias, dá pra assim que se fecha a mensagem ter o foco nos dias a pedir?

E sem querer abusar da sua boa vontade, que desde já lhe agradeço muito a sua ajuda, dá para adicionar uma outra caixa de texto com Férias acumuladas, caso o colaborador não goze todas as suas férias do ano respectivo e transporte para o ano seguinte, ou seja:

Exemplo:

Ano 2019
Total de férias do ano 2019: 25
Total de férias gozadas: 12
Férias a Gozar:13

No ano de 2020
Total de férias do ano 2020: 25
Férias a Gozar:38
Férias acumuladas: 13


Obrigado.
Grande abraço.

Clebergyn

Já consegui colocar o foco no campo dias a pedir.

Não consegui foi tirar o erro (#Erro) e (#Tipo!) no campo Férias Gozadas e Férias a Gozar assim que se insere a data do pedido de férias.

Dá para ajudar?

Ok, estou fazendo aqui, mas vai demorar um pouquinho

Ok Clebergym
Muitíssimo obrigado.
Ficarei a aguardar.

Está ai em anexo

veja se ficou bom

bons estudos!

Obrigado Clebergyn
Vou testar e depois dou feedback.
Grande abraço

Olá Rui Santos

se precisar de mais coisas, pode entrar em contato

que fazemos

um abraço e bons estudos

Troque o outro por este

Corrigi erros