Discussion :

[chobra2000]

Bonjour,
J'ai incéré dans ma Rqt [Forms]![mon_formulaire]![zone_recherche] pour afficher un état après la sélection dans la liste déroulante le type de produit.
Mais l'état s'affiche avec 0 résultat
Merci pour l'aide

[informer]

Bonjour chobra2000,

Des valeurs sont-elles bien chargées dans ta liste déroulante?

Si c'est le cas, Le mieux c'est d'appeler ton rapport est sur l'événement Change de ta liste déroulante avec comme critère dans l'appel de ton rapport, l'identifiant de la ligne courante dans la liste déroulante

Code :

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

Me.lstMaListe.Value

On obtient alors

Code :

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

1
2
3
4
5
6
7
8
Private Sub lstMaListe_Change()
 
On Error Resume Next '----> Pour éviter le mode debug car si monRapport n'est pas ouvert la ligne suivante provoquera une erreur 
DoCmd.Close acReport, "monRapport"
 
DoCmd.OpenReport "monRapport", acViewPreview, , "monChampsCritere = " & Me.lstMaListe.Value 
 
End Sub

[chobra2000]

Salut informer,

J'ai testé le code mais le résultat est toujours 0

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub RechType_Change()
'---->Nom de l'Etat TypePrestataire
'---->Variable liste déroulante RechType
'---->Champs critère TypeFournisseur
On Error Resume Next
DoCmd.Close acReport, "TypePrestataire"
DoCmd.OpenReport "TypePrestataire", acViewPreview, , "TypeFournisseur = " & Me.RechType.Value
 
End Sub

Merci et bonne journée

[informer]

Quelle est la source de ton rapport :

• Table
• Requête

Dans mon exemple c'est une requête stockée


ATTENTION

Si TypeFournisseur est de type STRING alors il faut entourer Me.RechType.Value de simple quote comme pour toute requête SQL

Code :

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

1
2
 
TypeFournisseur = '" & Me.RechType.Value & "' "

[chobra2000]

La source de l'état est une Requête stockée.
TypeFournisseur n'est de type STRING

[informer]

Peux tu donner au moins un enregistrement quand tu lances la requête associée au rapport sans le filtrage (champs + valeurs) ?

Peux-tu mettre un point d'arrêt sur la commande

Code :

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

 DoCmd.OpenReport "TypePrestataire", acViewPreview, , "TypeFournisseur = " & Me.RechType.Value

pour connaitre la valeur de Me.RechType.Value

[chobra2000]

Voici le contenu de la requête avec le nom des champs
[B]Type Fournisseur NomFournisseur totalligne Client
Jouvial Swapnatheeram 350 Annie
Hotel Inde Spencer's home 180 Annie
Jouvial Deshadan Montain Resort 260 Annie
Jouvial Backwater Farm House 200 Annie
Hotel Inde Spencer's home 400 Nameste
Hotel Népal Sunil Bus 142 Karine
Hotel Népal Apsara Boutiq Hotel 156 Sylvie
Hotel Népal End of Univers 530 Sylvie


Peux-tu mettre un point d'arrêt sur la commande, Je ne comprends pas ta demande?


pour connaitre la valeur de Me.RechType.Value, c'est Type Fournisseur (voir 1er colonne)

[bertiny]

Bonjour. Si la table TypePrestataire a une ID NuméroAuto alors c'est à ce niveau que vous devez placer le critère de la requête.

[hyperion13]

Salut,
Si je puis interférer
Créer un module dans ta bdd avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Option Compare Database
Option Explicit
Function EstChargé(ByVal strNomForm As String) As Boolean
    Const conÉtatObjFermé = 0
    Const conModeCréation = 0
    If SysCmd(acSysCmdGetObjectState, acForm, strNomForm) <> conÉtatObjFermé Then
        If Forms(strNomForm).CurrentView <> conModeCréation Then
            EstChargé = True
        End If
    End If
End Function

Dans l'état concerné, insérer le code suivant :

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
Option Compare Database
Option Explicit
Public blnOuverture As Boolean
Private Sub Report_Close()
    Dim strNomDoc As String
    strNomDoc = "Etat TypePrestataire" '<-- nom du formulaire d'appel ouverture de ton état
    DoCmd.CLOSE acForm, strNomDoc
End Sub
Private Sub Report_NoData(Cancel As Integer)
    Dim strMsg As String, strTitre As String
    Dim intStyle As Integer
    strMsg = "Pas de résultat avec les citères requis."
    intStyle = vbOKOnly
    strTitre = "Pas de données pour cette plage de valeurs"
    MsgBox strMsg, intStyle, strTitre
    Cancel = True
End Sub
Private Sub Report_Open(Cancel As Integer)
    Dim strNomDoc As String
    strNomDoc = "Etat TypePrestataire" '<-- nom du formulaire d'appel ouverture de ton état
    blnOuverture = True
    DoCmd.OpenForm strNomDoc, , , , , acDialog
    If EstChargé(strNomDoc) = False Then Cancel = True
    blnOuverture = False
End Sub

Dans le formulaire concerné :

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
Private Sub OK_Click()
On Error GoTo Err_OK_Click
    Dim strMsg As String, strTitre As String
    Dim intStyle As Integer
    If Not Reports![Nom de l'état à ouvrir].blnOuverture Then err.Raise 0
    Me.Visible = False
Quitte_OK_Click:
    Exit Sub
Err_OK_Click:
    strMsg = "Pour utiliser ce formulaire, vous devez ouvrir l'état Nom de l'état à ouvrir."
    intStyle = vbOKOnly
    strTitre = "Ouverture à partir de l'état"
    MsgBox strMsg, intStyle, strTitre
    Resume Quitte_OK_Click
End Sub

[bertiny]

En réalité si l'état n'affiche rien çà veut dire que la Requête ne lui fournit rien. Il faut donc d'abord voir le problème au niveau de la requête. Est-ce qu'elle produit le résultat lorsqu'on l'exécute hors de l'état? est-ce qu'elle voit la valeur du critère?

[chobra2000]

Bonjour hyperion13 !
Merci pour votre réponse!
J'ai bien compris qu'il faut placer le 2e code dans l'état et le 3e code dans le formulaire, mais le premier ou dois-je le incérer!

Salut bertiny,
La requête fonctionne bien et donne un résultat exacte des enregistrements.
J'ai ajouté IDTypePrestataire dans la requête, et dans critères ([Formulaires]![Etat_TypePrestataire]![RechType])
Est ça marche
Merci

[hyperion13]

... mais le premier ou dois-je le incérer!

Dans la fenêtre vba Alt F11 et créer un Module

[bertiny]

Alors tu vas faire une chose simple pour voir si tout va bien. Etant sur le menu créer, tu cliques sur la requête puis tu cliques sur Etat, juste pour voir ce qui se passe.

[informer]

Ta requête te renvoie

Type Fournisseur NomFournisseur totalligne Client
Jouvial Swapnatheeram 350 Annie
Hotel Inde Spencer's home 180 Annie

Peux tu mettre une virgule après chaque valeur de chaque colonne car pour l'enregistrement suivant je n'identifie pas le type.

Type Fournisseur NomFournisseur totalligne Client
Jouvial Swapnatheeram 350 Annie

D'autre part, existe-il une table typePrestataire dans ta base. Si oui donne nous sa structure.

[chobra2000]

Ta requête te renvoie



Peux tu mettre une virgule après chaque valeur de chaque colonne car pour l'enregistrement suivant je n'identifie pas le type.


D'autre part, existe-il une table typePrestataire dans ta base. Si oui donne nous sa structure.

Voici le résultat de la Rqt avec virgule après chaque colonne
Type Fournisseur, NomFournisseur, totalligne, Client
Jouvial, Swapnatheeram, 350, Annie

Table typePrestataire
IDTypePrestataire, NuméroAuto,,,,,,Clé Primaire
Type Fournisseur, Texte court

[informer]

A l'appel du rapport tu as écrit

Code :

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

DoCmd.OpenReport "TypePrestataire", acViewPreview, , "TypeFournisseur = " & Me.RechType.Value

Mais si le critère est bien sur TypeFournisseur alors il faut écrire le même libellé que celui de la table qui est Type Fournisseur. Comme il y a un espace, il faut mettre entre crochets et comme c'est du Texte court, le critère doit être en simple quote d’où le code

Code :

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

DoCmd.OpenReport "TypePrestataire", acViewPreview, , "[Type Fournisseur] = '" & Me.RechType.Value & "' "

[chobra2000]

Merci pour vos réponses j'ai trouvé la solution grâce à vos commentaire et code!!

[informer]

Merci de cliquer sur un pouce vert pour les réponses qui t’ont aidé

[informer]

Chobra2000, merci de nous faire partager ta solution.

[chobra2000]

Merci de cliquer sur un pouce vert pour les réponses qui t’ont aidé

Bonjour,
J’ai juste ajouté dans la requête un champs ID (IDTypePrestataire), et un critère ''[Formulaires]![Etat_TypeProduit]![RTypeProd]''
Et un bouton avec code Marco d'ouvrir l'état
C'est tout simple finalement
Merci pour votre aide