Discussion :

[pleasewait]

Bonjour et très bonne année,

QQ sait-il comment agir par code sur les différentes options accessibles depuis l'onglet "Démarrage" de la barre de menu Access.

Par exemple :

• Autoriser ou pas les menus complets
• afficher la fenêtre de base de données
• etc

[helas]

Pour eviter les fenêtres de confirmation

Code :

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

1
2
3
4
 
 Application.SetOption "Modification des enregistrements", False
 Application.SetOption "Confirmer Suppressions de documents", False
 Application.SetOption "Confirmer Requêtes action", False

Pour les options de Démarrage (True ou False)

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
 
 
Sub MajProprietes()
  ModifiePropr "StartupShowDBWindow", dbBoolean, False
  ModifiePropr "StartupShowStatusBar", dbBoolean,False
  ModifiePropr "AllowShortcutMenus", dbBoolean, True
  ModifiePropr "AllowFullMenus", dbBoolean,False
  ModifiePropr "AllowBuiltinToolbars", dbBoolean, False
  ModifiePropr "AllowToolbarChanges", dbBoolean,False
  ModifiePropr "AllowBreakIntoCode", dbBoolean, False
  ModifiePropr "AllowSpecialKeys", dbBoolean, True
  ModifiePropr "AllowBypassKey", dbBoolean, True
End Sub
 
Function ModifiePropr(chNomPropriété As String, varTypeProp As Variant, varValeurProp As Variant) As Integer
    Dim bds As dao.Database, prp As Property
    Const conErreurPropNonTrouvée = 3270
    Set bds = CurrentDb
    On Error GoTo Change_Err
    bds.Properties(chNomPropriété) = varValeurProp
    ModifiePropr = True
Change_Sortie:
    Exit Function
Change_Err:
    If Err = conErreurPropNonTrouvée Then   ' Propriété non trouvée.
        Set prp = bds.CreateProperty(chNomPropriété, varTypeProp, varValeurProp)
        bds.Properties.Append prp
        Resume Next
    Else
        ModifiePropr = False
        Resume Change_Sortie
    End If
End Function

[pleasewait]

merci pour ta réponse