Attribuer à un enregistrement ACCESS la valeur d'une variable calculée en VBA

Bonjour,

Je dois réaliser un programme en VBA sur ACCESS. J'ai quelques notions de VBA sur Excel et quelques notions d'ACCESS.

Le programme est simple sur Excel je ne sais pas s'il peut être facilement transposable sur ACCESS :

Il y a 1 Table => "Calcul"

Cette table "Calcul" contient 4 Champs :

- "Clé", NuméroAuto
- "A", numérique
- "B", numérique
- "C", numérique

Objectif :

- enregistrer pour chaque ligne de cette table la valeur "C" = "A" * "B"
- je souhaite que mon code VBA réalise cette multiplication => variable "Mult"

Au final je voudrais un code similaire au code ci-dessous :

(En rouge les éléments que je ne connaîs pas => manipulation des objets ACCESS en VBA)

Sub Multiplication

Dim A, B, Mult as Double
Dim i as integer

For i = 1er enregistrement to dernier enregistrement

A = [Calcul]![A].ligne i ' par exemple 2
B = [Calcul]![C].ligne i ' par exemple 3
Mult = A * B ' par exemple 2*3 = 6
[Calcul]![C].ligne i = Mult

Next i

End Sub

Est-il possible de créer ce genre de code sur ACCESS ?
Je précise qu’il est nécessaire de conserver la notion de « Enregistrement » = variable calculée par VBA.

Merci par avance de votre aide.

Tu peux le faire en VBA mais une requête de MAJ, et à vrai dire plutôt une requête simple car il est recommandé de ne pas stocker le résultat d'un calcul dans une table à moins d'avoir des problèmes de performance, serait plus efficace.

Faier excuter la requête peut se faire ainsi :

docmd.setWarning false 'Annlue les alertes sur les requêtes de modif de données
docmd.runquery("NomTaQuery")
docmd.setWarning true 'Rétablit les alertes sur les requêtes de modif de données

Ici tout de même un exemple de code qui fait ce que tu demandes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Sub Multiplication   Dim A as Double, B as Double, Mult as Double 'En VBA il faut préciser le type de TOUTES les variables lors d'une déclaration multiple Dim i as integer   dim db as dao.database:set db=currentdb dim r as dao.recordset:set=r=db.openrecordset("NomSourceDonnees",dbOpenDynaset)   do while not r.eof() 'tant qu'il y a des lignes dans la source r.edit A = r![A] B = r![B] Mult = A * B ' par exemple 2*3 = 6 r![C] = Mult 'ou r![c]=r![a]*r![b] qui remplace les 3 lignes précdentes r.update r.movenext 'Passe à l'enregistrement suivant loop   r.close:set r=nothing 'Ferme la source de données, libère la mémoire utilisée set db=nothing 'Libère la mémoire utilisée   End Sub

---

Génial merci beaucoup. Cette réponse répond parfaitement à ma demande.

Je dois m'appuyer sur un algorithme pour trouver chaque résultat c'est pourquoi j'avais besoin de savoir comment utiliser VBA.

Pour info tu peux combiner VBA et une requête en utilisant aussi une fonction VBA.

ex :

Code:

---

1 2 3 4 5 6 7

public MaFonction(monParam as unType, monParam2 as unAutreType) as unTypeDifferent dim result as unTypeDifferent ' ' ici du code VBA ' MaFonction=result end function

---

et en SQL

Code:

---

select MaTable.*, MaFonction([MonChamp1], [MonChamp2]) as MonChampCalcule form MaTable;

---

Va faire les calculs contenus dans MaFonction pour tous les enregistrements de MaTable.

Ainsi tu économise la boucle de parcours.

Toutefois cela peut être parfois moins rapide. La présence de la fonction empèche l'optimisation de l'exécution de la requête ... en pratique cela n'est générale pas trop un problème.

A+