Savoir si un objet existe dans mon formulaire. [Résolu]

Signaler
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
-
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
-
Bonjour à tous,

j'aimerai savoir comme faire pour savoir si le bouton nommé "cmdapercu" (par exemple) existe dans mon formulaire. Il s'agit d'une fonction que j'ai créé dans un module et que je souhaiterai appeler pour gérer les droits d'accès au lieu d'avoir une fonction par formulaire. Le problème est qu'il y a des formulaires qui n'ont pas de bouton nommé "cmdapercu" par exemple.

Merci d'avance.

Cordialement.

3 réponses

Messages postés
1835
Date d'inscription
vendredi 13 mai 2005
Statut
Membre
Dernière intervention
20 novembre 2013
10
salut,

peut être un truc du style :

Sub demo()
    Dim CtrlTest As String
    On Error Resume Next
        CtrlTest = MaForm.Controls.Item("cmdapercu").Caption
    If Not Err = 0 Then MsgBox "la cuillere n'existe pas ! "
End Sub


il y a peut être plus simple en VB6 mais cette méthode à l'avantage de ne pas utiliser de boucle !

A+
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
Bonjour bigfish_le vrai et Merci pour ton aide. ça marche nickel . Merci pour tout et prends bien soin de toi.

Cordialement.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour (et un salut à Bigfish),
Evitons la gestion d'erreur ===>>
Private Sub Command1_Click()
 MsgBox voir(Commandbidon)
 MsgBox voir(Command1)
End Sub

Private Function voir(toto) As Boolean
  voir = True
  If TypeName(toto) "Empty" Then voir False
End Function



________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ