Office: (Office 2010) Userrechte und Navi.-formular

Nabend zusammen...

Ich habe ein Navigationsformular erstellt mit einigen Registerkarten. Eines davon (Administration) hat ein Unternavigationformular (mit User tbl und Sicherhiets tbl) - wenn man es so nennen kann - wie dem auch sei...ich habe in dieser Registerkarte vertrauliche Daten drin, die von User nicht sichtbar sein sollen.

Ich habe mir mit Anleitung einen Code erstellt, der zu 95% funktioniert, damit User diese Registerkarte nicht anklicken bzw. den Inhalt nicht sehen können.
Nun ist es so, dass wenn ein User diese Registerkarte anklickt eine Warnmeldung kommt, die mit "Ok" bestätigen werden kann. Solange der User nicht auf ein andere Registerkarte springt, bleibt die Registerkarte "Administration" für ihn offen und er kann sich alles anschauen.

Wo muss ich was verbauen, dass der User beim Klicken nichts angezeigt bekommt?
Zur Info...mit "visible" im letzten "Enabled-Befehls" des Codes geht es auch nicht.

Code:

Scheint nur ein kleiner Befehl zu sein.

Dann möchte ich gerne eine andere Registerkarte mit Rechten ausstatten. Müsste dann das Ganze im Ausriss des Codes so aussehen...

Security = DLookup("UserSecurity", "tblBFSuser", "[UserLogin] = '" & Me.txtUser & "'")
If Security = 1, 3 Then
Me.NavigationButtonXX.Enabled = True

Ich danke schon mal jetzt.

:)

 

Hallo,

ich würde auf jeden Fall den Karteireiter beim öffnen des Formulars auf .Visibel = False stellen und dann prüfen ob der Benutzer die erforderliche Berechtigung hat. Bei positiver Überprüfung dann den Karteireiter sichtbar machen - .Visible = True.

Gruß
Richard

 

Neben dem Hinweis von RichiB noch eine kleine Codeoptimierung:
Code:

Im Falle von 3 und dem weiteren Button: DLookup findet immer nur den ersten Wert, wenn ein User mehrere Berechtigungen haben kann, dann müsste man dort anders rangehen.

maike

 

danke an Euch...

bevor Ihr mir geschrieben hattet, habe ich den Code auf "Beim Laden" übertragen.

Und Ihr bestätigt mir jetzt dieses Vorgehen.

@ Maike:
ja, es gibt User bzw. den Admin, der mehr Berechtigungen haben soll.

Habe 3 Sicherheitslevel in einer tbl eingestellt...1 = Admin1 (soll alle R.karten bedienen können), 2 = User (alle außer N.button13 und N.buttonXX) und 3 = Admin2 (alle außer N.button 13).

Dein verbesserter Vorschlag funktioniert leider gar nicht...es passiert nichts...keine Meldung etc.. Kann die Registerkarten und den Inhalt nach belieben einsehen und ändern.

geht es nicht, dass man die ganze Sache mit dlookup (einzeln auflistet) hinbekommt? Frage nur deshalb, weil ich den Sinn von "dlookup" etwas verstanden habe*biggrin.gif* . Es macht für mich vielleicht die Sache auch verständlicher.

 

Meine Frage war ja, ob es für bestimmte User mehrere Datensätze (für jeweils unterschiedliche Berechtigungen) in der Tabelle gibt. DLookup findet immer nur den ersten.
Bau doch mal in den Code von mir noch ein
Code:

ein und guck nach, was im Direktfenster ausgegeben wird.
maike

 

also hab den Code eingegeben...nichts passiert.

Also, wenn ich dich richtig verstehe findet "dlookup" nur den eingetragen Wert in einer Zelle?!?!
Ich habe nun in meiner User tbl, wo UserSecurity bereits vorhanden ist, ein weiteres Feld hinzugefügt...UserSecurity2. Da habe ich z.B. für mich (Admin) unter UserSecurity = Admin1 und in UserSecurity2 = Admin 2 ausgewählt. Beide Zellen hätten dann für den "dlookup" einen Eintrag.
Bis jetzt würde nur der Administrator mehrere Rechte haben.

 

Ergänzung...

ich dachte wir sind so verblieben, dass ich den Code "bei Laden" eingebe, dabei ist er für den Button.
Wenn ich den Code beim Button eingebe, erscheint dasselbe Verhalten, was ich auch schon vorher hatte.

Die Lösung, dass das Ganze beim Laden geschieht, finde ich ganz gut!!

 

Kein Eintrag im Direktfenster? Dann ist irgendwas faul.
EDIT: ok, die Erklärung hast du ja jetzt.

In einem Feld und in einem Datensatz.

Das ist weniger schlau *wink.gif* . Wenn ich dich richtig verstehe, dann hat ein User entweder Adminrechte (alle Knöppe) oder Userrechte (alle bis auf zwei) oder das andere (alle bis auf einen). Das schließt sich dann gegenseitig aus.
In dem Fall kann die Prozedur im Prinzip so bleiben.

Was mich grad wundert: Der Button NavigationButton13 ist sowohl der, der das Ereignis auslösen soll und gleichzeitig wird er beim Laden "disabled"? Wie kann man denn dann da drauf klicken *confused.gif* ?
Ich dachte, du willst eine Registerseite ausblenden?

EDIT: Beim Laden sollst du nur die Registerseite oder die Buttons oder was auch immer disablen, natürlich nicht den, der dann geklickt wird - ich bin immer noch *confused.gif* .

maike

 

Ok...alles etwas verwirrend...für Dich und mich...

Für mich macht es eher Sinn, wenn die Prozedur beim Laden durchgeführt wird, dass die Registerseiten ausgegraut sind. Die Rede war nie davon, dass wie Du es schreibst...beim Laden und beim Klicken passiert...macht iwo keinen Sinn.

Wenn ich Deinen Code nur beim Klicken eingebe, dann kann ich trotzdem auf die Sub-R.seiten klicken, wenn ich nicht auf eine andere Haupt-R.seite klicke. Nur verstehe ich nicht, warum Du den anderen N.button in den Code gebaut hast...Ereignis = 0.

Also müssen wir in dem Fall Deine "Case" Prozedur nehmen und umdisponieren (beim Laden)?

Scheisse...voll kompliziert...auf einmal!

 

Heißen denn die Subreiterseiten NavigationsbuttonXX? Ich dachte, das wären Buttons. Wenn das Reiterseiten sind, muss da auch eventuell das Ereignis Bei Änderung genommen werden, ist zumindest bei "normalen" Registern so, wenn man den Klick auf die Registerseite auswerten will.
Ich hab Access 2003, da gibt es keine Naviformulare - daher hilft hier leider auch keine Beispiel-DB.

Na, wenn der User keine Berechtigung hat, soll er doch den Button auch nicht klicken können, oder?

Das wäre wohl das beste, dieses Ereignis tritt beim Öffnen des Formulars ein und könnte dann je nach UserSecurity die Reiter sperren bzw. entsperren.

Dazu wäre jetzt aber mal interessant, wie die Werte (txtUser und Security) zur Laufzeit (Debug.Print -> im Direktfenster) aussehen. Das hast du bisher noch nicht verraten.

maike

 

Ähm...keine Ahnung, wie das wirklich geht...ist das Direktfenster nicht das, wo Du den Code pflegst? und wenn Du das "Play-Symbol" drückst, das Ganze durchlaufen lässt? Wenn ja, dann kommt wirklich nichts.

Hier der Original, den ich benutzt habe, der so auch wirklich gut ist. Der funktioniert echt gut. Habe jetzt nur die Fehlermeldung rausgenommen, die wirklich gestört hat, wenn man das Formular geöffnet hat.
Code:

Zu deinem Code...muss ich vielleicht statt die Sub-N.button anzugeben, den Namen des eingebeteten Sub-N.formulars angeben? Die Auflistungder einzelnen Buttons macht kein Sinn, da die fortlaufenden Nr. der Buttons zum H-N.-formular doppelt auftauchen, bedeutet, im H-N.-formular habe ich ein N-button 13 und im Sub-N.-formular auch.

 

Nein, das öffnet sich mit der Tastenkombination strg + g. Der Befehl Debug.Print Security gibt dann z.B. den Wert von Security dort aus.
Nochmal zum Code: Ich wollte das doppelte Dlookup vermeiden u.a.
Code:

maike

 

Ich weiß nicht, wie Du es immer hinbekommst, aber Du bist echt genial!!!!

War für Dich bestimmt nicht all zu schwer...aber für mich, für den die Materie super neu ist und teilweise Hyroglyphen sind, eine nicht zu bewältigende Aufgabe. Aber ich schlage mich so langsam (Schneckentempo) durch.

Du hast mir echt wieder weitergeholfen!! Habe jetzt noch ein Fall dazu geschrieben (User), welcher auch funktioniert. Jetzt kann Admin1 alles anklicken, Admin2 alles ausser R.-seite "Administration, User kann 2 R.-seiten nicht anklicken und wenn der Wert 0 ist - habe da den Code verlängert - soll gar nichts gehen ausser "Exit".

Hier, der jetzige Code...Kommentare habe drin gelassen...

Code:

Ahh zum Debug.print...

was gezeigt wird...die Werte und der User...in dem Fall ich immer durch den "Environ"

Die Datenbank ist nun fast fertig...würde es theoretisch Probleme geben, wenn ich nun ein BE+FE erstelle? Ich frage im Hinblick auf die eingebenen Prozeduren, denn ich will die DB demnächst für andere User freigeben. Ein kleiner Zwischentest letztens gab es ein Paar Performance-Probleme (langsame Reaktion auf Befehle).

 

Was ich wissen wollte (daher das Debug.Print) war, ob in txtUser auch ein Wert enthalten ist, der der [user_kid] entspricht - im Code sah das so aus, als wenn da eher eine Zahl auf einen Text trifft.
Frontend und Backend ist bei mehreren Usern auf jeden Fall notwendig. Jeder User muss ein eigenes lokales Frontend bekommen.
Die Performance dürfte nicht daran haken, da ist eher was anderes der Grund.
Welche Befehle waren denn langsam? Möglicherweise ist da noch Optimierungspotenzial, wenn es nicht am Netz liegt.
maike

 

eigentlich ist da kein Wert hinterlegt, denn den Wert - so habe ich es verstanden - zieht er sich durch das "Environ". Er zeigt nur als erstes als Wert die Userrecht und als zweites die User_kid bzw. "Environ-Wert"...der ist auf meiner Arbeit dann gleich.

Also das Problem war, dass es geringe Reaktionschwierigkeiten beim betätigen der Registerseiten. Viellicht hängt das aber auch mit dem Netzwerk auf der Arbeit zusammen.

Kannst Du mir ein genaues doing geben?

1. DB öffnen und trennen durch den Assistenten.
2. Lokal im Netzwerk irgendwo ablegen? Frage: Muss BE+FE in einem Verzeichnis leigen?
3. FE lokal auf meinen Rechner legen? Frage: Kopieren oder Verlinken + wie bekommen die anderen User die Anwendung, wenn ich nicht will, dass sie den Ablageort kennen?