Discussion :

[Super Fanja]

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.

[marot_r]

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 :

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
 
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

[Super Fanja]

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

[Super Fanja]

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

[marot_r]

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

ex :

Code :

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

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 sql :

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

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+