[Resolvido] Calcular o valor do salário para todos os funcionários de forma mais rápida!

Olá, boa noite! Por gentileza, gostaria de pedir uma ajuda de vocês!

Tenho duas tabelas:

tabFuncionarios - campos (ID, nome, quantidade de salários, adicional, total salário)

tabSalárioMínimo - campos (ID, valor do salário mínimo, data da alteração)

Puxei um campo de texto dentro do formulário do cadastro do funcionário onde busco o valor do salário mínimo lá da tabela tabSalárioMínimo.

No formulário do cadastro dos funcionários, eu faço o cálculo do salário de cada um pela equação:
(VALOR DO SALÁRIO MÍNIMO * QUANTIDADE DE SALÁRIO + ADICIONAL) e o resultado manda para o campo Total Salário.

Então, eu preciso entrar e sair no cadastro de cada um para que a equação seja feita. Acredito que tenha uma forma mais rápida e automática de fazer esse cálculo após eu alterar o valor do salário mínimo, sem precisar entrar no formulário e no cadastro de cada um dos funcionários.

Desde já, agradeço!

Juninho, bom dia.

Sim, existem procedimentos mais rapido de fazer isso (funções VBA, Consulta atulização) mas, se for o caso, compartilhe uma copia do seu bd para analise e solução do problema.
Desta forma, fica mais fácil e rápido de resolver.

Valeu

Att,

Alexandre Fim

Olá, boa tarde!

Alexandre eu até iria postar o sistema de exemplo aqui, mas comecei a brincar um pouco com a inteligência artificial, junto com algumas alterações minhas e cheguei em uma resolução!
Caso alguém queira o código para estudos, só alterar alguns dados. Sucesso!

No formulário onde altero o salário mínimo, coloquei uma ação ao clicar no botão salvar:

Código:

Dim db As DAO.Database
    Dim rsTab1 As DAO.Recordset
    Dim rsTab2 As DAO.Recordset
    Dim valorCampo2Tab2 As Variant
   
    ' Abre a conexão com o banco de dados
    Set db = CurrentDb
   
    ' Abre o recordset para a Tab2 e obtém o valor do campo2
    Set rsTab2 = db.OpenRecordset("tbl_SalarioMinimo")
    If Not rsTab2.EOF Then
        valorCampo2Tab2 = rsTab2("ValorSalario").Value
    Else
        MsgBox "Não há registros na Tab2 para calcular a soma."
        rsTab2.Close
        Exit Sub
    End If
    rsTab2.Close
   
    ' Abre o recordset para a Tab1
    Set rsTab1 = db.OpenRecordset("tbl_CadFuncionario")
   
    ' Certifica-se de que o recordset não está vazio
    If Not (rsTab1.EOF And rsTab1.BOF) Then
        ' Move para o primeiro registro nos recordsets
        rsTab1.MoveFirst
       
        ' Percorre todos os registros
        Do While Not rsTab1.EOF
            ' Soma os campos para cada registro
            rsTab1.Edit
            rsTab1("TotalSalario").Value = rsTab1("QtdadeSalario").Value * valorCampo2Tab2 + rsTab1("ValorAdicional").Value
            rsTab1.Update
           
            ' Move para o próximo registro
            rsTab1.MoveNext
        Loop
    End If
   
    ' Fecha o recordset da Tab1
    rsTab1.Close
   
    ' Informa ao usuário que a operação foi concluída
    MsgBox "Salários dos funcionários atualizados com sucesso!"