Discussion :

[Poisell]

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!!

[marot_r]

Pour appeler une procédure :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Call NomTaProcedure

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

A+

[Poisell]

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 :

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
Call "AlerteStock1"
End Sub

Je suis débutant...

[marot_r]

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

Il faut écrire directement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

call AlerteStock1

A+

[Poisell]

ça marche!!

Merci beaucoup...

A+