MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

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

    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LeoStar 20/4/2016, 02: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
    Gabriel Brunichaki
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Gabriel Brunichaki 22/4/2016, 08: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
    avatar
    LeoStar
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  LeoStar 26/4/2016, 22:05

    Caro colega do fórum...

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 13:06