Mise à jour d'un champ calculé par un code VBA

**Massiliya** · 17/05/2017, 18h09

Bonjour
J'ai déjà créé une discussion sur ce problème qui me bloque depuis une semaine mais j'ai pas trouvé la réponse!!
En effet j'ai une table nommée "dim_aux" qui contient des longueurs (numériques) constituant le champ "Dimcoupe"
et une table nommée "Dimensions" qui contient un champ "Longueur", un champ "matière_première", un champ "Quantité utilisée" et d'autres champs qu'on n'aura pas besoin
Moi je veux modifier le contenu de la table "dimensions" et essentiellement le champ "quantité utilisée"
NB: Pour chaque enregistrement de la table "dim_aux" et pour une valeur donnée de "matière première" saisie dans mon formulaire je vais modifier l'enregistrement correspond de la table "dimensions"
Problème: Je n'ai aucun message d'erreur mais aussi la "quantité utilisée" ne sera pas modifiée dans ma table "dimensions" pourtant que j'ai mis le "Update"!!!
Pour ce faire j'ai créé un code qui semble correcte:

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
Dim rs03 As DAO.Recordset
    Dim rs04 As DAO.Recordset
    Set rs03 = CurrentDb.OpenRecordset("dim_aux")
    Set rs04 = CurrentDb.OpenRecordset("Dimensions")
    rs03.MoveFirst
    While rs03.EOF() 'parcourir la table "dim_aux"
          rs04.MoveFirst 'premier enregistrement de la table "dimensions"
          While rs04.EOF()   'parcourir la table "Dimensions"
             If (rs04![Longueur] = rs03![Dimcoupe] And rs04![Matière première] = Me.CodeMP) Then
                rs04.Edit  'modifier la table "dimensions"
                rs04![Quantité utilisée] = rs04![Quantité utilisée] + Me.Quantity  'calcul du cumul par MP
                rs04.Update ' mise à jour de la table "dimensions"
             End If
             rs04.MoveNext 'enregistrement suivant de la table "dimensions"
          Wend
          rs03.MoveNext 'longueur suivante de la table "dim_aux"
   Wend
    rs03.Close
    rs04.Close
    Set rs03 = Nothing
    Set rs04 = Nothing

De même j'ai eu de l'aide pour résoudre ce problème (par marot_r

) et j'ai écrit ce 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
    Dim rsDim_aux As DAO.Recordset
    Dim rsDimensions As DAO.Recordset
    Dim critere04 As String ' On va mettre dans lequel la "référence_dim" de la table "Dimensions"
    Set rsDim_aux = CurrentDb.OpenRecordset("dim_aux")
    Set rsDimensions = CurrentDb.OpenRecordset("Dimensions")
    rsDim_aux.MoveFirst
    While rsDim_aux.EOF() 'parcourir la table "dim_aux"
          critere04 = "[Longueur] = """ & rsDim_aux![Dimcoupe] & """"
          critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"
          Call rsDimensions.FindFirst(critere04)
          If Not rsDimensions.NoMatch Then
                rsDimensions.Edit  'modifier la table "dimensions"
                rsDimensions![Quantité utilisée] = rsDimensions![Quantité utilisée] + Me.Quantity  'calcul du cumul par MP
                rsDimensions.Update ' mise à jour de la table "dimensions"
          End If
          rsDim_aux.MoveNext 'longueur suivante de la table "dim_aux"
   Wend
   rsDim_aux.Close
   rsDimensions.Close
   Set rsDim_aux = Nothing
   Set rsDimensions = Nothing

Mais ça ne marche pas aussi

Mes tables ne sont pas vides!!!!! et la condition

Code :

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

If (rs04![Longueur] = rs03![Dimcoupe] And rs04![Matière première] = Me.CodeMP) Then

est correcte pour une seule valeur de la table "dimensions"
Si il y'a quelqu'un qui peut m'aider à résoudre ce problème je serais vraiment reconnaissante

**accessisgood** · 18/05/2017, 05h13

Bonjour,

Essaie de changer la syntaxe de tes boucles et de remplacer

While rs0x.EOF

par

While Not rs0x.EOF

**Massiliya** · 18/05/2017, 10h52

Envoyé par accessisgood

Bonjour,

Essaie de changer la syntaxe de tes boucles et de remplacer

While rs0x.EOF par While Not rs0x.EOF

Bonjour

J'ai changé et voici le message d'erreur:

Nom : 333.PNG
Affichages : 769
Taille : 24,7 Ko

En cliquant sur "Débogage" j'obtient ça:

Nom : FFFF.PNG
Affichages : 823
Taille : 27,6 Ko

J'ai mis un message box pour savoir le contenu du critere04 et c'est bien:
[Longueur]="50" and [Matière première]="H 105 27"
Avec 50 c'est la première valeur du champ [Dimcoupe] de la table dim_aux et "H 105 27" c'est le type de la matière première que j'ai saisie dans mon formulaire c.à.d. le Me.Code.MP

Est ce que vous savez où est le problème?

**accessisgood** · 18/05/2017, 15h46

Bonjour,

bon, on a progresse, maintenant les enregistrements sont scrutes

tu mentionnes

[Longueur]="50" and [Matière première]="H 105 27"

Est ce que la definition du champs [Longueur] est un nombre ou un texte, car si c'est un nombre il faut lui enlever les double-quote

**Massiliya** · 18/05/2017, 15h54

En fait oui c'est un nombre!!

Code :

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

1
2
critere04 = "[Longueur] = """ & rsDim_aux![Dimcoupe] & """"""
critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"

je l'ai remplacé par:

Code :

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

1
2
critere04 = "[Longueur] =" & rsDim_aux![Dimcoupe]
critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"

et donc critere04 sera

[Longueur]=50 and [Matière première]="H 105 27"

Mais toujours le même message d'erreur
A+

**tee_grandbois** · 18/05/2017, 19h30

Bonsoir,

Mais toujours le même message d'erreur

le Call est de trop devant le rsDimensions.FindFirst
[Modif:] en trop, mais ce n'est pas ce qui provoque l'erreur, finalement ...

**tee_grandbois** · 18/05/2017, 21h30

Par contre Dimensions semble être une table et non pas une requête. FindFirst ne fonctionne pas avec les tables mais les RecordSet, essaie avec :

Code :

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

Set rsDimensions = Currentdb.openrecordset("select * from Dimensions",dbopenDynaset)

**Massiliya** · 19/05/2017, 01h53

Envoyé par tee_grandbois

Par contre Dimensions semble être une table et non pas une requête. FindFirst ne fonctionne pas avec les tables mais les RecordSet, essaie avec :

Code :

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

Set rsDimensions = Currentdb.openrecordset("select * from Dimensions",dbopenDynaset)

J'ai fait la modification mais bon il y'a toujours un problème!!!
Nom : Capture.PNG
Affichages : 828
Taille : 31,3 Ko

**Massiliya** · 19/05/2017, 01h58

En fait voici ce que j'obtiens en cliquant sur 'aide'

L'expression de critère d'une méthode Find tente de comparer un champ à une valeur dont le type de données ne correspond à celui du champ.

Moi j'ai deux champ dans le critère et non pas un seul!!!!

**Massiliya** · 19/05/2017, 02h03

Je vous passe le code de nouveau:

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
    Dim rsDim_aux As Recordset
    Dim rsDimensions As Recordset
    Dim critere04 As String ' On va mettre dans lequel la "référence_dim" de la table "Dimensions"
    Set rsDim_aux = CurrentDb.OpenRecordset("dim_aux")
    Set rsDimensions = CurrentDb.OpenRecordset("select * from Dimensions", dbOpenDynaset)
    rsDim_aux.MoveFirst
    While Not rsDim_aux.EOF() 'parcourir la table "dim_aux"
          Debug.Print rsDim_aux![Dimcoupe]
          critere04 = "[Longueur] =" & rsDim_aux![Dimcoupe]
          critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"
          Debug.Print critere04
          Call rsDimensions.FindFirst (critere04)
          If Not rsDimensions.NoMatch Then
                 rsDimensions.Edit   'modifier la table "dimensions"
                 rsDimensions![Quantité utilisée] = rsDimensions![Quantité utilisée] + Me.Quantity  'calcul du cumul par MP
                 rsDimensions.Update 'mise à jour de la table "dimensions"
          End If
          rsDim_aux.MoveNext 'longueur suivante de la table "dim_aux"
   Wend
   rsDim_aux.Close
   rsDimensions.Close
   Set rsDim_aux = Nothing
   Set rsDimensions = Nothing

Merci d'avance
A+

**accessisgood** · 19/05/2017, 08h20

Bonjour,

tu as enlevé les references a DAO ?, essaie en les remettant

**Massiliya** · 19/05/2017, 10h35

Envoyé par accessisgood

Bonjour,

tu as enlevé les references a DAO ?, essaie en les remettant

Bonjour

Je les ai rajouté mais toujours le même message d'erreur

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
Dim rsDim_aux As DAO.Recordset
    Dim rsDimensions As DAO.Recordset
    Dim critere04 As String ' On va mettre dans lequel la "référence_dim" de la table "Dimensions"
    Set rsDim_aux = CurrentDb.OpenRecordset("dim_aux")
    Set rsDimensions = CurrentDb.OpenRecordset("select * from Dimensions", dbOpenDynaset)
    rsDim_aux.MoveFirst
    While Not rsDim_aux.EOF() 'parcourir la table "dim_aux"
          Debug.Print rsDim_aux![Dimcoupe]
          critere04 = "[Longueur] =" & rsDim_aux![Dimcoupe]
          critere04 = critere04 & " and [Matière première] = """ & Me.CodeMP & """"
          Debug.Print critere04
          rsDimensions.FindFirst critere04
          If Not rsDimensions.NoMatch Then
                 rsDimensions.Edit   'modifier la table "dimensions"
                 rsDimensions![Quantité utilisée] = rsDimensions![Quantité utilisée] + Me.Quantity  'calcul du cumul par MP
                 rsDimensions.Update 'mise à jour de la table "dimensions"
          End If
          rsDim_aux.MoveNext 'longueur suivante de la table "dim_aux"
   Wend
   rsDim_aux.Close
   rsDimensions.Close
   Set rsDim_aux = Nothing
   Set rsDimensions = Nothing

Fallait-il que je vous passe le fichier???
A+

**tee_grandbois** · 19/05/2017, 14h45

Bonjour Massiliya,

En fait voici ce que j'obtiens en cliquant sur 'aide'
L'expression de critère d'une méthode Find tente de comparer un champ à une valeur dont le type de données ne correspond à celui du champ.
Moi j'ai deux champ dans le critère et non pas un seul!!!!

l'erreur 3464 indique un problème de comparaisons de données, donc, il faut vérifier que les 4 champs concernés (les 2 champs de la table et les 2 champs du critère sont de même type.
En gros est-ce que [Longueur] et rsDim_aux![Dimcoupe] sont de même type ainsi que [Matière première] et Me.CodeMP ?

**Massiliya** · 21/05/2017, 12h43

Envoyé par tee_grandbois

Bonjour Massiliya,
l'erreur 3464 indique un problème de comparaisons de données, donc, il faut vérifier que les 4 champs concernés (les 2 champs de la table et les 2 champs du critère sont de même type.
En gros est-ce que [Longueur] et rsDim_aux![Dimcoupe] sont de même type ainsi que [Matière première] et Me.CodeMP ?

Bonjour
Vous avez raison Tee en fait j'ai pas pris conscience que le type de [Longueur] était "texte court" alors que [Dimcoupe] est de type "numérique"
Je les ai changé tout les deux sont numériques maintenant
Et du coup ça marche très bien et le problème est résolu maintenant
Merciiiiiiiiiii énormément

Mise à jour d'un champ calculé par un code VBA

VBA Access

Discussions similaires

Partager

Partager