bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Aplicar formatação a todos os campos em branco

Aplicar formatação em todos os campos em branco

Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito. 

Veja como comprar e saiba mais sobre o material oferecido,  clicando aqui.

Open v3

 

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: