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]Contar Campos vazios no Form

    reynaldoas2012
    reynaldoas2012
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 27/04/2012

    [Resolvido]Contar Campos vazios no Form Empty [Resolvido]Contar Campos vazios no Form

    Mensagem  reynaldoas2012 em 9/10/2018, 22:42

    Olá pessoal,

    Alguém saberia como fazer para retornar a quantidade de campos nulos ou vazios no formulário, estou querendo colocar uma barra de progresso indicando o percentual de campos preenchidos no form.

    Obrigado.


    .................................................................................
    "Carpe diem"
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Contar Campos vazios no Form Empty Re: [Resolvido]Contar Campos vazios no Form

    Mensagem  FabioGO em 11/10/2018, 14:31

    A única forma que imagino é verificar campo a campo num laço usando o nome do campo.
    Mas para isso o nome dos campos deve ter um padrão, tipo: Texto1, Texto2, Texto3

    Num laço for, limitar até a quantidade de campos existentes e utilizar um contador para somar os campos nulos.
    Algo mais ou menos assim num botão de comando por exemplo:

    Código:
    Dim nomeCampo As String
    Dim contador As Integer

    For i = 1 To 3 'onde 3 é o total de caixas de texto a serem verificadas

    nomeCampo = "Texto" & i

        If IsNull(Me(nomeCampo)) = True Then
            contador = contador + 1
        End If
       
    Next

    Me.txtQtdNulos = contador 'Criar uma caixa de texto para pegar a quantidade de nulos

    Me.Refresh
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Contar Campos vazios no Form Empty Re: [Resolvido]Contar Campos vazios no Form

    Mensagem  Alexandre Fim em 11/10/2018, 15:27

    Olá Reynaldo,

    Segue função que verifica os controles (caixa de texto, caixa de combinação e etc) para habilitar para preenchimento. Voce pode adaptá-la à sua necessidade.

    Segue:

    Public Function FN_LiberaCampos()
    'Varialvel que assume o controle(textbox,combobox,listbox e etc) do form
    Dim ctl As control

    'For Each ctl In Me.Controls = Para cada controle no formulário

    For Each ctl In Me.Controls

    'Se o tipo do controle for Caixa de Texto então
    If TypeOf ctl Is TextBox Then
    ctl.enabled = True 'habilita
    End If

    'Se o tipo do controle for Caixa de Combinação então
    If TypeOf ctl Is ComboBox Then
    ctl.enabled = True 'habilita
    End If

    'Se o tipo do controle for Grupo de Opção então
    If TypeOf ctl Is OptionGroup Then
    ctl.enabled = True 'habilita
    End If

    'Se o tipo do controle for Caixa de Seleção então
    If TypeOf ctl Is CheckBox Then
    ctl.enabled = True 'habilita
    End If

    'Se o tipo do controle for Caixa de Listagem então
    If TypeOf ctl Is ListBox Then
    ctl.enabled = True 'habilita
    End If
    Next

    End Function


    Espero ter ajudado.

    Boa sorte
    reynaldoas2012
    reynaldoas2012
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 39
    Registrado : 27/04/2012

    [Resolvido]Contar Campos vazios no Form Empty Re: [Resolvido]Contar Campos vazios no Form

    Mensagem  reynaldoas2012 em 17/10/2018, 13:43

    Obrigado pessoal, me ajudaram bastante...
    Vou adaptar minha aplicação com estes exemplos.


    .................................................................................
    "Carpe diem"

      Data/hora atual: 8/7/2020, 04:49