Newsgroup: it.comp.appl.access
Titolo: barra menu personalizzata impostata via codice

Ciao a tutti,
avendo un modulo che spiega che impostazioni dare al db, e che riporto qui
di seguito,
Public Function Blocco()
' IMPOSTA: finestra db, statusbar, toolbars di default, menu compl, codice,
tasti spec, shift
ChangeProperty "StartupShowDBWindow", DB_BOOLEAN, False
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, False
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, False
ChangeProperty "AllowFullMenus", DB_BOOLEAN, False
ChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, False
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, False
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
End Function
Function Blocco2()
' IMPOSTA: finestre nella taskbar, query di comando
    Application.SetOption "ShowWindowsInTaskbar", False
    Application.SetOption "Confirm Record Changes", False
    Application.SetOption "Confirm Document Deletions", True
    Application.SetOption "Confirm Action Queries", False
End Function
Public Function SBlocco()
ChangeProperty "StartupShowDBWindow", DB_BOOLEAN, True
ChangeProperty "StartupShowStatusBar", DB_BOOLEAN, True
ChangeProperty "AllowBuiltinToolbars", DB_BOOLEAN, True
ChangeProperty "AllowFullMenus", DB_BOOLEAN, True
ChangeProperty "AllowBreakIntoCode", DB_BOOLEAN, True
ChangeProperty "AllowSpecialKeys", DB_BOOLEAN, True
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
End Function
Function SBlocco2()
    Application.SetOption "ShowWindowsInTaskbar", True
    Application.SetOption "Confirm Record Changes", False
    Application.SetOption "Confirm Document Deletions", True
    Application.SetOption "Confirm Action Queries", False
End Function
Function ChangeProperty(strPropName As String, varPropType As Variant,
varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = DBEngine.Workspaces(0).OpenDatabase(PathCorrente &
"mioDB.mdb")
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then    ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function
vorrei aggiungere la possibilità di sostituire la barra dei menu standard di
access (File, Modifica, Visualizza, ...) con una da me realizzata.Che riga
devo aggiungere a quelle presenti / che sintassi devo usare? Pensavo a
qualcosa tipo:
Application.MenuBar = "mia_menubar_pers"
ma non funziona..
Grazie!
em.an

 em.an
Non sò se il codice che hai postato arriva da un mio modulo
ma io mi ritrovo anche questo:
    Call ChangeProperty("StartUpMenuBar", dbText, strStartUpMenuBar)
Ciao
@Alex
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:12e012f3501a7bdee9...@mygate.mailgate.org...

ciao alex, ora non ricordo la faq esatta da cui ho tratto il codice, l'ho
comunque qualsi sicuramente presa dal sitocomune..
non mi pare di aver tolto nulla al codice originale, ho invece aggiunto
qualcosa (le Function Blocco2() e FunctionSBlocco2())
ad ogni modo grazie ancora una volta per il suggerimento, funziona alla
perfezione! :)
em.an