Quelles sont les raisons pour lesquelles on ne puisse pas mettre à jour un recordset?
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:
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.
