Discussion :

[antoine46]

Bonjour,

voici ce que je tente de réaliser en ce moment. J'ai deux tables : Table1 et Table2.
Table1(ID,Nom,Prenom,Sexe)
Table2(Nom,Caracteristique1,Caracteristique2)
La Table1 a une clé primaire ID. La Table2 est liée à la Table1.

J'ai un formulaire me permettant de rentrer un enregistrement dans la Table1, je souhaite que lorsque je clique sur un bouton, j'accède au formulaire pour la Table2, et que celui-ci ait déjà le champ « Nom » prérempli avec ce qui a été indiqué avant (dans le formulaire Table1).

J'ai essayé ce qui est indiqué à cette adresse http://access.developpez.com/faq/?pa...#PreremplChamp
mais je n'arrive à préremplir que des champs indépendants (sans intérêt dans mon cas)...

Merci par avance pour vos indications.
Antoine

[LedZeppII]

Bonsoir,

Si on part du principe que les contrôles dans les deux formulaires ont les mêmes noms que les champs auxquels ils sont liés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
' Dans Formulaire1, Bouton Ouvrir Formulaire2
Private sub cmdOuvrirForm2_Click() 
    Application.DoCmd.OpenForm "Formulaire2",,,,acFormAdd,,me.[Nom] 
End Sub

' Dans Formulaire2
Private Sub Form_Open(Cancel As Integer) 
If IsNull(Me.OpenArgs) Then 
    'rien à faire 
Else 
    Me.[Nom]=Me.OpenArgs
End if 
End Sub

Quel est le problème quand le contrôle est lié à un champ d'une table ?
Tu as un message d'erreur ?

A+

[antoine46]

Tu as un message d'erreur ?

oui, voir la pièce jointe, car il m'est bien incompréhensible !
Je joins aussi la base pour tester, il suffit de mettre le champ "Nom" en indépendant dans le second formulaire pour que cela fonctionne...

Merci
Antoine

[LedZeppII]

Bonjour,

Je comprends pourquoi tu parlais de contrôle indépendant maintenant.
Si je me souviens bien, à l'ouverture les données source ne sont pas encore présentes.
Il faut donc mettre le code dans l'évènement 'Sur chargement' dans le 2ème formulaire.

Code :

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

1
2
3
4
5
6
7
8
 
Private Sub Form_Load()
If IsNull(Me.OpenArgs) Then
    'rien à faire
Else
    Me.[Nom] = Me.OpenArgs
End If
End Sub

Ensuite la relation entre les tables Table2.Nom = Table1.ID, implique qu'il faut transmettre ID au lieu de Nom.

Code :

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

1
2
3
4
Private Sub Commande6_Click()
        DoCmd.RunCommand acCmdSaveRecord ' sauvegarde de l'enregistrement en cours
        Application.DoCmd.OpenForm "Table2", , , , acFormAdd, , Me.[ID]
End Sub

J'ai ajouté une commande pour sauver l'enregistrement.
C'est pour le dernier point ci-après.

Pour afficher le Nom plutot que l'ID dans le deuxième formulaire :
Faire un clic-droit sur le contrôle Nom et choisir Remplacer par zone de liste modifiable.
Pour cette zone de liste, mettre les même propriétés que le champ Nom dans la table Table2.
C'est à dire Contenu, Colonne liée, Nbre de colonnes, largeur colonnes.

Bon courage.