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