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