Remplir automatiquement un champ

**DébutantAccess** · 20/02/2013, 09h18

Bonjour à tous,
J'ai deux formulaire contenant chacun 3 info identiques (Nom,Prénom,NumClient)
J'aimerais que lorsque je remplie ces 3 infos dans le formulaire1; le formulaire deux remplis également ses infos en fonction de celui-ci après l'enregistrement de celui-ci, merci.

**zoom61** · 20/02/2013, 09h38

Salut,

Un peu de code sur après mise à jour du champ :

Code :

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

Forms!Formulaire2!ChampNom.Value = Forms!Formulaire1!ChampNom.Value

@+.

**DébutantAccess** · 20/02/2013, 09h46

J'ai essayer mais cela ne fonctionne pas :s, je suis désolé je ne connais pas encore tout les bons fonctionnements d'Access :/.
Mon code ressemble à cela:

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
Forms!"Formulaire de sortie!num_usager.Value = Forms!"Formulaire bilan de l'usager"!num_usager.Value
Forms!"Formulaire de sortie"!nom.Value = Forms!"Formulaire bilan de l'usager"!nom.Value
Forms!"Formulaire de sortie"!prenom.Value = Forms!"Formulaire bilan de l'usager"!prenom.Value
End Sub

**DébutantAccess** · 20/02/2013, 09h46

j'ai essayé sans les guillemets, c'est le même résultat.

**zoom61** · 20/02/2013, 09h53

Ton code devrait ressembler à cela :

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
Forms![Formulaire de sortie]!num_usager.Value = Forms![Formulaire bilan de l'usager]!num_usager.Value
Forms![Formulaire de sortie]!nom.Value = Forms![Formulaire bilan de l'usager]!nom.Value
Forms![Formulaire de sortie]!prenom.Value = Forms![Formulaire bilan de l'usager]!prenom.Value
End Sub

Mais dans le nommage des éléments (Table, Requête, Formulaire, etc.) évite de mettre des espaces et des accents.

@+.

**DébutantAccess** · 20/02/2013, 09h59

Le formulaire que je remplie est "Formulaire bilan de l'usager", les 3 infos doivent aller dans "Formulaire de sortie". Mon code est donc le suivant, plus de message d'erreur mais ça ne fonctionne pas :/.

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
Forms![Formulaire de sortie]!CONTACT_SORTIE.num_usager.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES.num_usager.Value
Forms![Formulaire de sortie]!CONTACT_SORTIE.nom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES.nom.Value
Forms![Formulaire de sortie]!CONTACT_SORTIE.prenom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES.prenom.Value
End Sub

Je suivrait tes conseils pour la ponctuations à l'avenir =)

**zoom61** · 20/02/2013, 10h02

Code :

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

1
2
3
4
5
Private Sub Form_AfterUpdate()
Forms![Formulaire de sortie]!CONTACT_SORTIE!num_usager.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!num_usager.Value
Forms![Formulaire de sortie]!CONTACT_SORTIE!nom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!nom.Value
Forms![Formulaire de sortie]!CONTACT_SORTIE!prenom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!prenom.Value
End Sub

**DébutantAccess** · 20/02/2013, 10h08

Toujours pas :/. En sachant que "CONTACT_SORTIE.num_usager" c'est Access qui me l'a renommé pour éviter les doublons et que CONTATC_SORTIE correspond à ma table où sont mes champs, il en est de même pour GENERALE_ACTES

[Edit]
Ca ne marcherais pas avec une requête INSERT INTO à la fermeture du formulaire, et en appelant cette requête dans le VBA?

**zoom61** · 20/02/2013, 10h13

Je viens de voir un truc, c'est plutôt :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub num_usager_AfterUpdate()
Forms![Formulaire de sortie]!CONTACT_SORTIE!num_usager.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!num_usager.Value
End Sub
 
Private Sub nom_AfterUpdate()
Forms![Formulaire de sortie]!CONTACT_SORTIE!nom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!nom.Value
End Sub
 
Private Sub prenom_AfterUpdate()
Forms![Formulaire de sortie]!CONTACT_SORTIE!prenom.Value = Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!prenom.Value
End Sub

**DébutantAccess** · 20/02/2013, 10h17

Non plus; :/. Tu penses que ce n'est pas possible par requêtes? Puisqu'il faut que ca passe d'une table à l'autre quoi... Enfin je ne sais pas je découvre ^^.

**zoom61** · 20/02/2013, 10h25

Peux-tu envoyer ton fichier ?

**DébutantAccess** · 20/02/2013, 10h27

C'est un peu délicat d'envoyer ma BDD :/

**zoom61** · 20/02/2013, 10h33

Juste une question des deux formulaires sont ouverts quand tu veux faire la manip ?

**DébutantAccess** · 20/02/2013, 10h37

Non, seulement celui dans lequel je rentre mes donnée (Fiche bilan de l'usager)

**DébutantAccess** · 20/02/2013, 10h41

C'est pour cela que je pensais que lorsque je tapais mes données (num, nom, prenom) dans mon formulaire bilan de l'usager je pensais qu'il aurait été possible de créer une requête insert into me permettant de remplir ces champs dans la table correspondant au formulaire de sortie. Celle-ci aurait été appelé dans le VBA à la fermeture du formulaire bilan. Tu m'a suivis? :s

**zoom61** · 20/02/2013, 10h43

Effectivement une requête insert peut aller ou sinon quand tu demandes l'ouverture du second formulaire, tu peux mettre le code précédant, si le premier formulaire reste ouvert suffisamment longtemps.

@+.

**DébutantAccess** · 20/02/2013, 10h47

deux formulaires ne peuvent être ouverts en même temps ^^ c'est un peu compliqué ^^.
J'ai essayer de voir hier pour un INSERT INTO mais je n'arrive pas à trouver la bonne syntaxe sous ACCESS.

**DébutantAccess** · 20/02/2013, 11h14

Tu n'aurais pas une idée de la syntaxe de la requête? :/ Je ne m'en sors pas :/

**zoom61** · 20/02/2013, 11h20

Code :

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

1
2
RunSQL = "INSERT INTO TABLE_SORTIE (num_usager, nom, prenom) " _
& "VALUES ('" & Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!num_usager.Value & "', '" & Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!nom.Value & "', '" & Forms![Formulaire bilan de l'usager]!GENERALE_ACTES!prenom.Value & "')"