Discussion :

[phoenix974]

bonjour à tous

J'ai créé un formulaire de recherche, à l'ouverture, tout s'affiche et les listes déroulantes sont sur ---TOUS--- (valeur 0).

Je voudrais que mon bouton effacer les criteres reinitialise tout
voici ce que j'ai essayé:

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
Private Sub btnEffacerLesCriteres_Click()
Dim ctl As Control
 
'Pour chaque controles dans le formulaire
For Each ctl In Me.Controls
    'Selectionne les 3 premiers caracteres en partant de la gauche
    Select Case Left(ctl.Name, 3)
        Case "cbo"
        'attribue la valeur 0 (soit --tous--) aux contrôles commençant par "cbo"
            ctl.Value = 0
    End Select
Next ctl
 
Me.sfRecherche.Requery
 
End Sub

les controles se remettent bien sur tous mais le sous formulaire ne se remet pas à jour et n'affiche rien, pourquoi?

y a t-il plus simple comme code?

merci d'avance

[madefemere]

Bonjour,

Plutôt :

Code :

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

Me.sfRecherche.Form.Requery

à la ligne 14.

Le tuto complet de Loufab sur les interactions entre les contrôles des IHM.

@+

[phoenix974]

j'ai changé la syntaxe, mais cela ne reinitialise pas les resultats de mon sous formulaire.

voila comment est initialisé mon formulaire à l'ouverture:

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
Private Sub Form_Load()
Dim ctl As Control
 
'Pour chaque controles dans le formulaire
For Each ctl In Me.Controls
    'Selectionne les 3 premiers caracteres en partant de la gauche
    Select Case Left(ctl.Name, 3)
        Case "cbo"
        'attribue la valeur 0 (soit --tous--) aux contrôles commençant par "cbo"
            ctl.Value = 0
    End Select
Next ctl
 
Me.sfRecherche.Form.RecordSource = "SELECT Article.CodeArticle, Article.Designat°, Clients.NomClient, Catégories.NomCatégorie, FamillePdt.NomFpdt, CUMP_GENE.StockReel, CUMP_GENE.CUMP, CUMP_GENE.ValeurTotalStock, Article.Tx FROM CUMP_GENE INNER JOIN (FamillePdt INNER JOIN (Clients RIGHT JOIN (Catégories INNER JOIN Article ON Catégories.RéfCatégorie = Article.RéfCatégorie) ON Clients.RéfClient = Article.RéfClient) ON FamillePdt.RéfFpdt = Article.RéfFpdt) ON CUMP_GENE.CodeArticle = Article.CodeArticle WHERE (((Article.RéfArticle) > -1)) ORDER BY Article!CodeArticle;"
Me.sfRecherche.Form.Requery
 
End Sub

[madefemere]

Et si tu remets exactement les lignes 14 et 15 de ton code au chargement du formulaire après la mise à 0 de tes combos ? Parce qu'effectivement, tu modifies la source de ton sous-formulaire lors de tes recherches multi-critères j'imagine.

@+

[phoenix974]

voila ce qui se passe lorsque je modifie mes listes de recherche:

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
Private Sub RefreshQuery()
 Dim SQL As String
 Dim SQLWhere As String
 
 SQL = "SELECT Article.CodeArticle, Article.Designat°, Clients.NomClient, Catégories.NomCatégorie, FamillePdt.NomFpdt, CUMP_GENE.StockReel, CUMP_GENE.CUMP, CUMP_GENE.ValeurTotalStock, Article.Tx FROM CUMP_GENE INNER JOIN (FamillePdt INNER JOIN (Clients RIGHT JOIN (Catégories INNER JOIN Article ON Catégories.RéfCatégorie = Article.RéfCatégorie) ON Clients.RéfClient = Article.RéfClient) ON FamillePdt.RéfFpdt = Article.RéfFpdt) ON CUMP_GENE.CodeArticle = Article.CodeArticle WHERE (((Article.RéfArticle) > -1))"
 
 If Me.cboRechCodeArticle <> 0 Then
    SQL = SQL & " And Article!RéfArticle = " & Me.cboRechCodeArticle & " "
 End If
 If Me.cboRechClients <> 0 Then
    SQL = SQL & " And Clients!RéfClient = " & Me.cboRechClients & " "
 End If
 If Me.cboRechCategorie <> 0 Then
    SQL = SQL & " And Catégories!RéfCatégorie = " & Me.cboRechCategorie & " "
 End If
 If Me.cboRechProduits <> 0 Then
    SQL = SQL & " And FamillePdt!RéfFpdt = " & Me.cboRechProduits & " "
 End If
 
 'SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 SQL = SQL & " ORDER BY Article!CodeArticle;"
MsgBox SQL
 Forms![fRecherche]![sfRecherche].Form.RecordSource = SQL
 Forms![fRecherche]![sfRecherche].Form.Requery
 
End Sub

mais est ce qu'il n'y aurait pas un moyen plus simple de faire plutot que de recopier les deux lignes?

[madefemere]

Non. Vu que tu modifies la source du sous-formulaire, il faut remettre la source non filtrée.

[phoenix974]

J'ai un autre soucis lié à ceci concernant mes listes deroulantes, j'ai recréé un sujet.

Pour ce sujet ca marche