Donner le focus à Access après vérification Ouvert/Fermé
Bonjour à tous les Grands Maîtres, et les autres.
Voilà, j'ai fait un petit programme en mdb (mde plus exactement) pour qu'un vieux monsieur puisse gérer sa discographie. J'ai donc mis un raccourci sur le bureau, mais il n'arrive pas à ne pas rappuyer sur ce raccourci, et donc ouvrir une nouvelle fenêtre du programme. Je me suis mis en quête puisqu'il n'arrive pas à intégrer le Alt-Tab de développer en VB6 une petite appli, après avoir pêché ça et là des indications.
Comment faire pour donner le focus au programme déjà ouvert?
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
Private Sub Form_Load()
Dim RetVal
Dim RetDir
If RetDir = "" Then
RetVal = Shell("C:\Program Files\Microsoft Office\Office12\MSACCESS.EXE C:\Biblio\Biblio.mde", 3)
Open "C:\Biblio\RetValeur.txt" For Output As #1
Write #1, RetVal
Close
Else
Open "C:\Biblio\RetValeur.txt" For Input As #1
Input #1, RetVal
AppActivate RetVal
Close
End If
End
End Sub |
Voilà quelques choses de simple, mais qui ne me donne pas satisfaction, à savoir mettre le focus sur le programme qui s'ouvre ou qui est déjà ouvert.
Merci de vos réponses éclairées et éclairantes.