Bonjour,

Disposant de plusieurs liste à mettre à jour dans un formulaire, mise à jour réalisée lors de l'ouverture du formulaire, les liste affichent dans un premier temps les informations par default et donc je voudrais créer un temps d'attente (genre 2 secondes) avant que le formulaire s'affiche à l'ecran.

Avez-vous une idée?

Voici mon code lors de l'ouverture du formulaire

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
Private Sub Form_Load()
    Me.SetFocus
    DoCmd.Maximize
 
    Set clMouseWHeel = New MouseWheelDVP.CMouseWheel
    Set clMouseWHeel.Form = Me
    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
 
    SQLManReport = "SELECT ManagerReport.*, ManagerReport.Date, * FROM ManagerReport WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY ManagerReport.Date DESC ;"
    Me.lstResultsManReport.RowSource = SQLManReport
    Me.lstResultsManReport.Requery
 
    SQLRiskMatrix = "SELECT RisksComplete.* FROM RisksComplete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY Date DESC;"
    Me.lstResultsRiskMatrix.RowSource = SQLRiskMatrix
    Me.lstResultsRiskMatrix.Requery
 
    SQLAUdit = "SELECT Audit.* FROM Audit WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY DateofAUdit DESC;"
    Me.lstResultsAudit.RowSource = SQLAUdit
    Me.lstResultsAudit.Requery
 
    SQLDirector = "SELECT Fund_BoardDirector_Complete.* FROM Fund_BoardDirector_Complete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY First_NAme ASC;"
    Me.lstBoardsDirector.RowSource = SQLDirector
    Me.lstBoardsDirector.Requery
 
    SQLReference = "SELECT Fund_BoardDirector_Complete.* FROM Fund_BoardDirector_Complete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY First_NAme ASC;"
    Me.Liste451.RowSource = SQLReference
    Me.Liste451.Requery
 
    SQLPrimeBroker = "SELECT Fund_PrimeBroker_Complete.* FROM Fund_PrimeBroker_Complete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY Given_Name ASC;"
    Me.LstPrimeBroker.RowSource = SQLPrimeBroker
    Me.LstPrimeBroker.Requery
 
    SQLAdministrator = "SELECT Fund_Administrator_Complete.* FROM Fund_Administrator_Complete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY Fund_Administrator_Complete.Given_Name;"
    Me.LstFundAdministrator.RowSource = SQLAdministrator
    Me.LstFundAdministrator.Requery
 
    SQLLiquidity = "SELECT Fund_Liquidity_Complete.* FROM Fund_Liquidity_Complete WHERE [ID_Fund]=" & Me.Texte14 & " ORDER BY Name_LiquidityClass;"
    Me.lstLiquidity.RowSource = SQLLiquidity
    Me.lstLiquidity.Requery
 
    Call MiseAjourManhisto
    Me.Texte18.SetFocus
    IDFundPersonne = Me.Texte14
End Sub