Funktionen von Start im VBA aktivieren/deaktivieren

[T417]

Hallo,

Gibt es irgendeine Möglichkeit im VBA die [Start]-Funktionen zu ändern. (Extras->Start)
Ich hab diesbezüglich auch schonmal einen Text gelesen, weiß nur nicht mehr wo der stand.
Ich will meinen Nutzer die Möglichkeit bieten, selber zu entscheiden ob die Datenbank abgesichert werden soll, oder frei zugänglich sein soll. Da ich dem Nutzer aber nicht zutrauen kann, das er die Haken im [Start] richtig setzt, muss ich dies für ihm übernehmen.

Falls es dazu eine Möglichkeit gibt, wäre es optimal.


'Grüße
T.

[DF6GL]

Hallo,

das sind Einstellungen der Application-Properties..  bei Donkarl findest Du ein Beispiel, wie man diese Erzeugen/ändern/einstellen kann:

http://www.donkarl.com?FAQ1.8

[T417]

Das meinte ich nicht direkt. Die Funktion unter FAQ1.8 hab ich schon eingebaut.
Es ging mir vielmehr um die deaktivieren der Access-Spezialtasten, das Ausblenden der Kontextmenüleiste und dem ein und ausblenden des Datenbankfensters.

Alternativ würde mir auch schon ein Tipp reichen wie ich über VBA das [Start]-Eingabefenster aufrufen kann.
(Extras->Start,  aber wie?)

Grüße

[DF6GL]

Hallo,

natürlich meinst Du das...

Code [Auswählen] Erweitern

Sub DB_Sperren(janein As Boolean)

ChangeProp "StartupShowDBWindow", dbBoolean, Not janein
ChangeProp "StartupShowStatusBar", db, Not janein
ChangeProp "AllowBuiltinToolbars", dbBoolean, Not janein
ChangeProp "AllowFullMenus", dbBoolean, Not janein
ChangeProp "AllowBreakIntoCode", dbBoolean, Not janein
ChangeProp "AllowSpecialKeys", dbBoolean, Not janein
ChangeProp "AllowSpecialKeys", dbBoolean, Not janein
ChangeProp "AllowBypassKey", dbBoolean, Not janein
ChangeProp "AllowToolbarChanges", dbBoolean, Not janein

'ChangeProp "StartupShowDBWindow" , dbBoolean, Not janein
'ChangeProp "StartupShowStatusBar" , dbBoolean, Not janein
'ChangeProp "AllowBuiltinToolbars" , dbBoolean, Not janein
'ChangeProp "AllowFullMenus" , dbBoolean, Not janein
'ChangeProp "AllowBreakIntoCode" , dbBoolean, Not janein
'ChangeProp "AllowSpecialKeys" , dbBoolean, Not janein
'ChangeProp "AllowBypassKey" , dbBoolean, Not janein

End Sub

   

Function ChangeProp(strEigenschaftenname As String, varEigenschaftentyp As Variant, varEigenschaftenwert As Variant) As Boolean
Dim DBs As DAO.Database, prp As DAO.Property
Const conPropNotFoundError = 3270

On Error GoTo ChangeProp_Fehler

Set DBs = CurrentDb
    DBs.Properties(strEigenschaftenname) = varEigenschaftenwert
    ChangeProp = True

ChangeProp_Ende:
    Exit Function

ChangeProp_Fehler:

If Err = conPropNotFoundError Then
        Set prp = DBs.CreateProperty(strEigenschaftenname, _
            varEigenschaftentyp, varEigenschaftenwert)
        DBs.Properties.Append prp
        Resume Next
    Else
        ChangeProp = False
        Resume ChangeProp_Ende
    End If
End Function


weiterhin auch :

http://www.donkarl.com?FAQ6.2

[T417]

Wow
Aber das hab ich gesucht.
Dazu noch zwei kurze Fragen:
Beides seperate Module? Wie binde ich die bei einen Click-Ereignis ein?


Danke

[DF6GL]

Hallo,

beide Prozeduren in eine Standardmodul einbauen.  In irgendeinem Ereignis etwa so aufrufen

Sub ....
DB_Sperren true
End Sub

[T417]

Super.
Funktioniert.