Discussion :

[bwigle]

Bonjour,

J'ai actuellement, un petit soucis sur access avec la programmation en VBA d'une procédure événementielle.

J'ai un sous-formulaire [Module Appel] qui est dans un formulaire [Appel]. Et le formulaire [Appel] et en en faite un sous-formulaire du formulaire [GRC].

Dans [Module Appel] il y a un champs mémo qui va me permettre d'écrire un résumé de différents appels.
Et dans ce champs mémo pour sauter une ligne il faut faire (CTRL + ENTREE).

Je voulais donc faire un bouton à côté du cadre mémo, et lors du clic sur ce bouton, cela saute deux ligne, ajoute la date d'aujourd'hui, puis saute une ligne. (Permettant de suivre ce qu'il c'est dit pendant les différent appels et aussi de voir à qu'elle date).

J'ai donc pensé à :

Private Sub Commande251_Click()

SendKeys ("^{enter}")
SendKeys ("^{enter}")

Forms![Appel]![Module Appel].Form![Appel commentaire] = Date

SendKeys ("^{enter}")

End Sub


Ce qui ne fonctionne pas car à sa efface tous ce qu'il y a dans mémo pour mettre juste la date, et les saut de ligne ne ce font pas.
Et aussi, le bouton fonctionne que quand je me situe dans le formulaire [Appel] et je ne sais pas comment faire avec la fonction Forms pour me placer dans plusieurs formulaire et sous formulaire successifs.

Dans l'attente de vos réponses, cordialement.

[ClaudeLELOUP]

Bonjour,

Utilise plutôt cette propriété :




Et si tu veux par le code, comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms![Appel]![Module Appel].Form![Appel commentaire] = Forms![Appel]![Module Appel].Form![Appel commentaire] & vbCrLf & vbCrLf & Date

[bwigle]

Merci pour cette réponse si rapide!

Je viens d'essayer et sa marche parfaitement quand je me trouve dans le formulaire [Appel] mais quand je me situe dans mon formulaire général [GRC] ou il y a le formulaire [Appel] alors le bouton et le code en VBA ne fonctionne pas.
Comment rajouter la formulaire [GRC] dans la ligne de commande Forms?

[ClaudeLELOUP]

Montre un dessin ou une capture d'écran où l'on peut voir :

- dans quel (sous-) formulaire se trouve le bouton ;
- dans quel (sous-)formulaire se trouve la zone de texte à compléter ;
- pour les sous-formulaires, le nom que tu as donné à leur container dans le formulaire principal

[bwigle]

Alors, j'ai le formulaire [Module appel] ou est situé le bouton "Ajout date" :




Il y a ensuite le formulaire [Appel] qui contient un sous-formulaire [Module Appel] avec le container du même nom:




Et ensuite le formulaire [GRC] qui contient un sous formulaire [Appel] (le nom du container : MonSousFormulaire))




En espérant avoir été plus claire.

[bwigle]

Tout compte fait je suis arrivé à résoudre le problème en modifiant le code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Forms![GRC]![MonSousFormulaire]![Module Appel].Form![Appel commentaire] = Forms![GRC]![MonSousFormulaire]![Module Appel].Form![Appel commentaire] & vbCrLf & vbCrLf & Date & " : "

Merci beaucoup pour ton aide !!

[ClaudeLELOUP]

En espérant avoir été plus clair.

Pas tout à fait !

Si j'ai bien compris, il y a
- trois étage : bleu, vert, rose ;
- le bouton dont tu parles est dans le bleu ;
- la zone de texte que tu veux atteindre est dans le rose.



Pour écrire le code, je dois connaître :
- le nom des containers vert et rose ;
- le nom de la zone de texte.

P.-S. Tu as posté pendant que je rédigeais.
Tant mieux si c'est réglé !

[bwigle]

Oui j'ai posté au même moment !^^

Merci d'avoir pris de ton temps pour m'aider, ça m'a permis de mieux comprendre cette partie de code en VBA.

A très bientôt !!!