Comment passer un nom de Form en argument à une fonctionRésolu

Question

Bonjour,

J'ai trouv&#233; un bout de code pour passer un Nom de Form en argument &#224; une fonction, sur le site de Microsoft... Mais quand j'essaye, ca ne marche pas, Pb de syntaxe surement, j'essaye dans tous les sens, il ne veut rien savoir...

Si on prend une fonction TotoText qui ecris Toto ds des textBox du formulaire mentionn&#233; :

Sub TotoText(frmCurrent As Form)
   Dim ctlCurrent As Control


   For Each ctlCurrent In frmCurrent.Controls
      If ctlCurrent.ControlType = acTextBox Then
         ctlCurrent.Value = "toto"
      End If
   Next ctlCurrent
End Sub

Si je veux &#233;crire toto dans mon Formulaire qui s'appelle : "FormCr&#233;ationAbonn&#233;" (dans access)

Il apparait comme "Form_FormCr&#233;ationAbonn&#233;" quand on est dans (VBA explorateur projet)

Moi je voulais lui mettre TotoText(Cr&#233;ationAbonn&#233;), mais apparament ca marche pas...

Si qq'un a une id&#233;e, je veux bien, ca me d&#233;pannerai pour la reprise lundi matin, merci

Bon WE

JCDussDuss

cs_tecman · Accepted Answer

Pour ta m&#233;thode TotoText, le param&#232;tre est un objet de type form.

Quand tu utilises l'appel TotoText(Cr&#233;ationAbonn&#233;) tu ne lui passe pas un objet de type form.



Il faut donc instanci&#233; un objet form et le passer en param&#232;tre dans l'appel de ta m&#233;thode.



Exemple :

Dim frm As Form



For Each frm In Application.Forms

    If frm.Name = "Cr&#233;ationAbonn&#233;" Then Call TotoText(frm)

Next frm



Bon courage
Tecman

JCDussDuss · Answer

Merci beaucoup Tecman, ca marche nikel, ca me d&#233;panne bien.

JCDussDuss

cs_tecman · Answer

Petite pr&#233;cision en passant.

V&#233;rifie tuojours le type de l'objet a passer en param&#232;tre.

De plus, je te conseillerais d'&#233;viter l'utilisation d'accent espace et
autre signe cabalistique dans le nommage des objets et variables.



 @+
Tecman

Comment passer un nom de Form en argument à une fonction

3 réponses

Discussions similaires