MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Validar Campos Sim/Não

    Compartilhe

    sidneyeg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 05/08/2013

    [Resolvido]Validar Campos Sim/Não

    Mensagem  sidneyeg em Sex 26 Maio 2017, 19:36

    Boa tarde

    Tenho um formulario que possue 6 campos Sim/Não

    Na hora de salvar, preciso verificar se pelo menos um dos campos foi assinalado.

    se foi Salvar, se não Dar uma mensagem que preciso assinalar pelo menus um deles.

    no aguardo

    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

    Re: [Resolvido]Validar Campos Sim/Não

    Mensagem  misaelsp em Sex 26 Maio 2017, 20:07

    O que vc precisa é de uma verificação Select case ou if.

    exemplo:

    if Campo1 & campo2 & campo3 & campo$ = -1 then
    msgbox "Existe algum preenchido"
    else
    msgbox "Preencha pelo menos um"
    end if

    use "&"para concatenar os campos
    -1 representa true que no caso seria se o campo sim/não estivesse marcado


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Validar Campos Sim/Não

    Mensagem  caiosouza em Sex 26 Maio 2017, 20:08

    Veja se atende a sua necessidade:

    Código:
    If Me.Seleção1 = True Then
        DoCmd.GoToRecord , , acNewRec
    Else
            If Me.Seleção2 = True Then
                DoCmd.GoToRecord , , acNewRec
            Else
                If Me.Seleção3 = True Then
                    DoCmd.GoToRecord , , acNewRec
                Else
                    If Me.Seleção4 = True Then
                        DoCmd.GoToRecord , , acNewRec
                    Else
                        If Me.Seleção5 = True Then
                            DoCmd.GoToRecord , , acNewRec
                        Else
                            If Me.Seleção6 = True Then
                                DoCmd.GoToRecord , , acNewRec
                            Else
                                MsgBox "Marque uma das opções!", vbInformation
                            End If
                        End If
                    End If
                End If
            End If
        End If


    .................................................................................
    A persistência leva ao sucesso!
    avatar
    caiosouza
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 229
    Registrado : 05/12/2016

    Re: [Resolvido]Validar Campos Sim/Não

    Mensagem  caiosouza em Sex 26 Maio 2017, 20:09

    Booooa misaelsp


    .................................................................................
    A persistência leva ao sucesso!

    misaelsp
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 96
    Registrado : 20/02/2013

    Re: [Resolvido]Validar Campos Sim/Não

    Mensagem  misaelsp em Sex 26 Maio 2017, 20:22

    Boa tarde CaioSouza, obrigado pelo crédito

    Esse seu exemplo é uma opção valida quando se quer verificar campo por campo separadamente.
    já no caso dele, que só quer saber se pelo menos um ta marcado, é mais facil pelo metodo que falei.


    mas mesmo assim fica pra estudo do nosso amigo sidneyeg
    Very Happy Very Happy


    .................................................................................
    É fazendo que se aprende a fazer aquilo que se deve aprender a fazer [Você precisa estar registrado e conectado para ver esta imagem.]

    sidneyeg
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 63
    Registrado : 05/08/2013

    Re: [Resolvido]Validar Campos Sim/Não

    Mensagem  sidneyeg em Sex 26 Maio 2017, 21:44

    Boa tarde

    usei o exemplo do misaelsp e funcionou Perfeitamente.

    Muito obrigado pela ajuda

    Abraço a todos.


    Sidney

      Data/hora atual: Qua 22 Nov 2017, 19:58