Savoir si un objet existe dans mon formulaire.

Résolu
js8bleu Messages postés 576 Date d'inscription samedi 14 octobre 2006 Statut Membre Dernière intervention 27 janvier 2014 - 10 juil. 2012 à 15:06
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 - 10 juil. 2012 à 17:28
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

bigfish_le vrai Messages postés 1835 Date d'inscription vendredi 13 mai 2005 Statut Membre Dernière intervention 20 novembre 2013 13
10 juil. 2012 à 15:22
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+
3
js8bleu Messages postés 576 Date d'inscription samedi 14 octobre 2006 Statut Membre Dernière intervention 27 janvier 2014 2
10 juil. 2012 à 15:45
Bonjour bigfish_le vrai et Merci pour ton aide. ça marche nickel . Merci pour tout et prends bien soin de toi.

Cordialement.
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 223
10 juil. 2012 à 17:28
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
0
Rejoignez-nous