Hallo,
Als ik volgende code lanceer krijg ik op lijn 3 "Object vereist"
het is de bedoeling dat alle knoppen knp_hfd_ onzichtbaar worden en de knp_admi, zichtbaar
Enig idee wat er fout gaat?
Als ik volgende code lanceer krijg ik op lijn 3 "Object vereist"
Code:
Private Sub Knp_hfd_Administratie_Click()
Dim ctl As Control
For Each ctl In frm.Controls
With ctl
Select Case .ControlType
Case acCommandButton
If Left(.Name, 8) = "knp_hfd_" Then
.Visible = False
End If
If Left(.Name, 8) = "knp_admi" Then
.Visible = True
End If
End Select
End With
Next ctl
End Sub
het is de bedoeling dat alle knoppen knp_hfd_ onzichtbaar worden en de knp_admi, zichtbaar
Enig idee wat er fout gaat?