Discussion :

[spiderkiller]

Bonjour,
J'ai beau essayer plusieurs méthodes :

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
Function DesactiveWindows()
On Error GoTo errProperty
   Dim dbs As DAO.Database
    Dim prp As DAO.Property
    Set dbs = CurrentDb()
    dbs.Properties("StartUpShowDBWindow") = False
okProperty:
    Set prp = Nothing
dbs.Close
    Set dbs = Nothing
    Exit Function
errProperty:
    Set prp = dbs.CreateProperty("StartUpShowDBWindow", 1, False)
    dbs.Properties.Append prp
    Resume okProperty
End Function

puis ensuite celle-ci :

Code :

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

1
2
3
4
5
6
7
8
Public Sub GestRuntime()
    If SysCmd(SYSCMD_RUNTIME) = False Then 'Contrôle si l'ACCESS utilisé n'est pas un runtime
            'Selectionne le volet de navigation
        DoCmd.NavigateTo "acNavigationCategoryObjectType"
            'Cache le volet de navigation
        DoCmd.RunCommand acCmdWindowHide
    End If
End Sub

ou celle-ci :

Code :

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

1
2
3
4
5
6
7
8
Public Sub GestRuntime()
    If SysCmd(SYSCMD_RUNTIME) = False Then 'Contrôle si l'ACCESS utilisé n'est pas un runtime
            'Selectionne le volet de navigation
        DoCmd.SelectObject acForm, , True
            'Cache le volet de navigation
        DoCmd.RunCommand acCmdWindowHide
    End If
End Sub

sur le premier formulaire, le volet de navigation disparaît bien.
Mais à l'ouverture des autres formulaires (via DoCmd.OpenForm) il réapparaît.
Quelqu'un aurait-il des idées ?
Je vous remercie par avance

[EricDgn]

Bonjour,

Voir si ceci peut convenir:

Code :

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

1
2
3
4
...
   DoCmd.SelectObject acTable, "Nom_de_une des_tables", True
   DoCmd.RunCommand acCmdWindowHide
...

Pour ma part cela fonctionne correctement avec Access 2007 et 2010.
Bonne continuation.