table de variable multiple

Version imprimable

bonjour

je suis en train de me replonger dans un projet commencer il y a 5 ans (et oui déjà)

j'ai un boue de code qui fonctionne mais je suis en train de rajouté plein de variable (si) et c'est pas très bon je sais surtout que j'ai plein de variable a faire contrôlé a mon code et que j’atteins les limites du nombre de si

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
 If DebitRst.Fields("Nom").Value Like "B*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
    
      
        If DebitRst.Fields("Nom").Value Like "D*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
    
        If DebitRst.Fields("Nom").Value Like "CME*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Mela").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
    
     If DebitRst.Fields("Nom").Value Like "COIFFEUSE*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_AluPVC").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                 End If
            If Not ArticlesRst.EOF Then
        DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
    
       
          If DebitRst.Fields("Nom").Value Like "I*" Then
          DebitRst.Fields("ResultatCouleur").Value = Null
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Elec").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
              End If
         If Not ArticlesRst.EOF Then
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
       Else

j'ai mi qu'une parti pour illustré mon problème, en bleu ce sont mes variables de correspondance de recherche et en rouge une valeur a récupérée dans un autre table

j'ai fait une table avec c'est variable mais comment aller lui faire prendre c'est paramètre (dans ma table une colonne avec les variable rouge et une colonne avec le non de la colonne a récupéré)

une idée?

en espérant avoir été claire

merci d'avance pour votre aide

Salut
Comme ça à la volée une idée

Code:

1
2
3
4
5
6
7
8
9
Select Case DebitRst.Fields("Nom")
    Case "B"
       'exécuter action
    Case "C"
       'exécuter action
    Case Else
       'exécuter action
...
End Select

Bonjour,

Pour info, si vous utilisez la balise couleur dans votre code, vous perdez la colorisation syntaxique.

Pour votre problème, si la seule différence des blocs if ... end if se situe au niveau du champ "couleur_.." alors peut-être une piste pour simplifier :

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
    If DebitRst.Fields("Nom").Value Like "B*" Then
 
        champ_couleur = "Couleur_Alu"
 
    elseif DebitRst.Fields("Nom").Value Like "D*" Then
 
        champ_couleur = "Couleur_Alu"
 
    elseif DebitRst.Fields("Nom").Value Like "CME*" Then
 
         champ_couleur = "Couleur_Mela"
 
    elseif DebitRst.Fields("Nom").Value Like "COIFFEUSE*" Then
 
        champ_couleur = "Couleur_AluPVC"
 
    elseif DebitRst.Fields("Nom").Value Like "I*" Then
 
        champ_couleur = "Couleur_Elec"
 
    end if
 
 
    'Instancie la base de données
    Set ArticlesDb = CurrentDb
 
    'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
 
    Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields(champ_couleur).Value, "'", "''") & "'", dbOpenDynaset)
 
    If Not ArticlesRst.EOF Then
        'Atteint le dernier enregistrement
        ArticlesRst.MoveLast
	DebitRst.edit
        DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
	DebitRst.update
    end if

Cdlt,

merci a tous de vos réponse

j'ai mie du temp pour vous répondre mes collegues ne m'on pas lacher sur d'autre chose

en faite, mon code faite une certaine manipulation de donné général, mais j'ai des exceptions selon certain article (ligne 79 à 220 à l'heure actuel), que des cas particulier, qui de plus n'est pas encore complète, la liste vas être plus long, doit être modifier dans le temps facilement (donc avec une table d’exception)

comment faire pour que ca fonctionne via une table

avec une table sous cette forme

variable-------->Action
B*-------->Ac_Couleur_Alu
CME*-------->Ac_Couleur_Mela
F-RIDEAU-------->Ac_Egale
.....-------->..........
.....-------->..........
.....-------->..........

qui appel c'est action (sytaxe a voir)

Code:

1
2
3
4
5
Ac_Couleur_Alu = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
 
Ac_Couleur_Mela = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Mela").Value, "'", "''") & "'", dbOpenDynaset)
 
Ac_Couleur_Egale =  DebitRst.Fields("Nom")

comment syntaxer tous ca de façon propre

des idée

merci d'avande pour vos répnces

Code actuel complet

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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
Option Compare Database
 
 
Private Sub ChoixForce_GotFocus()
 
Me.ChoixForce.RowSource = "SELECT Articles.CODEART FROM Articles WHERE Articles.CODEART Like """ & Me.[Nom] & "*"""
 
End Sub
 
Private Sub ChoixForce_LostFocus()
 
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "Rq_Couleur_AluMela"
    DoCmd.OpenQuery "Rq_Couleur_Alu"
    DoCmd.OpenQuery "Rq_Couleur_Mela"
    DoCmd.OpenQuery "Rq_Couleur_AluPVC"
    DoCmd.OpenQuery "Rq_Couleur_PVC"
    DoCmd.OpenQuery "Rq_Couleur_Elec"
    DoCmd.OpenQuery "Rq_ChoixForce"
    DoCmd.SetWarnings True
 
End Sub
 
Private Sub Form_Open(Cancel As Integer)
 
Dim DebitRst As DAO.Recordset
Dim DebitDb As DAO.Database
Dim ArticlesDb As DAO.Database
 
Dim ArticlesRst As DAO.Recordset
Dim LngNbEnregistrement As Long
Set DebitDb = CurrentDb
Set DebitRst = DebitDb.OpenRecordset("Débit", dbOpenTable)
 
While Not DebitRst.EOF
  'Passe en mode modification
  DebitRst.Edit
 
  'Affecte le nombre d'article trouver
 
        'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
 
    Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*'", dbOpenDynaset)
        If Not ArticlesRst.EOF Then
        'Atteint le dernier enregistrement
        ArticlesRst.MoveLast
        'Compte les enregistrements accédés (soit le total)
        LngNbEnregistrement = ArticlesRst.RecordCount
 
    Else
    LngNbEnregistrement = 0
    End If
 
  DebitRst.Fields("ComptageResultat").Value = LngNbEnregistrement
 
    If DebitRst.Fields("ComptageResultat").Value = 0 Then
    DebitRst.Fields("ResultatForce").Value = DebitRst.Fields("Nom")
    Else
 
    If DebitRst.Fields("ComptageResultat").Value = 1 Then
    DebitRst.Fields("ResultatForce").Value = ArticlesRst.Fields("CODEART")
    Else
 
     If DebitRst.Fields("ComptageResultat").Value = 12 Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_AluMela").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
    If DebitRst.Fields("Nom").Value Like "B*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
    If DebitRst.Fields("Nom").Value Like "DPORTE240X94" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & "DPORTE240X94" & "-" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
        If DebitRst.Fields("Nom").Value Like "D*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Alu").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
        If DebitRst.Fields("Nom").Value Like "CME*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Mela").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
     If DebitRst.Fields("Nom").Value Like "COIFFEUSE*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_AluPVC").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                 End If
            If Not ArticlesRst.EOF Then
        DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
     If DebitRst.Fields("Nom").Value Like "ACORNIERE" Then
    DebitRst.Fields("ResultatCouleur").Value = "ACORNIERE"
    Else
 
    If DebitRst.Fields("Nom").Value Like "F-RIDEAU" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & "F-RIDEAU??" & "'")
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                 End If
            If Not ArticlesRst.EOF Then
        DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
         If DebitRst.Fields("Nom").Value Like "GPLTOUR032" Then
    DebitRst.Fields("ResultatCouleur").Value = "GPLTOUR032"
    Else
 
          If DebitRst.Fields("Nom").Value Like "I*" Then
          DebitRst.Fields("ResultatCouleur").Value = Null
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_Elec").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
              End If
         If Not ArticlesRst.EOF Then
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
       Else
 
         If DebitRst.Fields("Nom").Value Like "K*" Then
          DebitRst.Fields("ResultatCouleur").Value = DebitRst.Fields("Nom")
          Else
 
          If DebitRst.Fields("Nom").Value Like "T*" Then
          DebitRst.Fields("ResultatCouleur").Value = DebitRst.Fields("Nom")
          Else
 
    If DebitRst.Fields("Nom").Value Like "J*" Then
          DebitRst.Fields("ResultatCouleur").Value = DebitRst.Fields("Nom")
          Else
 
    If DebitRst.Fields("Nom").Value Like "PORTABA1074" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & "PORTABA1074" & "-" & Replace(DebitRst.Fields("Couleur_AluMela").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
            If Not ArticlesRst.EOF Then
        DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
            Else
 
     If DebitRst.Fields("Nom").Value Like "Z2EM*" Then
     'Instancie la base de données
        Set ArticlesDb = CurrentDb
        'Ouvre le curseur retournant le nombre d'articles contenant la valeur de "Nom"
        Set ArticlesRst = ArticlesDb.OpenRecordset("SELECT Articles.CODEART FROM Articles WHERE  Articles.CODEART Like '" & Replace(DebitRst.Fields("Nom").Value, "'", "''") & "*" & Replace(DebitRst.Fields("Couleur_AluPVC").Value, "'", "''") & "'", dbOpenDynaset)
            If Not ArticlesRst.EOF Then
            'Atteint le dernier enregistrement
            ArticlesRst.MoveLast
            Else
                End If
                 If Not ArticlesRst.EOF Then
    DebitRst.Fields("ResultatCouleur").Value = ArticlesRst.Fields("CODEART")
    Else
 
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
    End If
 
  'Met à Jour
  DebitRst.Update
  'Passe au suivant
  DebitRst.MoveNext
Wend
 
'Libération des objets
 
 
 
DebitRst.Close
DebitDb.Close
Set DebitRst = Nothing
Set DebitDb = Nothing
 
ArticlesRst.Close
ArticlesDb.Close
Set ArticlesRst = Nothing
Set ArticlesDb = Nothing
 
 
 
End Sub