Exécution Module - ouverture de formulaire

Bonjour!!

Encore un petit problème...

J'ai créé un module dans la console VB d'Access. Ce module j'aimerais bien
l'exécuter à l'ouverture du formulaire, ainsi qu'à sa fermeture.

Voici le code du module :

Code:

---

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

Sub AlerteStock1() Dim strSQL As String Dim RS As Recordset strSQL = "SELECT [StockDocs_Tot]![GTfrStock]-[Tot_Docs_Accueil]![GTfr]-[TotDocs_Courrier]![GTfr] AS [GTfrTest]," strSQL = strSQL & "[StockDocsSAR].[GTfrA] AS [GTfrAR]FROM [Tot_Docs_Accueil], [TotDocs_Courrier], [StockDocs_Tot], [StockDocsSAR] WITH OWNERACCESS OPTION"   Set RS = CurrentDb.OpenRecordset(strSQL)   Do Until RS.EOF   If RS![GTfrTest] < RS![GTfrAR] Then MsgBox RS![GTfrTest] & " guides touristiques FRANCAIS restants", vbOKOnly, "COMMANDER guides touristiques FRANCAIS" End If RS.MoveNext   Loop   End Sub

---

et voici la commande à l'ouverture :

Code:

---

1 2 3 4 5 6

Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize DoCmd.GoToRecord , , acNewRec DoCmd. End Sub

---

au dernier DoCmd. j'aimerais l'exécuter mais je ne sais pas quelle commande utiliser... :oops:

Merci par avance!!

Pour appeler une procédure :

Code:

---

Call NomTaProcedure

---

Si la procédure n'est pas dans le même module il faut qu'elle soit déclarée 'public'.

A+

Salut! Merci pour ta réponse rapide!!

Mon module est un module standard et est nommé "AlerteStock1".

C'est ça la procédure??

Donc il faut que je l'intègre comme suit`??

Code:

---

1 2 3 4 5 6

Private Sub Form_Open(Cancel As Integer) DoCmd.Maximize DoCmd.GoToRecord , , acNewRec Call "AlerteStock1" End Sub

---

Je suis débutant... :roll:

Les guillemets servent seulement à délimiter des chaînes de caractères.

Il faut écrire directement

Code:

---

call AlerteStock1

---

A+

ça marche!!

Merci beaucoup...

A+