[AC-2010] Pause avant fermeture et ouverture [Résolu]

[scoobydoos]

Bonjour,

Sur l'action d'un bouton ok, je veux faire une pause avant de fermer le formulaire et d'ouvrir un autre formulaire ?
Je sais qu'il y avait "Pause" en vb je crois mais là je sais pas.

merci par avance

@+

[GAYOT]

Bonjour
Qu'appelles tu "Pause".
Un temps précis entre deux évènements, ou attente de la fin d'un traitement pour en effectuer un autre....

[scoobydoos]

Bonjour,

Un temps précis entre deux évènements, ou attente de la fin d'un traitement pour en effectuer un autre....

Sur l'action de mon bouton "ok" de mon formulaire "identification", je veux effectuer une pause avant qu'il continu :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Private Sub CommandButton_ok_Click()
 
'Déclaration des variables
Dim MaBD As DAO.Database
Dim Enr As DAO.Recordset
Dim MonSQL As String
Static i As Byte
 
'MaBD fait référence à la base de données active
Set MaBD = CurrentDb
 
'Affectation de l'instruction SQL :
MonSQL = "SELECT [Nom de l'employé] FROM [Noms et pass Employés] WHERE [Nom de l'employé] = '" & Me.liste_employes & "' AND pass ='" & Me.txtpass & "';"
 
'Initialisation du Recordset
Set Enr = MaBD.OpenRecordset(MonSQL, dbOpenDynaset)
 
If Not Enr.EOF Then
    'Met l'image du cadenas en vert
    Me.imgcle.Picture = CurrentProject.Path & "\images\icocadenas2.jpg"
    '=> PAUSE !!!!!!
    DoCmd.OpenForm "Accueil", acNormal, , , , acWindowNormal
    DoCmd.Close acForm, "Identification"
    'User_id = Enr([Nom de l'employé]).Value
    'User_droits = Enr("droits").Value
Else
    MsgBox "Le login et/ou le mot de passe sont incorrects !", vbInformation, "Connexion"
    i = i + 1
End If
 
If i = 3 Then
    MsgBox "Vous avez dépassé le nombre de tentatives autorisées !" & vbCr & vbCr & "La base de donnée va se fermer.", vbCritical
    DoCmd.Quit
End If
 
End Sub

C'est une pause en attendant une action.

J'ai essayé ca soit dans un module ou sur le formulaire :

Code :

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

mais cela me met une erreur ?!

Merci par avance

@+

[scoobydoos]

Bonjour,

En fait j'avais oublié des ()
Donc dans un module :

Code :

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

Dans le formulaire où vous voulez la pause :

Code :

Sleep (3000) 'Pour 3s

Merci

PS : En passant dans le tuto : LA => il manque les ()

@+