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.
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 |