Supportnet / Forum / Datenbanken
Tastenkombi Strg und , verhindern
Frage
Hallo Leute,
die Tastenkombis lassen mit Makro Autokeys prima einstellen. Nur wie verhindere ich, dass ein Anwender mit "Strg" und "," die Entwurfsansicht eines Forms aufruft? "^," verweigert A00 als Makronamen.
Grüße von Conny
Antwort 1 von Phantom_Fies
Mit Access 2002 kannst du eine .ade bzw..mde deiner Datenbank erstellen.
Da gibt es dann keine Möglichkeit mehr, auf Entwurfsmodi und Quellcode zuzugreifen. Eine andere Lösung fällt mir auf Anhieb auch nicht ein.
Da gibt es dann keine Möglichkeit mehr, auf Entwurfsmodi und Quellcode zuzugreifen. Eine andere Lösung fällt mir auf Anhieb auch nicht ein.
Antwort 2 von 14071
versuchs mal mit PopUp-Formularen, da dürfte die Tastenkombi nicht funzen.
Gruß
Jürgen
Gruß
Jürgen
Antwort 3 von JohnnyLoser
Wenn Dir weder die Umwandlung in eine .MDE gefällt, noch das Arbeiten mit PopUp's, dann entziehe Deinen Usern doch einfach über Zugriffsrechte das Recht, das Formular im DesignMode zu öffnen.
Is nur so 'ne Idee.
Johnny
Is nur so 'ne Idee.
Johnny
Antwort 4 von Marie
Public Function Starteigenschaften()
EigenschaftÄndern "AllowBypassKey", dbBoolean, False
End Function
Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As DAO.Database
Dim prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
Exit Function
Change_Err:
If err = conPropNotFoundError Then 'Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function
~~~~~~~~~~~~~~~
In Deiner Autoexec fügst Du als erstes ein:
Ausführen code
Starteigenschaften()
Wenn Du dann vor der Auslieferung die Datenbank einmal ohne Shifttaste gestartet hast, dann dann kann niemals mehr jemand mit der Shifttaste Deine DB öffnen. Achtung, Du selbst auch nicht!!!! :-)))
Gruß Marie
EigenschaftÄndern "AllowBypassKey", dbBoolean, False
End Function
Function EigenschaftÄndern(strEigName As String, varEigTyp As Variant, varEigWert As Variant) As Integer
Dim dbs As DAO.Database
Dim prp As Property
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strEigName) = varEigWert
Change_Bye:
Exit Function
Change_Err:
If err = conPropNotFoundError Then 'Eigenschaft nicht gefunden.
Set prp = dbs.CreateProperty(strEigName, _
varEigTyp, varEigWert)
dbs.Properties.Append prp
Resume Next
Else
Resume Change_Bye
End If
End Function
~~~~~~~~~~~~~~~
In Deiner Autoexec fügst Du als erstes ein:
Ausführen code
Starteigenschaften()
Wenn Du dann vor der Auslieferung die Datenbank einmal ohne Shifttaste gestartet hast, dann dann kann niemals mehr jemand mit der Shifttaste Deine DB öffnen. Achtung, Du selbst auch nicht!!!! :-)))
Gruß Marie