Comment convertir cette formule en code vba Access

Bonjour tout le monde;
je dispose d´une table access < Mes Notes>
ID Élève;....;Contôle 01;Devoir 01;Devoir 02;Composition 01,..
.................................................. .....................................
dans ma requette de calcul j´utilise cette formule pour calculer la moyenne suivante:

Moy Dev: (Nz([Contôle 01];0)+Nz([Devoir 01];0)+Nz([Devoir 02];0))/(VraiFaux(EstNull([Contôle 01]);0;1)+VraiFaux(EstNull([Devoir 01]);0;1)+VraiFaux(EstNull([Devoir 02]);0;1))

puis j´utilise celle-ci pour calculer la moyenne pondérée:

Moytrim 01: (Nz([Moy Dev ]*2;0)+Nz([Composition 01]*3;0))/(VraiFaux(EstNull([Moy Dev ]);0;1*2)+VraiFaux(EstNull([Composition 01]);0;1)*3)

Merci bcp.

voici le lien du fichier joint:
Download Mes notes.rar - Kiwi6 Mp3 Upload