Office: Access Spezialtasten???

Flutschi · 13. Januar 2004

Um eine Datenbank vor ungewollte Änderung durch andere Benutzer zu schützen, wollte ich Beim START die ganzen Häkchen herausgenommen. (Auch Access Spezialtasten verwenden und Standardkontextmenüs verwenden) Doch leider sind die Spezialtasten (SHIFT- hebelt die Einstellungen bei START aus) immer noch verwendbar. Meine Access Version ist 2002. Gibt es nur die Möglichkeit die Datenbank zu schützen indem ich eine Benutzerverwaltung anlege. Dies wollte ich eigentlich umgehen.

mfg Flutschi

:)

Anne Berg · 14. Januar 2004

Das kannst du wohl nur per Code einstellen. Sieh mal in der Online-Hilfe nach unter "AllowBypassKey".

Ich habe mir zu diesem Zweck ein kleines Admin-Programm gebastelt, damit man das von außen einstellen und auch wieder zurücksetzen kann. Sonst kommst du nämlich selbst nicht mehr dran!

Flutschi · 16. Januar 2004

Das klingt ja schon mal nicht schlecht. Und wo bekomme ich dieses Tool her???

Lanz Rudolf · 16. Januar 2004

Hallo
Du brauchst Folgenden VBA Code

Code:

Public Function SetByPass(StrName As String, BolZustand As Boolean)
Dim db As DAO.Database
Dim ws As DAO.Workspace
' Aufruf: ? SetByPass("C:\Dokumente und Einstellungen\Lanz Rudolf\Eigene Dateien\ACCESS\Muster\TommyK\Toolbox97\Dbtoolbox00_V2_Beta.mdb",True/False)
Set ws = DBEngine.Workspaces(0) ' Für andere DB
Set db = ws.OpenDatabase(StrName) ' Für andere DB
' Set db = DBEngine(0)(0) ' Für aktuelle DB
db.Properties("AllowBypassKey") = BolZustand
End Function

Public Function DisByPass(StrName As String) As Boolean
' Aufruf: ? DisByPass("C:\Dokumente und Einstellungen\Lanz Rudolf\Eigene Dateien\ACCESS\Muster\TommyK\Toolbox97\Dbtoolbox00_V2_Beta.mdb")
Dim db As DAO.Database
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0) ' Für andere DB
Set db = ws.OpenDatabase(StrName) ' Für andere DB
' Set db = DBEngine(0)(0) ' Für aktuelle DB
If db.Properties("AllowBypassKey") Then
DisByPass = True
Else
DisByPass = False
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in deine MDB einbauen und anpassen für aktuelle DB ohne StrName

Luftfilter · 18. Januar 2004

Hallo,
anbei eine Lösung aus meiner Toolsammlung.

Gruß
Joe

Flutschi · 18. Januar 2004

Super, Recht vielen Dank. Ihr habt mir sehr geholfen

Flutschi

BlaXioN · 19. Februar 2004

danke euch allen

ich hab mir mal die Sache von Luftfilter angeschut und muss sagen die is klasse *wink.gif*

Hab sie etwas abgeändert und nu is das genau das was ich haben wollte *biggrin.gif*

aura59 · 7. Januar 2021

von Lanz Rudolf

Hallo
Du brauchst Folgenden VBA Code

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Public Function SetByPass(StrName As String, BolZustand As Boolean)
Dim db As DAO.Database
Dim ws As DAO.Workspace
' Aufruf: ? SetByPass("C:\Dokumente und Einstellungen\Lanz Rudolf\Eigene Dateien\ACCESS\Muster\TommyK\Toolbox97\Dbtoolbox00_V2_Beta.mdb",True/False)
Set ws = DBEngine.Workspaces(0) ' Für andere DB
Set db = ws.OpenDatabase(StrName) ' Für andere DB
' Set db = DBEngine(0)(0) ' Für aktuelle DB
db.Properties("AllowBypassKey") = BolZustand
End Function

Public Function DisByPass(StrName As String) As Boolean
' Aufruf: ? DisByPass("C:\Dokumente und Einstellungen\Lanz Rudolf\Eigene Dateien\ACCESS\Muster\TommyK\Toolbox97\Dbtoolbox00_V2_Beta.mdb")
Dim db As DAO.Database
Dim ws As DAO.Workspace
Set ws = DBEngine.Workspaces(0) ' Für andere DB
Set db = ws.OpenDatabase(StrName) ' Für andere DB
' Set db = DBEngine(0)(0) ' Für aktuelle DB
If db.Properties("AllowBypassKey") Then
DisByPass = True
Else
DisByPass = False
End If
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

in deine MDB einbauen und anpassen für aktuelle DB ohne StrName

Hallo Rudolf,
das mit dem Aufrufen haben ich noch nicht verstanden. Von wo bzw. wie muss ich die Funktion denn starten?
Für eine Antwort wäre ich Dir sehr dankbar.
Viele Grüße aus Wiesbaden
Rainer

Lanz Rudolf · 13. Juli 2008

Hallo
Das ist soviel ich mich erinnere aus einem Beispiel von TommaK
schau ev. hier: http://www.tksoft-online.de/Table/MS...ipsel-Strings/

Du Kannst eine Mdb mit dem Code erstelle und damit in deiner gewünschten MDB den byPass setzen
Aufruf: ? SetByPass("C:\DeineWunsch.MDB",True/False)
Den Aufruf kanst Du im DirektFenster oder jrgend wo im code machen z.B.
Call SetByPass("C:\DeineWunsch.MDB",True/False)

Office: Access Spezialtasten???

Access Spezialtasten???

Access Spezialtasten???

Access Spezialtasten???

Access Spezialtasten???

Access Spezialtasten??? - Similar Threads - Access Spezialtasten

Ausdruck eines Etiketts auf verschiedenen PCs steuern

Access als Mediaplayer

Smarttags in Access LTE (2021)

Excel zu Access

Access Neuer Datensatz im Formular

automatische Abfrage URL via Artikelnummer

Deaktivieren der access Spezialtasten mittels Code