je viens de créer une BD de Gestion avec access 2003 , et j'ai mis un raccourcis sur le bureau mais j'aimerai savoir comment donner une petite taille à ma page ou formulaire de demarrage ( j'explique : quand je clique sur l'icone de ma BD qu'il s'ouvre avec une taille minime comme si on lance l'installation d'un logiciel courant)
Vraiment je compte sur vous pour m'aider
Version complète : Formulaires Access
Pas vraiment possible. Tu vas toujours avoir Access qui va s'ouvrir, tu ne peux pas avoir seulement ton formulaire qui apparait.
Je suis d'accord c'est désagréable, mais c'est access...
Je suis d'accord c'est désagréable, mais c'est access...
Merci pour votre réponse mais en faites j'aimerai savoir si c'est possible de donner une petite taille au formulaires et comment faire; rendre les formulaires en mini
CITATION(Webmaster @ 28-07-2008 - 8:42) 
Pas vraiment possible. Tu vas toujours avoir Access qui va s'ouvrir, tu ne peux pas avoir seulement ton formulaire qui apparait.
Je suis d'accord c'est désagréable, mais c'est access...
Je suis d'accord c'est désagréable, mais c'est access...
Bonjour,
Acces? Il est souvent manipulé par des gens qui débutent. Preuve des qualités et possibilités offertent.
Ne pas juger sur les résultats obtenus par des débutants.(Il faut bien commencer..)
Cet outil qui permet par exemple la gestion des formations internes de l'Education Nationale,(France), qui tourne depuis 10 ans (Pas moi -->Notre pote Papy Turbo + le développeur initial) sous Access, dans près de 300 universités et bibliothèques, chaque établissement ayant de 1 à 5 responsables qui gèrent chacun leurs quelques milliers de stagiaires, de formateurs, de sessions... et une centralisation annuelle des stats... et...
Nous pouvons commencer par faire "Basic" :
-->réduire un formulaire.
-->Masquer la fenêtre active.
-->Réduire la base
Dans un nouveau module :
Un formulaire avec 4 boutons de commande :
-->cmdCacheFenBase
-->cmdMini
-->cmdMontreFenBase
-->cmdReducAccess
Et pour chaque :
Si on le désire, plus tard (Aprés quelques vacances) nous verrons pour :
-->Montrer à l'écran un formulaire seul.(Sans qu"Access soit visible dans la barre des tâches)
-->Inscrire dans le systray une icône de raccourci.
-->Depuis cette icone commander l'ouverture de "Moult" formulaires.
Cordialement.
Acces? Il est souvent manipulé par des gens qui débutent. Preuve des qualités et possibilités offertent.
Ne pas juger sur les résultats obtenus par des débutants.(Il faut bien commencer..)
Cet outil qui permet par exemple la gestion des formations internes de l'Education Nationale,(France), qui tourne depuis 10 ans (Pas moi -->Notre pote Papy Turbo + le développeur initial) sous Access, dans près de 300 universités et bibliothèques, chaque établissement ayant de 1 à 5 responsables qui gèrent chacun leurs quelques milliers de stagiaires, de formateurs, de sessions... et une centralisation annuelle des stats... et...
Nous pouvons commencer par faire "Basic" :
-->réduire un formulaire.
-->Masquer la fenêtre active.
-->Réduire la base
Dans un nouveau module :
CODE
Public Declare Function SetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long
Dim Rectan As RECT
Public Const SW_MINIMIZE = 6
Public Type POINTAPI
x As Long
y As Long
End Type
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
'*********************
Sub Reduire()
'Réduire la fenêtre active dans la fenêtre d'Access
DoCmd.Minimize
'Réduire la fenêtre d'Access
Dim WinEst As WINDOWPLACEMENT
Dim Punto As POINTAPI
Dim rtn As Long
Punto.x = 100
Punto.y = 100
'initialize the structure
WinEst.Length = Len(WinEst)
WinEst.showCmd = SW_MINIMIZE
WinEst.ptMinPosition = Punto
WinEst.ptMaxPosition = Punto
WinEst.rcNormalPosition = Rectan
'La réduction effective se fait ici
rtn = SetWindowPlacement(Application.hWndAccessApp, WinEst)
End Sub
Dim Rectan As RECT
Public Const SW_MINIMIZE = 6
Public Type POINTAPI
x As Long
y As Long
End Type
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Public Type WINDOWPLACEMENT
Length As Long
flags As Long
showCmd As Long
ptMinPosition As POINTAPI
ptMaxPosition As POINTAPI
rcNormalPosition As RECT
End Type
'*********************
Sub Reduire()
'Réduire la fenêtre active dans la fenêtre d'Access
DoCmd.Minimize
'Réduire la fenêtre d'Access
Dim WinEst As WINDOWPLACEMENT
Dim Punto As POINTAPI
Dim rtn As Long
Punto.x = 100
Punto.y = 100
'initialize the structure
WinEst.Length = Len(WinEst)
WinEst.showCmd = SW_MINIMIZE
WinEst.ptMinPosition = Punto
WinEst.ptMaxPosition = Punto
WinEst.rcNormalPosition = Rectan
'La réduction effective se fait ici
rtn = SetWindowPlacement(Application.hWndAccessApp, WinEst)
End Sub
Un formulaire avec 4 boutons de commande :
-->cmdCacheFenBase
-->cmdMini
-->cmdMontreFenBase
-->cmdReducAccess
Et pour chaque :
CODE
Private Sub cmdCacheFenBase_Click()
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
Private Sub cmdMini_Click()
DoCmd.Minimize
End Sub
Private Sub cmdMontreFenBase_Click()
DoCmd.SelectObject acTable, , True
End Sub
Private Sub cmdReducAccess_Click()
Call Reduire
End Sub
DoCmd.SelectObject acTable, , True
DoCmd.RunCommand acCmdWindowHide
End Sub
Private Sub cmdMini_Click()
DoCmd.Minimize
End Sub
Private Sub cmdMontreFenBase_Click()
DoCmd.SelectObject acTable, , True
End Sub
Private Sub cmdReducAccess_Click()
Call Reduire
End Sub
Si on le désire, plus tard (Aprés quelques vacances) nous verrons pour :
-->Montrer à l'écran un formulaire seul.(Sans qu"Access soit visible dans la barre des tâches)
-->Inscrire dans le systray une icône de raccourci.
-->Depuis cette icone commander l'ouverture de "Moult" formulaires.
Cordialement.
Ceci une version "bas débit" de notre forum. Pour voir la version complète avec plus d'information, la mise en page et les images, veuillez cliquez ici.