Discussion :

[faressam]

Bonjour
Dans une Table T1, j'ai 3 champs :
- Nom.
- Prénom.
- Entreprise.

Je Souhaite créer 3 Etats tous les états m'affiche le nom/prénom par Entreprise :

mais ma question c'est comment faire ceci :
Etat 1 : qui affiche que les noms des entreprises qui commence par un "A", ou bien qui commence de la lettre "A" à la Lettre "F"

Etat 2 : qui affiche que les noms des entreprises qui commence par un "B", ou bien qui commence de la lettre "B" à la Lettre "H"

Merci pour votre Aide.

[marot_r]

Quand tu ouvre un état avec DoCmd.OpenReport tu peux définir en 4ème paramètre un critère de sélection. Dans ton cas cela pourrait ressembler à ceci :

Code :

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

1
2
 
dim critere as string

Code :

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

1
2
 
critere="Left([NomEntreprise],1)=""A"""

Code :

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

1
2
 
critere="Left([NomEntreprise],1)>=""A"" and Left([NomEntreprise],1)<=""F"""

A+

[faressam]

Merci, juste une question
je place ou ce code sur un Etat, car je n'ai jamais mis du code VBA dans un Etat, et sinon pour le "NomEntreprise" comment il sera que ça vient de la Table T1 ?

[marot_r]

Tu mets cela dans la commande d'ouverture de l'état, pas dans l'état lui-même, dans l'instruction DoCmd.OpenReport.

Exemple :

Code :

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

1
2
 
docmd.OpenReport "NomTonRapport",,,critere

[NomEntreprise] est à remplacer par le nom du champ qui contient le nom de l'entreprise dans la source de données utilisée par l'état.

Et on peut ajouter sans problème du VBA à un état, je me sert régulièrement de cela pour gérer des titres dynamique.

A+

[faressam]

Est ce que tu peux seulement reprendre étape par étape.Parce que c'est la première fois que je souhaite Mettre du VBA dans des Etats
Car dans les événements Etat il n y'a pas de Form Load, mais il y'a
que celà : Détails/Piedpages/ Reports/ ZoneEntêtePage...

La Déclaration je la mets en tous début.

Code :

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

dim critere as string

Et pour le code suivant je le place Ou ?

Code :

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

1
2
 
critere="Left([NomEntreprise],1)=""A"""

Et si je comprends bien, NomEntrperise je le remplace par le Nom du Contrôle sur l'état (Me!Control.Value) ?

Merci d'avance.

[marot_r]

Ce n'est pas à mettre dans l'état c'est à mettre dans le code qui demande l'ouverture de l'état.

Comment fais-tu pour afficher ton état ? Passes-tu par un formulaire ?

A+

[faressam]

Oui j'ai un Boutton qui ouvre mon Formulaire.
(Merci d'avance de reprendre étape par étape car je me mélange les pinceaux)

[marot_r]

Sur l'événement Click de ton bouton, il doit y avoir "marqué procédure évémentielle".

Clique sur les ... cela va t'afficher le code associé. Dans ce code tu devrais trouver une instruction DoCmd.Report.

C'est là que tu dois agir pour filtrer ton impression.

A+

[faressam]

En faite merci pour le code mais J'ai un problème avec ce dernier :

il m'affiche normalement l'etat comme si je n'ai jamais rajouté du Code :

Fournisseur est la Table, le champ contenu dans la Table est : Entreprise.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

Private Sub Commande7_Click()

' Entreprise Commençant par la Lettre A

On Error GoTo Err_Commande7_Click

    Dim stDocName As String
    Dim critere As String
   
     
    'Left([Fournisseur.Activit],1) =""D"""
    
    critere = "Left([Fournisseur.entreprise],1)>=""A"" and Left([Fournisseur.Activit],1)<=""A"""

    stDocName = "Four_Entreprise"
    DoCmd.OpenReport stDocName, acPreview, critere 


Exit_Commande7_Click:
    Exit Sub

Err_Commande7_Click:
    MsgBox err.Description
    Resume Exit_Commande7_Click
      
    
End Sub

Il m'affiche l'etat avec toutes les entreprises, A ou T ou autres,

J'ai aussi voulu essayer avec la Méthode du Select mais ça ne marche pas il m'affiche "Cannot execut the Query" ne pas pas exécuter la Requette.

Code :

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

1
2
3
4
5
6
7
8
 
 
'Avec la Méthode Select
 dim insSql1 as String 
 
    insSql1 = "SELECT Fournisseur.entreprise FROM Fournisseur  where "Left([Fournisseur.entreprise],1) = ""A"""
 
    CurrentDb.Execute (insSql1)

Est ce que j'ai oublié un Truc
Merci pour votre aide.

[marot_r]

Code :

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

1
2
"Left([Fournisseur.entreprise],1)>=""A"" and Left([Fournisseur.Activit],1)<=""A"""

Est-ce normale que tu test d'un côté entreprise et de l'autre Activit ?

Aussi es-tu sur que ton champ est [Fournisseur.entreprise] et pas [Fournisseur].[entreprise] ?

Code :

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

1
2
 
    insSql1 = "SELECT Fournisseur.entreprise FROM Fournisseur  where Left([Fournisseur.entreprise],1) = ""A"""

Essayes avec le code ci-dessus, tu avais un " qui trainait au milieu de ta requète.

A+

[faressam]

Oui effectivement c'est bien entreprise dans les 2 Testes :

Code :

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

"Left([Fournisseur.entreprise],1)>=""A"" and Left([Fournisseur.entreprise],1)<=""A"""

Mais ça ne marche pas non plus.

Par contre l'utilisation de ma requette est stocké dans "insSql1"

et quand j'ouvre l'etat, je mets comme Critère "insSql1" :

Code :

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

1
2
stDocName = "Four_Entreprise"
    DoCmd.OpenReport stDocName, acPreview, insSql1

Mais ça ne fonctionne Toujours pas.

[marot_r]

Tu ne peux pas passer une requête comme critère de sélection pour un état. Il faut lui passer seulement la partie qui suit la clause WHERE. Donc logiquement ici la chaîne de caractère que tu as calculée.

Pour arréter de tourner en rond, je t'invite à creér une requète qui répond à tes besoins avec l'éditeur de requète. Une fois que les résultats te satisfont, fait afficher le SQL généré et regarde la clause WHERE, cela te donnera la syntaxe exacte que tu dois mettre.

A+