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

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).

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: