Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Abfrageberechtigung auslesen?
Autor: Prian0815
Datum: 22.02.06 15:25
Hallo an alle, Ich soll in einer DB feststellen, obv der angemeldete User das Recht besitz eine bestimmte Abfrage auszuführen.Ich probiere das so: Private Sub Form_Load() Dim sSQl As String Dim dbc As DAO.Database Dim qdf As DAO.QueryDef Dim Quer As String On Error GoTo Err_form_load 'AlleAbfragen ermitteln ' Durchlaufen der QueryDefs-Auflistung. Set dbc = CurrentDb sSQl = " " For Each qdf In dbc.QueryDefs If Left(qdf.Name, 1) <> "~" Then Quer = qdf.Name 'Falls der Anwender keine Abfrageberechtigung besitzt, Abfrage nicht aufnehmen 'DbSecReplaceData If CheckDbSecRetrieveData(Quer) Then sSQl = sSQl & qdf.Name & ";" End If End If Next qdf Set dbc = Nothing If sSQl <> " " Then sSQl = Left$(sSQl, Len(sSQl) - 1) Me!lstAbfragen.RowSource = sSQl End If Err_form_load: If Err.Number <> 0 Then MsgBox Err.Number & " " & Err.Description & "Form!Abfragen-Form_load" Resume Exit_Form_load End If Exit_Form_load: Exit Sub End Sub Function CheckDbSecRetrieveData(strAbfrage As String) As Boolean Dim dbs As Database, ctr As Container, doc As Document 'Der Benutzer darf Abfragen lesen? ' Return reference to current database. Set dbs = CurrentDb ' Return reference to Tables container. Set ctr = dbs.Containers("Tables") Set doc = ctr.Documents(strAbfrage) ctr.Username = CurrentUser ' Check if AllPermissions property. If (doc.AllPermissions And dbSecRetrieveData) = dbSecRetrieveData Then CheckDbSecRetrieveData = True Else CheckDbSecRetrieveData = False End If Set dbs = Nothing End Function Aber leider funzt die Sache nicht. Es werden alle Abfragen aufgelistet, auch die bei denen oich einem Testuser die Abfrageberechtigung weggenommen habe. Gruß Armin P.S.: always look on the bright side of Life!

Abfrageberechtigung auslesen?

999

Prian0815

22.02.06 15:25

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen