[SidiMali]

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

[Webmaster]

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...

[SidiMali]

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

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...

[francishop]

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 :

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

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

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.