Discussion :

[lbar012001]

Bonjour,

A l'ouverture de mon formulaire MENU Access (qui s'ouvre automatiquement à l'ouverture de la DB), je souhaite exécuter une procédure.
Je met l'appel de cette procédure qu'on nommera X à la fin de form_current (qui gère le rafraichissement de l'écran).
J'ouvre ma DB, X s'enclenche bien toute seule mais mon écran n'est visible/rafraichi qu'à la fin du traitement.

Comment faire en sorte, sur quel évènement, bref comment faire pour que mon formulaire apparaissent bien à l'écran et qu'en suite seulement, après affichage, X soit lancé ?

J'ai essayé plein de méthodes requery/refresh/repain/doevents ou évènements load/open/gotfocus... mais rien n'y fait chaque fois mon formulaire ne s'affiche qu'après la fin de traitement de X.

Merci pour votre aide

Laurent

[fclus]

Sur ouverture du formulaire principal :

Code :

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

1
2
3
4
5
Me.SetFocus
WaitSeconds (3)
'Exemple
DoCmd.Close
DoCmd.OpenForm "Form1"

Dans un 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
20
21
22
23
24
25
26
27
28
Option Compare Database
Private Declare Sub Sleep Lib "kernel32" (ByVal lngMilliSeconds As Long)
 
 
Public Sub WaitSeconds(intSeconds As Integer)
  ' Comments: Waits for a specified number of seconds
  ' Params  : intSeconds      Number of seconds to wait
  ' Source  : Total Visual SourceBook
 
  On Error GoTo PROC_ERR
 
  Dim datTime As Date
 
  datTime = DateAdd("s", intSeconds, Now)
 
  Do
   ' Yield to other programs (better than using DoEvents which eats up all the CPU cycles)
    Sleep 100
    DoEvents
  Loop Until Now >= datTime
 
PROC_EXIT:
  Exit Sub
 
PROC_ERR:
  MsgBox "Error: " & Err.Number & ". " & Err.description, , "modDateTime.WaitSeconds"
  Resume PROC_EXIT
End Sub

[lbar012001]

parfait merci !