Intégrer une fonction vba à une requête

Bonjour,

Je souhaite créer un formulaire qui calcule une date d'expédition à partir d'une date de livraison et d'un délai et une date de début au plus tard de la production à partir de cette date d'expédition et d'un temps de production. J'ai trouvé un code vba qui fonctionne mais étant donné que mon formulaire est en tabulaire, je dois l'intégrer dans ma requête (mon formulaire est créé à partir d'une requête). Toutefois je ne sais pas comment intégrer cette fonction écrite en visual basic dans la requête.

Voici mon code qui est dans un module appelé "delai" (delai, date_livraison sont des champs dans des tables, date_exp deviendra un champ dans la requête).
Faut-il que je spécifie "function Dateexp(date_livraison,delai)" vu que le calcul se fait en fonction de ces champs?

Option Compare Database
Public date_exp As Date
Public jour As Integer
Public ecart As Integer
Public delai As Integer
Public Date_livraison As Date

Function Dateexp()

ecart = 0

jour = Weekday(Date_livraison)

While delai > 0
If jour = 2 Then
ecart = ecart + 3
jour = 6
Else
ecart = ecart + 1
jour = jour - 1
End If

delai = delai - 1
Wend

date_exp = Date_livraison - ecart

End Function

Quand je vais dans ma requête,et dans le générateur d'expression je trouve ma fonction dateexp je double clique dessus et ça note "dateexp()". Mais ça ne donne pas de résultat dans la colonne lors de l'exécution.
Comment faire pour que le calcul se fasse?

J'espère que mon explication est claire.
Merci d'avance.