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 : 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
 
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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...

Merci par avance!!