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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55
| Function OuvreDémarrage()
On Error GoTo OuvreDémarrage_Err
Dim BdS As DAO.Database
Dim RecRuban As DAO.Recordset
Dim strXML As String
Set BdS = CurrentDb
Set RecRuban = BdS.OpenRecordset("SELECT Ruban.Txt FROM Ruban", dbOpenDynaset)
strXML = RecRuban.Fields(0).Value
RecRuban.Close
Set RecRuban = Nothing
BdS.Close
Set BdS = Nothing
Const DB_Text As Long = 10
Const DB_Boolean As Long = 1
Dim blnAutoriserMaj As Boolean
'***********************************************
blnAutoriserMaj = True
'***********************************************
ModifiePropr "AllowBypassKey", dbBoolean, blnAutoriserMaj
ModifiePropr "StartupForm", DB_Text, "CONNEXION"
ModifiePropr "StartupShowDBWindow", DB_Boolean, False
ModifiePropr "StartupShowStatusBar", DB_Boolean, False
ModifiePropr "AllowBuiltinToolbars", DB_Boolean, False
ModifiePropr "AllowFullMenus", DB_Boolean, False
ModifiePropr "AllowBreakIntoCode", DB_Boolean, False
ModifiePropr "AllowSpecialKeys", DB_Boolean, False
'***********************************************
ModifiePropr "AllowBypassKey", DB_Boolean, True
'***********************************************
Application.SetOption "Show Startup Dialog Box", False
Application.SetOption "Show Hidden Objects", False
Application.SetOption "Show System Objects", False
Application.SetOption "Show New Object Shortcuts", False
Application.SetOption "Show Status Bar", False
Application.SetOption "ShowWindowsInTaskbar", False
Application.LoadCustomUI "Rubanperso", strXML
OuvreDémarrage_Sortie:
Exit Function
OuvreDémarrage_Err:
MsgBox Err.Description & " " & Err.Number, vbCritical
Resume OuvreDémarrage_Sortie
End Function |
Partager