Discussion :

[mickael777]

Bonjour,

J’utilise actuellement deux formulaires pour mettre en relation 3 tables :

- T_Conducteur, T_Donner et T_Note.

Le premier formulaire correspond à T_Conducteur, le Deuxième à T_Donner qui intègre le sous-formulaire T_Note.

La relation entre les tables est la suivante :

Mon problème arrive lorsque je passe du formulaire "Client" au formulaire "Donner" à l’aide du code suivant :

Code :

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

1
2
3
Dim strProfil As String
strProfil = "1"
DoCmd.OpenForm "F_Donner", , , "ID_Conducteur=" & strProfil

ID_conducteur n’est pas intégré sur l’interface "Donner" pourtant ID_conducteur est la clé primaire de T_Conducteur et la clé étrangère de T_Donner

Toute remarque est la bienvenu. Je vous remercie par avance.

Mickael

[Dekdek3578]

tu peux faire appel dans le form_load de F_Donner au formulaire "client"
form_F_Client.strProfil comme ça tu récupéreras le "ID_Conducteur"

tu peux ensuite ajouter un filtre à la requête de ton formulaire et le tour est joué

Bon je sais c'est de la bidouille mais étant débutant sous access aussi j'apprends sur le tas et trouve toujours des moyens détourner d'arriver au but escompter

[minot83]

Code :

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

1
2
3
Dim strProfil As String
strProfil = "1"
DoCmd.OpenForm "F_Donner", , , "ID_Conducteur=" & strProfil

Bonjour et comme ceci ?

Code :

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

DoCmd.OpenForm "F_Donner", , , "[ID_Conducteur]=" & strProfil

[mickael777]

Merci à tous les deux pour aide.

La solution proposée par Dekdek3578 n’est tout à fait juste je pense car en procédant de cette manière je rempli le champ mais je perds le lien qu’il existe normalement entre une clef étrangère et une clef primaire.

La solution proposée par minot83 ne marche pas mieux que la mienne

[minot83]

essaie ceci

Code :

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

1
2
3
Dim strProfil As String
strProfil = "1"
DoCmd.OpenForm "F_Donner", acNormal, , "[ID_Conducteur=]='" & strProfil & "'"

[mickael777]

Avec cette syntaxe, une msgbox apparaît en me demandant de rentrer la valeur de ID_Conducteur.

[minot83]

Id_conducteur est numérique?

Code :

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

DoCmd.OpenForm "F_Donner", acNormal, , "[ID_Conducteur]=1"

avec une variable, ça donnerait :

Code :

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

1
2
3
Dim strprofil As Integer
strprofil = 1
DoCmd.OpenForm "F_Donner", acNormal, , "[ID_Conducteur] = " & strprofil

[mickael777]

Id_conducteur est numérique.

Je pense que le problème ne vient de la syntaxe mais de la relation entre ces tables...
J'ai déjà utilisé cette syntaxe dans d'autre relation et elle fonctionne.

Le problème vient certainement de ma relation :

T_Conducteur-1-----∞-T_Donner-∞----1-T_Note

Je ne sais pas trop quoi faire...

[minot83]

Le mieux serait que tu postes la partie de ta base qui pose problème, et si tu peux en Access 2003.