Discussion :

[Thierry'']

Bonjour à tous,

Je souhaite faire une pause dans l'execution d'un code, j'ai trouvé dans la FAQ le code suivant:

Code :

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

1
2
3
4
5
6
Placez cette ligne dans la partie Déclarations d'un module :
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Vous pourrez ainsi faire une pause de 2 secondes avec l'appel suivant :
Sleep 2000

Or j'ai un message d'erreur:
erreur de compilation
Sub ou Function non définie

Et je ne vois pas où est le problème

Merci de votre aide

[Lou Pitchoun]

Salut,

Il faut la déclarer comme Public.

Code :

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

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

[Thierry'']

Après modification j'ai le message d'erreur suivant:

L'expression sur clic entrée comme paramètre de la propriété de type événement est à l'origine d'une erreur. Des constantes, chaînes de longeur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membre Public de modules d'objet.

[Lou Pitchoun]

Où et quand appelles tu cette fonction ?
Mets aussi le code des fois que...

[Thierry'']

Voilà le code

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
Option Compare Database
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
 
Private Sub Commande8_Click()
Dim Db As DAO.Database
Dim tbd As DAO.TableDef
Dim fld As DAO.Field
Set Db = CurrentDb
For Each tbd In Db.TableDefs
    For Each fld In tbd.Fields
        Texte0 = tbd.Name & "   " & fld.Name
        Sleep 200
    Next
Next
End Sub

[Lou Pitchoun]

Bizarre : j'ai pas le problème.

J'ai testé avec la fonction en public dans un module, en private dans le module du formulaire : tout fonctionne...