code vba pour accessRésolu

Question

Bonsoir tout le monde 

Je voudrai copi&#233; des &#233;l&#233;ment d'une zone de text &#224; une autre situ&#233; dans un autre formulair 

j'ai 2 formulaire 

-formajout 
-entre_eva_autonomie 

Deux zone de texte 

texte10->formajout 
texte2->entrer_eva_autonomie 

J'ai fais un code, mai il ne fonctionne pas:

Au test

Il me r&#233;pond:

erreur d'execution '424' 

Il dit Objet requis. 

Quand je click sur d&#233;bogage, il selectionne 'entrer_eva_autonomie.Texte2.Text = Texte10.Text'

Voici le code:

Private Sub Texte10_BeforeUpdate(Cancel As Integer)

entrer_eva_autonomie.Texte2.Text = Texte10.Text

End Sub

Pouvez vous m'aidez svp?

Merci

Cordialement 

A bient&#244;t

smicky77 · Accepted Answer

1 - Ton premier formulaire "formajout" doit toujours &#234;tre ouvert
2 - Le nom de ton deuxi&#232;me formulaire ne doit pas commencer par Form (mot r&#233;serv&#233;)
3 - Ensuite tu mets le code ci-dessous dans la propri&#233;t&#233; &#233;v&#232;nements du deuxi&#232;me formulaire (Sur activation du formulaire "entrer_eva_autonomie")


Private Sub Form_Current()
    Me.Texte2 = Forms!formajout!texteNOM.Value
End Sub

J'ai test&#233; &#231;a marche

Alain

PCPT · Answer

salut,
v&#233;rifie le nom de tes contr&#244;les.
es-tu certains qu'ils sont avec un "e" ?
Text20        Text2        Texte20        Texte2     ...
PCPT

PCPT · Answer

ou peut-&#234;tre aussi :
entrer_eva_autonomie.Texte2.Text = formajout.Texte10.Text
PCPT

developvbdebut · Answer

Bonjour tout le monde

Il y a bien un "e" &#224; la fin de texte.

Je n'ai pas mis formajout car le code est dans formajout.

y a t'il un solution?

Cordialement

A bient&#244;t

Doro81079 · Answer

bonjour,

j'ai eu le meme probleme ce code ne marche pas en vba alors que oui en vb6
j'ai pas trouver la solution mais j'ai pas vraiment chercher essais de voir dans l'aide d'access a tout hasard

salut
doro

developvbdebut · Answer

Rebonjour tout le monde

Je vais essayer de voir si il ya un moyen avec les tables.

Merci

Cordialement

A bient&#244;t

smicky77 · Answer

Salut,

N'oublie pas que pour récupérer une donnée de formulaire, il faut que celui-ci (formajout) soit ouvert.

Alain

developvbdebut · Answer

Bonsoir tout le monde

En modifiant le code ainsi, vba n'a fai aucune erreur.

Private Sub texteNOM_change()


Form_entrer_eva_autonomie.Texte2.Text = Texte10.Text

End Sub

Mais, &#233;lace rien ne n'affiche, je souhaiterai que sa s'affiche l'or de l'ouverture du formulaire Form_entrer_eva_autonomie.

Merci

Cordialement

A bient&#244;t

PCPT · Answer

salut,

les &#233;v&#232;nements retourn&#233;es par les objets, il ne faut pas les inventer....

texteNOM_Change() ne se produit qu'au changement du .Text de texteNOM

forc&#233;ment, tu n'as pas d'erreur, surtout si textNOM n'existe pas. puisqu'aucun &#233;v&#232;nement n'est retourn&#233;....

"je souhaiterai que sa s'affiche"
c'est quoi, un formulaire? lequel ?

si tu veux qu'un TxtBox re&#231;oive la valeur d'un autre, tu auras une erreur '424' si un des 2 (au moins) n'existe pas.
mais pour l'affichage, faut expliquer....

PCPT

developvbdebut · Answer

Rebonsoir tout le monde

Je r&#233;explique, je veux tapper un Nom dans la zone de text 'textNOM' qui se trouve sur le formulaire formajout et je souhaiterai que le Nom apparaisse dans la zone de text du formulaire Form_entrer_eva_autonomie.

Voici le code tel qui les:

Private Sub texteNOM_change()


Form_entrer_eva_autonomie.Texte2.Text = texteNOM.Text

End Sub

Que dois je modifier?

Merci

Cordialement

A bient&#244;t

Doro81079 · Answer

bonsoir,


j'ai compris ce que tu veux faire mais le probl&#232;me vient de la syntaxe


form_ajout.machin c'est pour vb6 et &#231;a ne marche pas en vba....


j'ai peut etre ,je dit bien peut etre car je n'ai pas essayer, trouver la syntaxe donc tu essayes et tu me dis....

essayes (plusieurs solution):

dans le change comme tu as fait mais de cette fa&#231;on:
Form_entrer_eva_autonomie!Texte2.Text = texte10.Text

ou alors dans le load (ou initialize)de la form eva_autonomie :
texte2.text=formajout!texte10.text

je ne te garantis rien mais j'ai trouver une ligne de code similaire
pour faire appel &#224; un objet avec le nom du formulaire qui le contient

merci de me tenir au courant.....

salut
doro

PCPT · Answer

tu parles de "çà s'affiche" tu n'aurais pas un peux oublier d'ouvrir la 2e Form avant? et ton "texteNOM" a changé pour "textNOM" ? voici la syntaxe en VB6. à adapter peut-être selon les conseils de Doro81079 '----------------- ' FORM1 '----------------- 'cette Form est la première à s'ouvrir. 'la propriété Name est "formajout" 'elle contient un TxtBox nommé "textNOM" Private Sub Form_Load() 'on ouvre la 2e Form Form_entrer_eva_autonomie.Show End Sub ' ' Private Sub textNOM_Change() 'lorque qu'une touche est saisie, le champs texte de la seconde 'Form en est affectée Form_entrer_eva_autonomie.Texte2.Text = textNOM.Text End Sub '----------------- ' FORM2 '----------------- 'cette Form est la deuxième à s'ouvrir. 'sa propriété Name est "Form_entrer_eva_autonomie" 'son ouverture est commandée par le chargement [Form_Load] de la "formajout" 'elle contient un TxtBox nommé "Texte2" Private Sub Form_Load() 'aucun code particulier.... End Sub Coloration syntaxique automatique [AFCK] PCPT

Doro81079 · Answer

re,

alors j'ai tester et &#231;a marche pas la syntaxe que je t'ai donner donc j'ai regarder de plus pr&#233;s et j'ai trouver alors j'ai creer 2 form
avec chacune une textbox

-formulaire 1 et texte0
-formulaire 2 et texte0

dans l'&#233;venement click du form1
appel de form2

dans le load du form2
Texte0 = Forms!Formulaire1!Texte0.Text

attention pour les .text il faut le mettre pour le formulaire exterieur
car il est actif mais il ne faut pas le mettre pour le contro&#241;e dont le form est en train de charger car il n'est pas actif en vba si un contro&#241;e n'est pas encore charger on ne peut pas mettre .text

il ne te reste plus qu'a mettre dans les proc&#233;dures suivant comment tu charge la feuille...

si tu n'as pas tout compris fais moi signe

salut
doro

Doro81079 · Answer

re,

tu as raison pcpt pour le chargement de la form mais comme tu voit la syntaxe en vba est diff&#233;rente de celle en vb6....

salut
doro

PCPT · Answer

oui, ce n'est que pour donner une id&#233;e (s'il peut y avoir silimitude...)
je peux par faire plus, aucune connaissance en VBA (et sans regret)
PCPT

Doro81079 · Answer

re,

'aucune connaissance en VBA (et sans regret)'tu as encore raison et pour le reste c'est toujours bon &#224; savoir.....

salut
doro

developvbdebut · Answer

Bonjour tout le monde

Donc, je dois inverser le code, dois je le laisser dans formajout ou le mettre dans Form_entrer_eva_autonomie. 

Voici le code, il est toujour dans formajout: 

Private Sub Form_Load()


Form_entrer_eva_autonomie.Texte2.Text = texteNOM.Text


End Sub

Que dois je faire exactement? 

Excus&#233; moi da ma lenteur &#224; comprendre. 

Merci
 

Cordialement

A bient&#244;t

Doro81079 · Answer

bonjour,

 d&#233;ja tu oublis la syntaxe 
Form_entrer_eva_autonomie.Texte2.Text = texteNOM.Text

c'est pour VB6 et pas VBA

la syntaxe je te l'ai donner plus haut

ensuite si tu veux que l'on te dise dans quelle proc&#233;dure et dans quel sens mettre la syntaxe
il faut que tu nous dise comment tu charge la form eva avec un bouton ??? ou autre si elle est charger en meme temps que l'autre etc...
qu'est ce qui se passe dans ton appli???

salut
doro

developvbdebut · Answer

Bonsoir tout le monde

Ca fonctionne smicky77

Merci

Cordialement

A bient&#244;t

Code vba pour access

19 réponses

Discussions similaires