Discussion :

[LeBauw]

Bonjour,

Y a-t-il une erreur dans la formulation du critère ? Au lieu de faire le lien seul, Access ouvre une boite où je dois retaper le nom de la référence (qu'il indique en plus juste au -dessus du control de capture). Le problème peut-il venir du fait que les termes du critère renvoi en fait un du texte et pas à un format numérique ?

On Error GoTo Err_subextracj_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "arrêtés sub extra"
DoCmd.OpenForm stDocName, , , "[FK_DG_extra]=" & Me.CODE_DG

Exit_subextracj_Click:
Exit Sub

Err_subextracj_Click:
MsgBox Err.Description
Resume Exit_subextracj_Click

End Sub

[Tofalu]

Si c'est du texte, tu devrais avoir ceci :

Code :

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

DoCmd.OpenForm stDocName, , , "[FK_DG_extra]=" & Chr(34) Me.CODE_DG & Chr(34)

[LeBauw]

Bonjour Tofalu,

Grand merci pour ta réponse, il semble que j'ai fini par poser une question recevable. Ceci encourage le petit scarabé à poursuivre sur la voie de la sagesse access.

Malheureusement la formule n'est pas validée par access et j'ai un message d'erreur de syntaxe. Si tu peux encore m'éclairer ce serait bienvenu...(une proposition ou me dire où trouver plus d'infos sur ce problème) et si tu en as le temps un petit tout petit commentaire sur le sens de la syntaxe...

J'ai introduit chr(34) dans la fenêtre éxécution mais ça ne donne rien...

Encore merci
bonne journée.

[Petogaz]

salut,

une petite erreur dans le code de Tof (il est allé trop vite ! ). il manque un &.

mets donc ceci :

Code :

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

DoCmd.OpenForm stDocName, , , "[FK_DG_extra]=" & Chr(34) & Me.CODE_DG & Chr(34)

[LeBauw]

Salut Petogaz,

Merci pour ton conseil, entre temps j'avais essayé cette solution mais ça ne fonctionne pas non plus. Cependant le message d'erreur est différent, il signale une bibliothèque introuvable et surligne le "chr". Je suis allé voir dans "outil/reference" mais je ne sais pas identifier la bibliothèque à activer... une idée ? Même avec l'aide de l'explorateur d'objet car il trouve bien "chr" dans VBA qui est active. Faut-il chercher ailleurs la raison du refus de fonctionner ?

Merci

[hocine]

Salut,
essaye

Code :

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

1
2
 
DoCmd.OpenForm stDocName, , , [FK_DG_extra]= Me.CODE_DG

Bonne chance

[LeBauw]

merci mais ça ne fonctionne toujours pas. Je ne comprends pas où est le problème s'il est certain que ça ne vient pas de l'aspect texte de la clé primaire!!!

Bon, je suis toujours preneur de nouvelles propositions et hypothèse de recherche.

Bonne journée

[ppo162]

Salut,

Essaie avec la syntaxe suivante:

DoCmd.OpenForm stDocName, , , "[FK_DG_extra]=Forms![Nom du formulaire de départ]!CODE_DG"

Le message d'erreur te signale juste que le champ CODE_DG n'existe pas dans le formulaire passé dans la variable stDocName

[cafeine]

Avant que nous spéculions sur le bug, merci de nous donner ton code avant toute chose.

Entre les balises code bien sûr

[LeBauw]

Salut,

Merci pour cette nouvelle proposition mais elle ne fonctionne pas non plus. En fait, avec ma formulation, ça fonctionne presque, je n'ai pas de message d'erreur. Simplement, une boite s'ouvre et je dois réintroduire la clé qui fait le lien. Mais ce qui amusant c'est que dans la boite il y a une indication qui est la référence même que je dois ressaisir.

Par exemple, j'ai juste au-dessus du champ de saisie "F0001" et dans le champ je dois noter "F0001"...

Je ne pense pas qu'il y a dans les tutoriels ou sur le forum de réponse... j'attends donc vos nouvelles propositions !

Je vais finir par mettre en jeu un prix pour celui qui trouve

[LeBauw]

Pour le code, il n'a pas évolué pour le moment et est donc toujours tel que présenté ci-dessus (premier post). As-tu besoin d'autres infos de la base ?

[cafeine]

j'en reste sur la solution de Petogaz featuring Tofalu, s'il y a bug sur la fonction Chr(), c'est un problème de références à réinitialiser.
cf. la FAQ sur ce sujet.

[LeBauw]

Salut à tous,

effectivement c'était bien le chemin de la solution ! Mais au lieu de Chr(34) j'ai mis "'" et ça marche super !

Merci à tous