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.
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
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
Hallo,
natürlich meinst Du das...
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
Wow :o
Aber das hab ich gesucht. :D
Dazu noch zwei kurze Fragen:
Beides seperate Module? Wie binde ich die bei einen Click-Ereignis ein?
Danke :D
Hallo,
beide Prozeduren in eine Standardmodul einbauen. In irgendeinem Ereignis etwa so aufrufen
Sub ....
DB_Sperren true
End Sub
Super.
Funktioniert. :D