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]2 Funções if com 2 condições cada um só retornam a um valor

    avatar
    Heider Miranda
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/04/2020

    [Resolvido]2 Funções if com 2 condições cada um só retornam a um valor Empty [Resolvido]2 Funções if com 2 condições cada um só retornam a um valor

    Mensagem  Heider Miranda em 24/4/2020, 12:49

    Bom dia amigos do MaximoAcces, estou precisando de uma ajuda de vocês, criei esse código para reajuste de salário de funcionários baseado no código da função e no período do reajuste mas só tenho retorno de um resultado, não consigo retorno das 2 condições. Abraço a todos.





    Private Sub Bt_Reajuste_Click()
    DoCmd.OpenForm "F_FolhaDePagamento2", acNormal


    If (Forms![F_FolhaDePagamento2]![CodigoFuncao] = 75 And Forms![F_FolhaDePagamento2]![PeriodoReajuste] = 2) Then

    Forms![F_FolhaDePagamento2]!VHoraSalariosindicato = 7
    Forms![F_FolhaDePagamento2]!VHoraDaDiaria = 12
    Forms![F_FolhaDePagamento2]!VHoraNormal = 8
    Forms![F_FolhaDePagamento2]!VHoraExtra55 = 9
    Forms![F_FolhaDePagamento2]!VHoraExtra100 = 13
    Forms![F_FolhaDePagamento2]!VGratificacao = 100



    ElseIf ((Forms![F_FolhaDePagamento2]![CodigoFuncao] = 77) And (Forms![F_FolhaDePagamento2]![PeriodoReajuste] = 2)) Then


    Forms![F_FolhaDePagamento2]!VHoraSalariosindicato = 8
    Forms![F_FolhaDePagamento2]!VHoraDaDiaria = 13
    Forms![F_FolhaDePagamento2]!VHoraNormal = 9
    Forms![F_FolhaDePagamento2]!VHoraExtra55 = 10
    Forms![F_FolhaDePagamento2]!VHoraExtra100 = 14
    Forms![F_FolhaDePagamento2]!VGratificacao = 100


    End If

    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]2 Funções if com 2 condições cada um só retornam a um valor Empty Re: [Resolvido]2 Funções if com 2 condições cada um só retornam a um valor

    Mensagem  Alexandre Neves em 24/4/2020, 21:00

    Boa noite e bem-vindo ao fórum
    Porque vc está a colocar apenas o valor de Forms![F_FolhaDePagamento2]![PeriodoReajuste] = 2, tem de colocar outras condições para esta variável


    .................................................................................
    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
    avatar
    Heider Miranda
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 19/04/2020

    [Resolvido]2 Funções if com 2 condições cada um só retornam a um valor Empty Resolvido com função Select Case

    Mensagem  Heider Miranda em 25/4/2020, 13:07

    Alexandre, bom dia, agradeço demais a sua gentileza e disponibilidade em me atender, mas felizmente consegui resolver com a função Select Case

    Segue o código:

    Private Sub Bt_Reajuste_Click()
    DoCmd.OpenForm "F_FolhaDePagamento2", acNormal
    Dim CodigoFuncao As Integer
    Dim PeriodoReajuste As Integer
    Select Case CodigoFuncao And PeriodoReajuste

    Select Case CodigoFuncao And PeriodoReajuste
    Case Is = CodigoFuncao = 75 And PeriodoReajuste = 1
    Case Is = CodigoFuncao = 75 And PeriodoReajuste = 1
    Case Is = CodigoFuncao = 77 And PeriodoReajuste = 2
    Case Is = CodigoFuncao = 77 And PeriodoReajuste = 2





    MsgBox "Reajuste realizado com sucesso", vbInformation, "Aviso"




    End Select

    End Sub



    Grande Abraço

      Data/hora atual: 4/12/2020, 07:39