Ouvrir états en foncion de valeurs, Access
Résolu/Fermé
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
-
12 mars 2012 à 03:19
maxireussite Messages postés 372 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 11 mars 2020 - 14 mars 2012 à 01:41
maxireussite Messages postés 372 Date d'inscription jeudi 10 mai 2007 Statut Membre Dernière intervention 11 mars 2020 - 14 mars 2012 à 01:41
A voir également:
- Ouvrir états en foncion de valeurs, Access
- Comment ouvrir un fichier epub ? - Guide
- Ouvrir fichier .bin - Guide
- Comment ouvrir un fichier docx ? - Guide
- Ouvrir avec - Guide
- Ouvrir winmail.dat - Guide
8 réponses
f894009
Messages postés
17206
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
22 novembre 2024
1 711
12 mars 2012 à 09:13
12 mars 2012 à 09:13
Bonjour,
Principe:
If Valeur_Champ = x Then
Nom_Rapport = "A"
ElseIf Valeur_Champ = y Then
Nom_Rapport = "B"
ElseIf Valeur_Champ = z Then
Nom_Rapport = "C"
Else
End If
DoCmd.OpenReport Nom_Rapport, acViewNormal
Bonne suite
Principe:
If Valeur_Champ = x Then
Nom_Rapport = "A"
ElseIf Valeur_Champ = y Then
Nom_Rapport = "B"
ElseIf Valeur_Champ = z Then
Nom_Rapport = "C"
Else
End If
DoCmd.OpenReport Nom_Rapport, acViewNormal
Bonne suite
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
12 mars 2012 à 14:40
12 mars 2012 à 14:40
Merci bcp. Je vais donc essayer cela.
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
12 mars 2012 à 16:28
12 mars 2012 à 16:28
Bon en fait c un peu plus compliqué, car "sur clic" doit aller chercher la valeur du champ dans un sous-formulaire, alors que le bouton est sur le formulaire.
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
12 mars 2012 à 16:49
12 mars 2012 à 16:49
Salut,
variable = forms("nom_formulaire").controls("nom_du_champ")
ou un truc approchant
variable = forms("nom_formulaire").controls("nom_du_champ")
ou un truc approchant
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
12 mars 2012 à 23:47
12 mars 2012 à 23:47
"OU un truc approchant..."
M'ouais l'embêtant c qu'ici l'approchant ou l'à peu près ne fonctionne pas...
Merci quand même.
M'ouais l'embêtant c qu'ici l'approchant ou l'à peu près ne fonctionne pas...
Merci quand même.
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
13 mars 2012 à 08:14
13 mars 2012 à 08:14
Qu'as-tu mis ? Qu'est-ce qui ne fonctionne pas ? Message d'erreur ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
13 mars 2012 à 11:59
13 mars 2012 à 11:59
Dans l'exemple ci-dessus, le bouton ouvre l'état et affiche 1 un enregistrement bien précis.
Private Sub AperçuFacture_Click()
On Error GoTo Err_AperçuFacture_Click
If Forms![Commandes par client]![Sous-formulaire Commandes par client].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Tapez les informations sur la commande avant d'afficher l'aperçu de la facture."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "Facture", acPreview, , "[RéfCommande] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RéfCommande]"
End If
Exit_AperçuFacture_Click:
Exit Sub
Err_AperçuFacture_Click:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resum
Comment filtrer comme dans l'exemple ci-dessus un enregistrement, dans cet exemple qui ouvre selon une valeur l'état 1,2 ou 3 ?
Comment « combiner les deux ? Est-ce possible ?
Private Sub Commande64_Click()
Select Case Forms![Commandes par client]![Sous-formulaire Commandes par client].Form![TypeInterventions]
Case "3d"
DoCmd.OpenReport "Interventions", acPreview
Case "Anti-termites"
DoCmd.OpenReport "Intervention2", acPreview
Case "Barrière Physico-chimique"
DoCmd.OpenReport "Intervention3", acPreview
End Select
End Sub
Private Sub AperçuFacture_Click()
On Error GoTo Err_AperçuFacture_Click
If Forms![Commandes par client]![Sous-formulaire Commandes par client].Form.RecordsetClone.RecordCount = 0 Then
MsgBox "Tapez les informations sur la commande avant d'afficher l'aperçu de la facture."
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "Facture", acPreview, , "[RéfCommande] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RéfCommande]"
End If
Exit_AperçuFacture_Click:
Exit Sub
Err_AperçuFacture_Click:
If Err <> 2501 Then
MsgBox Err.Description
End If
Resum
Comment filtrer comme dans l'exemple ci-dessus un enregistrement, dans cet exemple qui ouvre selon une valeur l'état 1,2 ou 3 ?
Comment « combiner les deux ? Est-ce possible ?
Private Sub Commande64_Click()
Select Case Forms![Commandes par client]![Sous-formulaire Commandes par client].Form![TypeInterventions]
Case "3d"
DoCmd.OpenReport "Interventions", acPreview
Case "Anti-termites"
DoCmd.OpenReport "Intervention2", acPreview
Case "Barrière Physico-chimique"
DoCmd.OpenReport "Intervention3", acPreview
End Select
End Sub
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
13 mars 2012 à 12:53
13 mars 2012 à 12:53
Soit c'est trop simple, soit je ne comprends pas le problème.
Pour ouvrir l'état "intervention2" avec un filtrage, il te suffit de rajouter le contenu du filtre après l'acpreview, comme donné dans l'exemple que tu as mis au-dessus...
Pour ouvrir l'état "intervention2" avec un filtrage, il te suffit de rajouter le contenu du filtre après l'acpreview, comme donné dans l'exemple que tu as mis au-dessus...
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
13 mars 2012 à 13:04
13 mars 2012 à 13:04
Ben oui, j'imagine quand on sait piloter un A380 il suffit de le faire....
Justement moi ne je sais pas ou en tout cas j'ai essayé et ça ne fonctionne pas...
Justement moi ne je sais pas ou en tout cas j'ai essayé et ça ne fonctionne pas...
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
13 mars 2012 à 13:26
13 mars 2012 à 13:26
Qu'as-tu mis ? Qu'est-ce qui ne fonctionne pas ? Message d'erreur ?
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
13 mars 2012 à 15:40
13 mars 2012 à 15:40
Bon, ben j'y suis arrivé, voilà la solution :
Private Sub Commande64_Click()
Select Case Forms![Commandes par client]![Sous-formulaire Commandes par client].Form![TypeInterventions]
Case "3d"
DoCmd.OpenReport "Interventions", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
Case "Anti-termites"
DoCmd.OpenReport "Intervention2", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
Case "Barrière Physico-chimique"
DoCmd.OpenReport "Intervention3", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
End Select
End Sub
Private Sub Commande64_Click()
Select Case Forms![Commandes par client]![Sous-formulaire Commandes par client].Form![TypeInterventions]
Case "3d"
DoCmd.OpenReport "Interventions", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
Case "Anti-termites"
DoCmd.OpenReport "Intervention2", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
Case "Barrière Physico-chimique"
DoCmd.OpenReport "Intervention3", acPreview, , "[RefIntervention] = Forms![Commandes par client]![Sous-formulaire Commandes par client].form![RefIntervention]"
End Select
End Sub
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
13 mars 2012 à 16:47
13 mars 2012 à 16:47
C'est ce que je t'avais suggéré...
Content que tu aies réussi !
Content que tu aies réussi !
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
Modifié par maxireussite le 13/03/2012 à 19:43
Modifié par maxireussite le 13/03/2012 à 19:43
Merci. T'aurais pas une idée pour mon autre problème avec les cases à cocher que je souhaite activer ou désactiver en fonction de la valeur d'une zone de liste ?
blux
Messages postés
26532
Date d'inscription
dimanche 26 août 2001
Statut
Modérateur
Dernière intervention
18 décembre 2024
3 317
13 mars 2012 à 21:00
13 mars 2012 à 21:00
je viens de regarder : on t'a proposé un truc, ça ne va pas ou ce n'est pas ce que tu voulais faire ?
maxireussite
Messages postés
372
Date d'inscription
jeudi 10 mai 2007
Statut
Membre
Dernière intervention
11 mars 2020
5
14 mars 2012 à 01:41
14 mars 2012 à 01:41
Ben on ne répond pas à ma question. Je veux activer ou désactiver une série de cases à cocher en fonction des valeurs d'une zone de liste.