... Assinatura do site por 2 anos + Kit MontaRibbons + 3 Livros em PDF + Diversas Revistas (pdf) de brinde, por apenas R$125,00
(
podendo parcelar em até 10 vezes no cartão de crédito)...

Clique aqui e obtenha mais detalhes do nosso kit completo e de como comprar.


Aplicar formatação em todos os campos em branco

Usuário Leo:

Tenho em um relatório - Ficha de Aluno - e na seçã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 os pais do aluno, levando-os a preencherem manualmente os dados, de modo a permitir a posterior inserção, através de um formulário.

Sei montar o seguinte código para campo a campo:

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

Mas o que queria mesmo era montar uma função que pudesse identificar todos os campos em branco de uma só vez, pois são  muitos os campos para enumerar no código e destacar os limites (BorderStyle). É possível me ajudar?

Suporte:

Leo, utilize o FOR EACH para percorrer a coleção de controles. Algo assim:

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
Dim ctl As control
For Each ctl In Me.Controls
    Select Case ctl.ControlType
    Case acTextBox ', acComboBox, acListBox
    If IsNull(ctl) Then
        ctl.BorderStyle = 1
    Else
        ctl.BorderStyle = 0
    End If
    End Select
Next
End Sub

Usuário Leo:

Caro Mestre Avelino,... É isso mesmo. Ficou certinho.
 


 

 


Não há comentário

Envie seu comentário: