Notifications
Clear all

[Resolvido] Limpar Objetos criados em Tempo de Execução

2 Posts
1 Usuários
0 Reactions
723 Visualizações
(@ajwebtv01)
Posts: 0
New Member
Topic starter
 

Tentando incrementar meus forms, em vez de usar o listbox, criei um grid em tempo de execução.
Agora resolvi adicionar uma pesquisa, mas me deparei com o problema em limpar os objetos criados para apresentar somente os selecionados pela pesquisa.

 

 
Postado : 16/07/2023 8:13 am
(@ajwebtv01)
Posts: 0
New Member
Topic starter
 

Consegui resolver usando o código abaixo:

With Me.framecadclientes
Dim TipoCtl As control

For Each TipoCtl In .Controls
'Debug.Print TipoCtl.Name
If Left(TipoCtl.Name, 5) = "lblId" Or _
Left(TipoCtl.Name, 7) = "lblnome" Or _
Left(TipoCtl.Name, 10) = "lblcpfcnpj" Or _
Left(TipoCtl.Name, 8) = "lblFundo" Or _
Left(TipoCtl.Name, 9) = "Btneditar" Or _
Left(TipoCtl.Name, 11) = "Btnexcluir" Or _
TipoCtl.Name = "FundoHover" Then

'Set TipoCtl = Nothing
Me.Controls.Remove TipoCtl.Name
End If

Next TipoCtl

 
Postado : 16/07/2023 8:28 am