incompatibilité de type --> Access

[basshero816]

Bonjour,

Dans formulaire1, j'ai des zones de texte appelées nom_1, nom_2, etc.
J'ai actuellement le focus sur un autre formulaire, où se trouve une zone de texte nommée compteur contenant un nombre, et une zone de texte nommée nom.
Je veux rechercher dans formulaire1 la zone de texte dont le nom se finit par la valeur qui se trouve dans le compteur, et lui attribuer comme valeur le nom stocké dans le formulaire2.

Je fais donc ceci :

Dim txt As TextBox 
For Each txt In Forms!formulaire1 
If txt.Name Like "nom_" & Me.compteur.Value Then 
Set txt.Value = Me.Nom.Value 
End If 
Next txt

Mais cela produit l'erreur "Incompatibilité de type".

D'où vient l'erreur..?
Y aurait-il une autre façon d'effectuer ce que je désire..?
Merci

[mout1234]

Bonjour,

Le set n'a pas lieu d'être ici: il s'agit d'attribuer une valeur à une propriété d'un controle et non affecter un objet à un variable objet...

Dim txt As TextBox 
For Each txt In Forms!formulaire1 
If txt.Name = "nom_" & Me.compteur.Value Then 
  txt.Value = Me.Nom.Value 
End If 
Next txt

Plus simplement, quelque chose comme ci dessous devrait marcher non?

On error resume next
Forms!formulaire1.("Nom_" & Me!Compteur) = Me!Nom
 

[Tonioyo]

Pour l'incompatibilité de type il faut écrire :

For Each txt In Forms!formulaire1.controls

à la place de :

For Each txt In Forms!formulaire1

Et oui, il faut regarder dans la collection de controles du formulaire pour trouver les zones de textes, les labels, les groupes d'options, etc...
Cette collection contien tous les objets présents dans le formulaire.

[mout1234]

Envoyé par Tonioyo

Pour l'incompatibilité de type il faut écrire :

For Each txt In Forms!formulaire1.controls

...

En effet, quoique la collection Controls est la collection par défaut d'un formulaire ... les deux syntaxes fonctionnent.


Par contre, tous les contrôles ne sont pas nécessairement des textbox...

[basshero816]

Merci de vos réponses.

Mais j'ai maintenant l'erreur "Propriété ou méthode non gérée par cet objet."

Or il s'agit bien d'un TextBox, donc la ligne :

Forms.[fiche_pointage1].["nom1_" & Me.compteur] = Me.Nom

devrait marcher, non..?

[Tonioyo]

Nan ca marche pas ca, il faudrait plutôt quelquechose comme :

Forms.[fiche_pointage1]("nom1_" & Me.compteur).Value = Me.Nom

Parce que tu as de la concaténation de chaine, il faut faire appel à un index (je ne sais pas si je suis clair en disant ca comme ca).

[basshero816]

Je ne connais pas les index.
Toujours est-il que la dernière solution que tu m'as proposée ne marche pas, j'ai toujours la même erreur.

As-tu une idée d'où cela peut venir..?

Y a-t-il una autre façon de remplir dynamiquement des zones de texte..?
Merci de ton aide

[Tonioyo]

Ton formaulaire est-il ouvert (en mode execution) quand tu execute cette ligne de code ?

[basshero816]

En fait, je fais ceci :

Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "formulaire1"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    
    Forms.[formulaire1]("nom1_" & Me.compteur).Value = Me.Nom
    
    Forms!formulaire2.SetFocus
    DoCmd.Close

C'est dans formulaire2 que j'écris ce code, sur une opération Click() d'un bouton.

[Taoueret]

je pense qu'il faudrait plutôt

 
Forms![fiche_pointage1].controls("nom1_" & Me.compteur) = Me.Nom
 

[Tonioyo]

Mais que je suis bete honte sur moi !! bouh !!

Ce n'est pas Me.Nom mais Me.Name

Assure toi aussi qu'il y ai bien une valeur dans le Me.compteur

[basshero816]

Merci beaucoup Taoueret, cette solution marche à merveille.
Je le saurai pour plus tard.

@+

[mout1234]

Envoyé par basshero816

Bonjour,
...et une zone de texte nommée nom. ...

Envoyé par Tonioyo

....Ce n'est pas Me.Nom mais Me.Name....

Heu, y a pas une confusion là entre la propriété Nom du formulaire et le contrôle Nom?

S'il s'agit bien du champ Nom il faut alors mettre une syntaxe évitant la confusion pour le système:
Me.Controls("Nom") ou Me("Nom") devrait fonctionner il me semble.


PS: une fois de plus, évitez les noms de champs déjà utilisés par le système (nom, date...) et nommez vos champs de manière plus précise (NomClient, DateCréation,...)

[Tonioyo]

Tout à fait, milles excuses,

Il est vrai que normalement on ajoute plus de précision pour un nom de controle.