Discussion :

[keketteboy]

Bonjour toute la communauté !!

Alors, voilà mon problème. J'ai créé un formulaire avec des listes déroulantes modifiables qui me servent de filtre pour affiner une recherche. Quand je veux modifier ma recherche en cliquant sur une de ces listes, toutes les listes en aval doivent se mettre à zéro. Mon problème c'est que ça marche très bien sauf pour un contrôle et ça me met "impossible de mettre à jour RecordSet" ?? Quelles peuvent en être les raisons ??

Voici mon code :

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
 
Private Sub cbAnnee_Change()
 
Num_Prod.Value = ""
 
Critère3.Value = ""
Critère3.Requery
 
Critère2.Value = ""
Critère2.Requery
 
Nom_Prod.Value = ""
Nom_Prod.RowSource = "SELECT [Nom_Produit], [Num_Produit] FROM [Produits] " _
& "WHERE [Num_Contrat] = [Forms]![MonFormulaire]![numcontrat2] ORDER BY [Nom_Produit] ;"
 
Critère1.Value = ""
 
Num_Prod.Value = ""
 
End Sub
 
Private Sub cbAnnee_Click()
 
Num_Prod.Value = ""
 
Critère3.Value = ""
Critère3.Requery
 
Critère2.Value = ""
 
Critère1.Value = ""
 
End Sub
 
Private Sub Critère1_Change()
 
Num_Prod.Value = ""
 
Critère2.Value = ""
Critère2.RowSource = "SELECT [MaRequeteSurCritere2].[Critère2] FROM MaRequeteSurCritere2 BY [MaRequeteSurCritere2].[Critère2]; "
 
 
Critère3.Value = ""
Nom_Prod.Value = ""
 
End Sub
 
Private Sub Critère3_Change()
 
numcontrat2.Requery
Critère3.Requery
 
Nom_Prod.Value = ""
Nom_Prod.RowSource = "SELECT [Nom_Produit], [Num_Produit] FROM [Produits] " _
& "WHERE [Num_Contrat] = [Forms]![MonFormulaire]![numcontrat2] ORDER BY [Nom_Produit] ;"
 
Num_Prod.Value = ""
 
End Sub
 
Private Sub Critère2_Change()
Critère3.Value = ""
Critère3.RowSource = "SELECT [MaRequeteSurCritere3].[Critère3] FROM MaRequeteSurCritere3; "
Nom_Prod.Requery
Num_Prod.Value = ""
Nom_Prod.Value = ""
 
End Sub
 
Private Sub Nom_Prod_Change()
 
Dim numcontrat As String
 
numcontrat = numcontrat2.Value
 
Num_Prod.Value = Nom_Prod.Value

Là où ça bloque c'est sur mon critère2. Il ne veut pas le remettre à jour. Je ne vois vraiment pas pourquoi, puisque j'utilise ce même code dans un autre formulaire et il fonctionne très bien.

Merci d'avance.

[Jean-Philippe André]

SAlut,
il me semble que cette requete n'est pas "viable"

Code SQL :

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

Critère2.RowSource = "SELECT [MaRequeteSurCritere2].[Critère2] FROM MaRequeteSurCritere2 BY [MaRequeteSurCritere2].[Critère2]; "

ne manque-t-il pas un GROUP ou un ORDER ?

[keketteboy]

euh ... si, c'était un GROUP BY qui s'est perdu malheureusement dans le copier-coller de mon code. Je viens tout juste de comprendre pourquoi ça ne marchait pas. J'avais modifié la propriété Source sans m'en rendre compte.
:p Merci beaucoup !!! Sinon j'aimerais savoir s'il existait une fonction qui permettrait de parcourir chaque ligne d'un tableau dans un formulaire afin de récupérer les valeurs des cases, un peu comme la fonction For Each mais qui n'existe que pour les contrôles (j'ai essayé pour mon tableau mais ça me sort un message d'erreur comme quoi la fonction ne prenait pas ce type d'objet).