[VBA] Selection d'un champ dans un formulaire

Bonjour à tous !
Voilà ça fait quelque temps que je suis sur ce problème et je tourne autour du pot…

J’ai deux formulaires 1 et 2.
Je veux copier la valeur d’un champ 1 (qui resulte d'un choix fait par l'utilisateur dans une liste) dans un champ d’un sous formulaire de 2 (par l’intermédiaire d’un bouton commande mais là n'est pas le prbl).
Je pensais utiliser les commandes DoCmd.RunCommand acCmdCopy/Paste pour copier et coller les données une fois les champs sélectionnés (mais je ne sais pas si ça marcherais).
En effet je n’arrive pas à sélectionner les champs !!
Je croyais au début que ça allait être simple mais pas moyen d’y arriver.
Mes champs ont des noms du type « Diamètre_extèrieur_(m) » (je ne sais pas si le (m) peut poser des prbl).

Voilà, si quelqu’un à une petite piste, parce que là je bloque (ca fait 3 semaines que je suis sur ce formulaire et grace à vos FAQ et tuto je n'ai jamais bloqué mais là...:oops: )
Merci !


Ce que j'ai trouvé dans la FAQ, mais prbl en l'appliquant :? :
________________________________________________________
auteur : Tofalu
Voici les deux commandes :

DoCmd.RunCommand acCmdCopy ' copier
DoCmd.RunCommand acCmdPaste ' coller


Pour copier le texte d'une zone de texte, il faut dans un premier temps le sélectionner, voici comment faire :
Me.Texte1.SetFocus
Me.Texte1.SelStart = 0
Me.Texte1.SelLength = Len(Texte1.Text)
'le texte est sélectionné, il nous reste qu'à le copier.
DoCmd.RunCommand acCmdCopy
____________________________________________________________

Bonjour

Ensuite il faut donc sélectionner la textbox de destination (avec un setfocus), et faire le coller.

Starec

oui tu dis surement ça par rapport à la fac :cry:
Me.Texte1.SetFocus
Me.Texte1.SelStart = 0
Me.Texte1.SelLength = Len(Texte1.Text)

Mais justement lorsque le fais :

Me.Diamètre_extérieur_(m).SetFocus
Me.Diamètre_extérieur_(m).SelStart = 0
Me.Diamètre_extérieur_(m).SelLength = Len(Diamètre_extérieur_(m)..Text)

Ca ne marche pas 8O
Si le texte était sélectionné j'aurais, je pense, moins de problème :mouarf:

Re

Attention, ta textbox Diamètre_extérieur_(m) est dans ton sous-formulaire, n'est ce pas ?

Si c'est le cas ta syntaxte d'appel n'est pas bonne.

Tu dois avoir une syntaxe de ce style :

Code:

---

1 2	Forms!Commandes!DétailsCommande.Form!N° commande

---

Starec

Merci de ta réponse, en fait j'y avais déjà pensé mais je n'arrive pas à le mettre en forme.
__________________________________________
Mais ta réponse m'a permis de m'apercevoir d'une chose:

Ce code marche :

Private Sub Bascule3_Click()
' Avec a comme nom du champ
Me.a.SetFocus
Me.a.SelStart = 0
Me.a.SelLength = Len(a.Text)
End Sub
__________________________________________
Alors que celui ci ne marche pas :

Private Sub Bascule3_Click()
' Avec Diamètre_extèrieur_(m) comme nom du champ
Me.Diamètre_extèrieur_(m).SetFocus
Me.Diamètre_extèrieur_(m).SelStart = 0
Me.Diamètre_extèrieur_(m).SelLength = Len(Diamètre_extèrieur_(m).Text)
End Sub

Message erreur : Erreur de compilation: Membre de méthode ou de données introuvable (en surlignant .Diamètre_extèrieur_)
__________________________________________
Donc il ne doit pas apprécier le "(m)" je pense :(
Voilà si quelqu'un sait pourquoi il est le bienvenue :roll:

Sinon j'ai une expression qui marche donc vais essayé de travailler à partir d'elle.

Merci encore pour tes réponses, bonne journée à tous.

Re

Tes () foutent la M..., met le nom de ton contrôle entre crochet, et essaye avec l'exemple de syntaxe que je t'ai donné.

Starec

Les crochets ne sont pas autorisés dans les noms de champ :?

Mais là n'est pas le prbl maintenant :?

La copie marche trés bien et ne pose pas de prbl :
Me.a.SetFocus
Me.a.SelStart = 0
Me.a.SelLength = Len(a.Text)
DoCmd.RunCommand acCmdCopy

Mais le coller doit se faire dans un sous formulaire d'un autre formulaire que celui ou s'effectue la copie.
Forms![NomFormulaire]![NomSousFormulaire].Form![MaZoneDeText].SetFocus
Forms![NomFormulaire]![NomSousFormulaire].Form![MaZoneDeText].SelStart = 0
Forms![NomFormulaire]![NomSousFormulaire].Form![MaZoneDeText].SelLength = Len(Forms![NomFormulaire]![NomSousFormulaire].Form[MaZoneDeText].Text)
DoCmd.RunCommand acCmdPaste

Le code que tu m'a passé est à priori nickel mais ca ne marche pas :/ donc je pense que je dois faire une erreur quelque part si jamais t'as une idée :)
J'y retourne vais essayer de la trouver :mouarf: ++

Re

Est-ce que ton autre formulaire est ouvert ?

Starec

Oui le formulaire est ouvert mais je me suis aussi rendu compte que le prbl était là, en fait il faut l'activer. Je n'ai pas trouvé la commande pour l'activer mais celle pour ouvrir l'active même si il est déjà ouvert. Donc ce code semble marcher :
_________________________________________________________________
Private Sub Commande13_Click()
' Selectionne le champ Diamètre_extèrieur_en_m du formulaire en cours
Me.Diamètre_extèrieur_en_m.SetFocus
Me.Diamètre_extèrieur_en_m.SelStart = 0
Me.Diamètre_extèrieur_en_m.SelLength = Len(Diamètre_extèrieur_en_m.Text)

DoCmd.RunCommand acCmdCopy

DoCmd.OpenForm "Autre formulaire", acNormal, "", "", , acNormal

Forms![Formulaire]![Sous formulaire].Form![nom du champ].SetFocus
Forms![Formulaire]![Sous formulaire].Form![nom du champ].SelStart = 0
Forms![Formulaire]![Sous formulaire].Form![nom du champ].SelLength = Len(Forms![Formulaire]![Sous formulaire].Form![nom du champ].Text)

DoCmd.RunCommand acCmdPaste

End Sub
_________________________________________________________________
Je dis semble car j'ai quand même rencontré un prbl, quelque fois le code ignore le "Sous formulaire" et colle le texte dans un champ du "Formulaire" dont le nom n'est pas du tout "nom du champ".
Mais ce prbl est arrivé sur ma base de données d'essai. Sur ma principale BdD il marche, donc je ne me plains pas ;)

bonjour,
j'ai besoin dun coup de main SVP
j'aissaie d'utiliser ce code pour selectionner un champ date dans mon sous formulaire et ça ne marche pas.
en faite je voudrais qu'à l'ouverture de mon formulaire la tab se met directement dans mon champ date du sous formulaire.
Voici le code:
Forms![Formulaire]![Sous formulaire].Form![nom du champ].SetFocus
Forms![Formulaire]![Sous formulaire].Form![nom du champ].SelStart = 0
Forms![Formulaire]![Sous formulaire].Form![nom du champ].SelLength = Len(Forms![Formulaire]![Sous formulaire].Form![nom du champ].Text)

Merci par avance.