MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Aplicar formatação a todos os campos em branco

    Compartilhe

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    [Resolvido]Aplicar formatação a todos os campos em branco

    Mensagem  LeoStar em Qua 20 Abr 2016, 06:42

    Caros colegas, venho tentar encontrar uma solução para o seguinte problema:

    Tenho num relatório e na secção de "detalhe" cerca de 70 campos. Alguns deles ficam em branco por falta de elementos, nunca se sabendo quais deles serão. Queria então que esses campos sem preenchimento ficassem com os limites definidos, de modo a chamar a atenção para a introdução posterior de dados, através de um formulário.

    Sei montar o seguinte código para um campo, a saber:

    Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
       If Me.FreguesiaP.Value = " " Then
           Me.FreguesiaP.BorderStyle = True
         
       Else
           Me.FreguesiaP.BorderStyle = False
      End If
     
    End Sub

    Como fazer para que a função possa identificar todos os campos - são de facto muitos - e cujo valor seja " " e desenhe os limites?

    Antecipadamente grato pela vossa resposta.

    Gabriel Brunichaki
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 139
    Registrado : 11/12/2015

    Re: [Resolvido]Aplicar formatação a todos os campos em branco

    Mensagem  Gabriel Brunichaki em Sex 22 Abr 2016, 12:30

    Bom dia!

    Não sei em que momento pretende fazer essa verificação, mas o código que uso para percorrer os objetos de um formulário é o seguinte:

    Dim ctl As Control

    For Each ctl In Me.Controls
     If ctl.ControlType = acTextBox Then
       If Len(ctl.Value & "") = 0 Then
         'Aqui vai a formatação caso o campo não tenha valores
       End If
     End If
    Next ctl

    Testa aí, abraço!


    .................................................................................
    “Não podemos solucionar problemas usando a mesma forma de raciocínio que usamos quando os criamos.”
    – Albert Einstein

    LeoStar
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 18/05/2010

    Aplicar formatação a todos os campos em branco

    Mensagem  LeoStar em Qua 27 Abr 2016, 02:05

    Caro colega do fórum...

    Valeu!... Consegui adaptar assim. Bem haja.

      Data/hora atual: Sab 03 Dez 2016, 15:33