utilisation de liste pour consultation et filtrage.

**nassu** · 08/03/2006, 12h03

salut.
je dois appliquer des filtres sur mes formulaires ,
pour commencer j'ai pensé a cree un formulaire ou il ya une liste déroulante qui envelope tous mes formulaires , " bien sur grace a une saisie" . Esnsuite je veux faire un evenement sur click ,, qui veux dire dés que je fais défiler la liste des formulaires je click sur " bon de reception " ,le formulaire bon de reception s'ouvre ,.
jai fais ce code suivant , et je suis sur quil est faux je suis nul en vBa ,

Private Sub liste_Click()
DoCmd.OpenForm '*" & liste & "*', acNormal
End Sub

liste cest le nom de ma liste déroulante , jai mis *" & liste & "*' pour que le contenu de la liste soit recupéré ,.

**cafeine** · 08/03/2006, 12h10

Hello

1- merci d'utiliser les balises CODE

2- regarde l'aide sur DoCmd.OpenForm, il y a des exemples fournis

3- regarde la FAQ

http://access.developpez.com/faq/?rechercher=openform

**nassu** · 08/03/2006, 12h58

jai cherche dans le f1 ,, les balises jai rien trouvé je ne sais pas ce que cest ,,
merci cafeine ,, mais jai pas trouvé de reponse a ma question , jai trouvé la commande :
docmd.openform ' mon formulaire '

moi ce que je veut faire cest ' mon formulaire ' soit recupéré d'une liste !
comment faire je ne sais pas.

Invité · 08/03/2006, 13h02

Salut

Pour récupérer

Code :

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

1
2
 
me.liste.column(0)

Starec

**nassu** · 08/03/2006, 13h13

ca marche merci !!!

maintenant je doit faire des filtres en liste aussi !!
ta commande viens de m'ouvrire l'esprit merci.

**nassu** · 08/03/2006, 13h44

je peux implémenter un openform avec des conditions ???

**cafeine** · 08/03/2006, 13h58

jai cherche dans le f1 ,, les balises jai rien trouvé je ne sais pas ce que cest ,,
merci cafeine ,, mais jai pas trouvé de reponse a ma question , jai trouvé la commande :
docmd.openform ' mon formulaire '

Comment trouver l'aide sur un mot clé ?

tape le mot dans un module, puis appuye sur F1 ...

c'est simple non ?

**nassu** · 08/03/2006, 19h40

cafeine stp tu peux m'aider pour ce qui est de la recherche multi??
stp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stp

**cafeine** · 08/03/2006, 20h25

Envoyé par nassu

cafeine stp tu peux m'aider pour ce qui est de la recherche multi??
stp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stpstp stp stp

Quelle est la question ? Qu'est-ce que tu ne comprends pas dans le tutoriel ?

PS : merci d'éviter les répétitions inutiles.

**nassu** · 08/03/2006, 21h03

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
30
31
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT num_dch, date_dch, Nom_concern, Fonc_concern, Num_br, Depart FROM décharge Where décharge!num_dch <> 0 "
 
If Not Me.chkbr Then
    SQL = SQL & "And décharge!num_dch like = '*" & Me.cmbdh & "*' "
End If
If Not Me.chkdate Then
    SQL = SQL & "And décharge!date_dch = '" & Me.cmbdate & "' "
End If
If Not Me.chkrec Then
    SQL = SQL & "And décharge!nom_concern like '*" & Me.txtrec & "*' "
End If
If Not Me.chkbr Then
    SQL = SQL & "And décharge!Titre num_br '*" & Me.txtbr & "*' "
End If
If Not Me.chkdep Then
    SQL = SQL & "And décharge!depart '" & Me.txtdep & "' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
'Me.lblStats.Caption = DCount("*", "décharge", SQLWhere) & " / " & DCount("*", "décharge")
Me.lstresult.RowSource = SQL
Me.lstresult.Requery
 
End Sub

voila mon code jai copie le tien ,, mais lorsque je choisi un critere dans une liste ,, ya aucun resultat ou est le blem et aussi le dcount génére un debugage.

**cafeine** · 08/03/2006, 23h12

Etape 1- le "blem" est que vous ne savez pas choisir entre Like et = ... et quand l'hésitation se fait trop sentir vous n'en mettez aucun, voire les deux ...

Code :

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

    SQL = SQL & "And décharge!Titre num_br '*" & Me.txtbr & "*' "

Like qui manque ?

Code :

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

    SQL = SQL & "And décharge!num_dch like = '*" & Me.cmbdh & "*' "

Les 2, choisissez ... gardez plutôt Like si vous voulez mon avis

Code :

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

    SQL = SQL & "And décharge!depart '" & Me.txtdep & "' "

= qui manque ?

Etape 2- votre champ date ... ça ne va surement pas marcher, regardez la FAQ pour savoir comment mettre un critère date dans une requête SQL.

Etape 3- relisez vous ...

Etape 4- DEBOGAGE D'UNE REQUETE VBA

http://cafeine.developpez.com/access...el/debugprint/

**nassu** · 09/03/2006, 18h14

bon la jai corrige mes beptise , et merci a toi cafeine mais ya pas de resultat qui s'affiche .
en dirai que les listes ne servent a rien ,meme les label.

**cafeine** · 09/03/2006, 22h00

Envoyé par nassu

bon la jai corrige mes beptise , et merci a toi cafeine mais ya pas de resultat qui s'affiche .

Heu ... ben écoute ... permet moi d'en douter ..

Il faut déboguer ton sql ...

Je me répète ...

Envoyé par cafeine

Etape 4- DEBOGAGE D'UNE REQUETE VBA

http://cafeine.developpez.com/access...el/debugprint/

**nassu** · 10/03/2006, 01h13

merci cafeine ,, je sais que je saoul . merci mille fois. mes conaissance en vba son tres tres tres limité , je vais faire mon possible . merci encore une fois.

utilisation de liste pour consultation et filtrage.

IHM

Vue hybride

Discussions similaires

Partager

Partager