Discussion :

[Tagada_Or]

Bonjour à tous,

Voici mon problème.

J'ai dans ma base un formulaire INCLUSION qui correspond a un patient avec son numéro de patient (numéro de patient = clé de la table INCLUSION correspondant au formulaire). Cette table est liée à de nombreuses autres tables par la clé numéro de patient. Pour chacune de ces tables, j'ai crée un formulaire.

Enfin, j'ai crée un menu (NAVIGATION) me permettant de choisir un numéro de patient dans une liste déroulante et avec des boutons commande d'afficher les différents formulaires renvoyant à ce patient. Mon problème est que le code qui va avec mon bouton commande fonctionne parfaitement pour 6 de mes formulaires et ne fonctionne pas avec les 5 autres. Pour ces 5 derniers formulaires, ceux-ci s'ouvrent vierges et sans retour d'erreur de la part d'access.

Voici mon code :

Code :

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

1
2
3
Private Sub Commande25_Click()
DoCmd.OpenForm "INCLUSION", , , "NUMPAT=Forms!NAVIGATION!NUMPAT"
End Sub

Mais comme je vous l'ai dit ce code fonctionne parfaitement avec 6 des mes formulaires présent sur le même formulaire navigation ! Cela ne vient donc probablement pas du code mais plutôt des 5 formulaires qui ne fonctionnent pas en eux-mêmes... mais quelles peut être la source de l'erreur ?

Merci beaucoup,

Tagada_or

[madefemere]

Bonsoir,

Par hasard, est-ce que les autres tables ont bien le champ "NUMPAT" ???
De plus, pour être meilleur, dans ton code Forms!NAVIGATION!NUMPAT ne devrait pas être entre guillemets vu que c'est un variable et non une expression fixe :

Code :

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

1
2
3
4
 
Private Sub Commande25_Click()
DoCmd.OpenForm "INCLUSION", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT
End Sub

Cordialement,

[Tagada_Or]

Bonjour Madefemere,

Merci pour ce retour.
Oui, toutes les autres tables ont bien le champ NUMPAT. Malheureusement le résultat est le même avec le code que vous m'avez donné ! Certains des formulaires s'affichent toujours sur une page vierge bien que le numéro de patient soit sélectionné alors que d'autres fonctionnent parfaitement... Je ne comprends pas d'où peut bien provenir l'erreur.

Merci,

Tagada_or

[madefemere]

Bonjour,

Là, sans les détails, difficile d'apporter plus. Peux-tu poster ta base minimalisée sans les données sensibles et indiquer quels formulaires te font des misères.

@+

[Renardo]

Bonjour tous
sur ta feuille des propriétés Entrée données est bien sur non ?

[Tagada_Or]

Bonjour et merci à tous les deux pour vos retours,

Renardo, effectivement sur ma feuille des propriétés "Entrée Données" était sur Oui et cela fonctionne maintenant que je l'ai mis sur Non.

Si je peux abuser un peu de vos connaissance, je souhaite maintenant pour l'ouverture d'un des formulaire (VISITE) ajouter une deuxième condition portant sur le numéro de la visite avec le code suivant :

Code :

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

1
2
3
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT and "NUMVIS="4
End Sub

Or access m'affiche une erreur Incompatibilité de type. Je suppose que l'erreur vient de la syntaxe pour ma deuxième condition mais j'ai essayé plusieurs possibilités et rien ne marche. Savez-vous quelle est la syntaxe correcte ?

Merci encore,

Tagada_or

[madefemere]

Je suis content que c'est résolu; Pour ta question, un critère est une expression = texte donc tu peux avoir des concaténations de valeurs fixe et de variable.
Ici,
1- NUMPAT= est fixe
2- Forms!NAVIGATION!NUMPAT est variable
3- And [NUMVIS]= est fixe
4- 4 est fixe

Si 4 est fixe, t'auras :
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT "AND NUMVIS=4"
End Sub

Si à la place du 4, tu as un variable disons varNumVis, t'auras :
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT & "AND NUMVIS=" & varNumVis
End Sub

Bonne continuation

[Tagada_Or]

Merci Madefemere,

Seulement avec le code suivant :

Code :

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

1
2
3
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT "AND NUMVIS=4"
End Sub

J'obtiens l'erreur immédiate "Erreur de compilation, Attendu : Fin d'instruction"


J'ai essayé avec la syntaxe suivante :

Code :

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

1
2
3
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT AND "NUMVIS=4"
End Sub

Cela ne me renvoit pas d'erreur immédiate mais lors de l'exécution du code j'ai l'erreur ci-dessous :


... Que faire ?

Merci,

Tagada_or

[madefemere]

Désolé, une erreur de ma part le & a sauté avant le AND , plutôt :

Code :

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

1
2
3
Private Sub Commande25_Click()
DoCmd.OpenForm "VISITE", , , "NUMPAT=" & Forms!NAVIGATION!NUMPAT  & "AND NUMVIS=4"
End Sub

[Tagada_Or]

Merci beaucoup,

Cela fonctionne parfaitement maintenant !

Merci encore,

Tagada_or