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

    Muitos IF's dentro de uma rotina VBA

    avatar
    Guara74
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 30/08/2019

    Muitos IF's dentro de uma rotina VBA Empty Muitos IF's dentro de uma rotina VBA

    Mensagem  Guara74 em 4/12/2019, 13:29

    Boas pessoALL

    Tenho um probleminha em um cadastro de funcionários.

    Seguinte: Tenho uma variant chamada Campos, que representam os campos de preenchimento obrigatório na hora de fazer o cadastro.
    Entretanto tenho alguns If's a serem considerados:

    O colaborador PODE ser : Temporário, Efetivo, Pessoa Física, Pessoa Jurídica, etc... cada um destes tipos tem um if
    Exemplo:

    SE > 18 Anos, Masculino - Campos deve conter nome, endereço, etc... + Número de Reservista militar (obrigatório)

    SE for contratação temporária - Campos deve conter Previsão de desligamento

    Tem como desacoplar isso??? Ou vou partir pro Switch Case mesmo???
    Vou postar somente um pedaço do código pra não ficar muito chato.

    Código:

     Me.tbx_Msg = "1. Validando preenchimento dos campos críticos"
        DoEvents
        ' ------- Teste de campos obrigatórios se estiverm vazios -----
        If ehCLT Then
            If Not temReservista Then
        
                Campos = Array("Nome", "Sexo", "Nasc", "EstCivil", "Instrução", "Naturalidade", "Endereço", "Cidade", _
                               "Telefone", "RG", "RGEmissor", "RGU", "RGData", "TituloEleitor", "Zona", "Seção", _
                               "TitData", "CPTS", "Serie", "CPTSData", "PIS", "Banco", "CartãoSUS", "CodAudit", "Função")
            Else 'No caso de ter reservista
                
                Campos = Array("Nome", "Sexo", "Nasc", "EstCivil", "Instrução", "Naturalidade", "Endereço", "Cidade", _
                               "Telefone", "RG", "RGEmissor", "RGU", "RGData", "TituloEleitor", "Zona", "Seção", _
                               "TitData", "CPTS", "Serie", "CPTSData", "PIS", "Banco", "CartãoSUS", "CodAudit", "Função", "Reservista", "ReservCateg")
            End If

    Obrigado
    avatar
    renpv
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

    Muitos IF's dentro de uma rotina VBA Empty Re: Muitos IF's dentro de uma rotina VBA

    Mensagem  renpv em 11/12/2019, 12:44

    Amigo, qual é exatamente o problema? Se o código está funcionando não há problema.

    Se eu entendi bem você gostaria de refatorar seu código. É isso?

      Data/hora atual: 28/11/2020, 01:20