MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

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

    juninhomorvan
    juninhomorvan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 29/03/2016

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

    Mensagem  juninhomorvan 10/10/2023, 02:04

    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!


    Última edição por juninhomorvan em 11/10/2023, 18:23, editado 1 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3168
    Registrado : 13/12/2016

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

    Mensagem  Alexandre Fim 11/10/2023, 13:37

    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


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido] Calcular o valor do salário para todos os funcionários de forma mais rápida! Setinf11
    Sistemas e Tecnologia Ltda
    juninhomorvan
    juninhomorvan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 29/03/2016

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

    Mensagem  juninhomorvan 11/10/2023, 18:22

    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!"

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/2/2024, 09:49