débutant: transformer un algorithme en code vba access

Bonjour,
je suis débutant sur VBA Access, mon problème est le suivant.
je souhaite mettre un code vba derrière un bouton de formulaire Access qui exécute toutes les instructions du code après avoir cliqué dessus.

Le fond du problème est le suivant:
j'ai développé une petite base de données Access avec des requêtes et formulaires. Mais là je suis bloqué sur une requête que je pense nécessite un codage en vba (procédure évènementielle) que je ne maitrise absolument pas.
Je dispose d'une table Personnel avec les champs suivants: nom, prenom, matricule, operationEnCours, dateDebutSejour, dateFinSejour (correspondant au dernier jour d'opération d'un individu et est renseigné qu'une fois la personne est relevée), DureSejourEnCours, StatutOperation ("relevé" ou "en opération").
Je voudrais calculer la durée mensuelle du séjour (correspondant au nombre de jours effectués en opération dans le mois en cours) et afficher (sous forme de feuille de données) cette durée mensuelle dans un champs temporairement créé ainsi que les autres champs de la table personnel pour l'ensemble du personnel enregistré dans la base de données.

Voici ci-dessous ce que j'ai fait comme algorithme mais je ne sais pas comment l'implémenter en VBA access de sorte que dès qu'on appuie sur un bouton d'un formulaire le programme vba s'exécute pour me donner le résultat souhaité:

DurSej type entier;
DurMensuel type entier;
DateDebuOper type date;

DurSej=DateAujourdhui - DateDebuOper;
Si DurSej <= 30jrs
Alors { DurMensuel=DurSej;
Afficher dans une feuille de données (nom, prenom, matricule, operationEnCours, dateDebutSejour, dateFinSejour, DureSejourEnCours, StatutOperation, DureMensuelleSejour (comme champs temporaire qui affichera la valeur de la variable DurMensuel));
}
Sinon
{ Faire (DurSej=DurSej - 30) tant que (DurSej>30);
DurMensuel=DurSej;
Afficher dans une feuille de données (nom, prenom, matricule, operationEnCours, dateDebutSejour, dateFinSejour, DureSejourEnCours, StatutOperation, DureMensuelleSejour (comme champs temporaire qui affichera la valeur de la variable DurMensuel));
}

bonjour,
si j'ai bien compris le besoin, il me semble que Diffdate (DateDiff en anglais) pourrait convenir, la fonction calcule le nombre de jours, mois ou années (cela dépend du 1er paramètre) entre 2 dates :
cette formule donne le nombre de mois entre la date de début de séjour et la date du jour dans une requête :

Code:

---

SELECT DateDiff("m";dateDebutSejour;Date()) as DurMensuel FROM latable

---

il faut mettre la date la plus ancienne en premier pour éviter d'avoir un nombre négatif.
Donc à priori, pas besoin de VBA (sauf si c'est imposé dans le cadre d'un exercice)

PS: merci de ne pas solliciter les membres par messagerie privée pour répondre à un post
si je peux répondre, je le fait (et si j'en ai envie), sinon ce sera quelqu'un d'autre

Citation:

---

Envoyé par tee_grandbois

bonjour,
si j'ai bien compris le besoin, il me semble que Diffdate (DateDiff en anglais) pourrait convenir, la fonction calcule le nombre de jours, mois ou années (cela dépend du 1er paramètre) entre 2 dates :
cette formule donne le nombre de mois entre la date de début de séjour et la date du jour dans une requête :

Code:

---

SELECT DateDiff("m";dateDebutSejour;Date()) as DurMensuel FROM latable

---

il faut mettre la date la plus ancienne en premier pour éviter d'avoir un nombre négatif.
Donc à priori, pas besoin de VBA (sauf si c'est imposé dans le cadre d'un exercice)

PS: merci de ne pas solliciter les membres par messagerie privée pour répondre à un post
si je peux répondre, je le fait (et si j'en ai envie), sinon ce sera quelqu'un d'autre

---

Merci de votre réponse. j'ai pris note, cordialement. Je vous y reviens même si je pense que cette fonction ne fait pas ce que je demande.

Citation:

---

Je vous y reviens même si je pense que cette fonction ne fait pas ce que je demande.

---

dans ce cas, tu peux afficher un exemple du résultat que tu souhaites obtenir, souvent un dessin est plus compréhensible que des phrases

Citation:

---

Envoyé par tee_grandbois

dans ce cas, tu peux afficher un exemple du résultat que tu souhaites obtenir, souvent un dessin est plus compréhensible que des phrases

---

Bonjour, désolé du temps pris pour répondre j'étais un peu occupé.

J'ai finalement trouvé la réponse, très simple: un modulo entre la durée totale du séjour et 30jrs a suffit.

Cordialement.