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

    reynaldoas2012
    reynaldoas2012
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 36
    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 : 856
    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 : 36
    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"

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 16/12/2019, 07:09