[VB] afficher appli access déja ouverte
Résolu
fl0
Messages postés
365
Statut
Membre
-
fl0 Messages postés 365 Statut Membre -
fl0 Messages postés 365 Statut Membre -
Salut à tous
Voila mon problème
j'ai une base de données access qui est ouverte derriere une autre application
ce que je veux c"est quand j'appuis sur un bouton spécifique de mon appli que ca me mette l'application access au 1er plan
Je pense pas que ca soit trop dur mais je ne connais pas le code pour réaliser ca
Merci d'avance
Voila mon problème
j'ai une base de données access qui est ouverte derriere une autre application
ce que je veux c"est quand j'appuis sur un bouton spécifique de mon appli que ca me mette l'application access au 1er plan
Je pense pas que ca soit trop dur mais je ne connais pas le code pour réaliser ca
Merci d'avance
A voir également:
- [VB] afficher appli access déja ouverte
- Appli miroir - Guide
- Afficher appdata - Guide
- Appli horloge - Télécharger - Guide Android
- Vb - Télécharger - Langages
- Comment desinstaller une appli sur pc - Guide
2 réponses
Salut
C tous je me suis débrouiller (si il y a certaine fonction inconnu c'est normal c'est un script umpeu special mais le principe est bon)
HWND Handle= NULL;
Handle= FindWindow("OMAIN",NULL); //OMAIN c'est la classe d'une application access
//Si access est ouvert alors le handle est !=0
if(Handle)
{
ShowWindow(Handle, SW_MINIMIZE); //
ShowWindow ( Handle, SW_SHOWMAXIMIZED );
SetForegroundWindow(Handle);
}
else
{
ProgramExecute("\"C:\\Program Files\\Microsoft Office\\OFFICE11\\MSACCESS.EXE\" \"C:\\superviseur\\access\\phase finale\\5360 - SUPERVISION PROGRAMME.MDB\" /wrkgrp \"C:\\superviseur\\access\\phase finale\\TechSpace.mdw\" /user \"Superviseur\" /pwd \"Superviseur\"");
}
C tous je me suis débrouiller (si il y a certaine fonction inconnu c'est normal c'est un script umpeu special mais le principe est bon)
HWND Handle= NULL;
Handle= FindWindow("OMAIN",NULL); //OMAIN c'est la classe d'une application access
//Si access est ouvert alors le handle est !=0
if(Handle)
{
ShowWindow(Handle, SW_MINIMIZE); //
ShowWindow ( Handle, SW_SHOWMAXIMIZED );
SetForegroundWindow(Handle);
}
else
{
ProgramExecute("\"C:\\Program Files\\Microsoft Office\\OFFICE11\\MSACCESS.EXE\" \"C:\\superviseur\\access\\phase finale\\5360 - SUPERVISION PROGRAMME.MDB\" /wrkgrp \"C:\\superviseur\\access\\phase finale\\TechSpace.mdw\" /user \"Superviseur\" /pwd \"Superviseur\"");
}