Ouvrir états en foncion de valeurs, AccessRésolu/Fermé

Question

Bonjour, 

Je souhaite dans Access 2003 pouvoir ouvrir 3 états différents en fonction de la valeur d'un champs.

Quelqu'un pourrait-il m'indiquer la procédure ?

Merci de votre aide.

Configuration: Windows XP / Firefox 10.0.2

f894009 · Answer

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

maxireussite · Answer

Merci bcp. Je vais donc essayer cela.

maxireussite · Answer

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.

maxireussite · Answer

"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.

maxireussite · Answer

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

maxireussite · Answer

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...

maxireussite · Answer

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

maxireussite · Answer

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.

Ouvrir états en foncion de valeurs, Access

8 réponses

Discussions similaires

Newsletters