Access: Condition pour ouvrir Form
Fermé
aur82
Messages postés
29
Date d'inscription
jeudi 26 juin 2008
Statut
Membre
Dernière intervention
1 juillet 2008
-
30 juin 2008 à 17:17
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 30 juin 2008 à 18:33
LatelyGeek Messages postés 1758 Date d'inscription vendredi 4 janvier 2008 Statut Membre Dernière intervention 5 janvier 2023 - 30 juin 2008 à 18:33
A voir également:
- Access: Condition pour ouvrir Form
- Ouvrir fichier rar - Guide
- Ouvrir fichier .bin - Guide
- Ouvrir ma boîte mail ✓ - Forum Messagerie
- Comment ouvrir un fichier apk ? - Guide
- Ouvrir un fichier .dat - Guide
2 réponses
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
549
30 juin 2008 à 17:50
30 juin 2008 à 17:50
Bonjour,
j'ai modifié quelque peu ton module.
Le premier test sert à déterminer quel formulaire tu ouvres, si je ne me trompe. J'ai donc mis ça juste au début:
Private Sub Ouvrir_Form6_Click()
Dim stDocName As String
Dim stLinkCriteria As String
If TABLE_1![SEX].Value = 2 Then
stDocName = "Formulaire6_Femmes"
Else
stDocName = "Formulaire7_Résultats"
End If
Et ensuite, tu ouvres le formulaire qui a été choisi.
stLinkCriteria = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Formulaire5_Habitudes", acSaveYes
End Sub
Le précédent ne fonctionnait pas parce que tu avais mis stDocName = "Formulaire7_Résultats" APR7S la demande d'ouverture du formulaire stDocName, et que tu avais laissé dans ton Else stDocName = "Formulaire6_Femmes". Donc je suppose que c'est ce formulaire Femmes qui s'ouvrait dans les deux cas...
j'ai modifié quelque peu ton module.
Le premier test sert à déterminer quel formulaire tu ouvres, si je ne me trompe. J'ai donc mis ça juste au début:
Private Sub Ouvrir_Form6_Click()
Dim stDocName As String
Dim stLinkCriteria As String
If TABLE_1![SEX].Value = 2 Then
stDocName = "Formulaire6_Femmes"
Else
stDocName = "Formulaire7_Résultats"
End If
Et ensuite, tu ouvres le formulaire qui a été choisi.
stLinkCriteria = "[CPNBR]=" & "'" & Me![CPNBR] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, "Formulaire5_Habitudes", acSaveYes
End Sub
Le précédent ne fonctionnait pas parce que tu avais mis stDocName = "Formulaire7_Résultats" APR7S la demande d'ouverture du formulaire stDocName, et que tu avais laissé dans ton Else stDocName = "Formulaire6_Femmes". Donc je suppose que c'est ce formulaire Femmes qui s'ouvrait dans les deux cas...
LatelyGeek
Messages postés
1758
Date d'inscription
vendredi 4 janvier 2008
Statut
Membre
Dernière intervention
5 janvier 2023
549
30 juin 2008 à 18:33
30 juin 2008 à 18:33
Arrête; je rougis!
30 juin 2008 à 18:02
Ca marche, merci bcp!