Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Menuebar über Gruppenkonten
zurück: Daten autom. in den Datensatz schreiben weiter: Daten mehrerer Tabs in einem Formular mit Aktualisierung Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
BigCool
Neuling


Verfasst am:
08. Aug 2005, 17:40
Rufname:


Menuebar über Gruppenkonten - Menuebar über Gruppenkonten

Nach oben
       

BigCool am 23. Jul 2005 um 15:32 hat folgendes geschrieben:
Hi Leute,

habe ein kleines Problem möchte über die Gruppenkonten verschiedene Menuebars zu Verfügung stellen. Genau in dieser Hinsicht komme ich nicht weiter. Im Einsatz Access03
Code:
Sub MenüzeileAuswählen()
    If IstBenutzerGruppenmitglied(CurrentUser, "Anfänger") Then
        Application.MenuBar = "Anfänger"
    End If
    If IstBenutzerGruppenmitglied(CurrentUser, "Fortgesschrittener") Then
        Application.MenuBar = "Anfänger"
    End If
    If IstBenutzerGruppenmitglied(CurrentUser, "Profi") Then
        Application.MenuBar = "Profi"
    End If
End Sub

Mein zweites Problem wo und wie richte eine Autoexec-Marco ein, denn ich möchte das die oben genannte Prozedur mit dem Aufruf der DB startet und nicht erst mit einem Formular.

Dank
Gruß
Kevin

Hier mal eine Antwort auf meine gestellte Frage, Vielleicht findet sich doch einer der code fehlerfrei hinkriegt.
Code:
Function IstBenutzerGruppenmitglied(Benutzername As String, _
                                    Gruppenname As String) As Boolean
On Error GoTo Err
    Dim WS As Workspace
    Dim Benutzer As User
    Dim Gruppe As Group

    Set WS = DBEngine(0)
    Set Benutzer = WS.Users(Benutzername)
    IstBenutzerGruppenmitglied = False
    For Each Gruppe In Benutzer.Groups
        If Gruppenname = Gruppe.Name Then
            IstBenutzerGruppenmitglied = True
            Exit For
          ElseIf Not Gruppenname = Gruppe.Name Then
            Exit For
        End If
    Next
    Exit Function

Err:
    MsgBox Err.Description
    Exit Function
End Function

Code:
    If IstBenutzerGruppenmitglied(CurrentUser, "Users") = True Then
        GrpUser = 1
      ElseIf IstBenutzerGruppenmitglied(CurrentUser, "Admins") = True Then
        GrpUser = 2
      ElseIf IstBenutzerGruppenmitglied(CurrentUser, _
                                        "Supervisoren") = True Then
        GrpUser = 1
    End If
GrpUser benutze ich für eine Select Case.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tipps & Tricks: Benutzer und Gruppenkonten verwalten auch in Access 2007 11 jpa 20818 12. Jun 2013, 21:54
jpa Benutzer und Gruppenkonten verwalten auch in Access 2007
Keine neuen Beiträge Access Hilfe: Benutzer und Gruppenkonten verwalten A2007 {Nachgefragt} 12 gasttt 2127 23. Apr 2012, 23:44
Wisi82 Benutzer und Gruppenkonten verwalten A2007 {Nachgefragt}
Keine neuen Beiträge Access Hilfe: Hilfe bei Benutzer- und Gruppenkonten 7 lars.muc 448 23. Apr 2010, 08:41
Gast Hilfe bei Benutzer- und Gruppenkonten
Keine neuen Beiträge Access Hilfe: Problem mit Benutzer- und Gruppenkonten 0 helmriek 613 01. Mai 2008, 19:26
helmriek Problem mit Benutzer- und Gruppenkonten
Keine neuen Beiträge Access Hilfe: Benutzer- / Gruppenkonten / Berechtigungen 4 Düsentrieb 1120 28. März 2008, 22:58
Gast Benutzer- / Gruppenkonten / Berechtigungen
Keine neuen Beiträge Access Hilfe: Benutzer und Gruppenkonten anlegen 0 bull1234 512 12. Dez 2007, 11:49
bull1234 Benutzer und Gruppenkonten anlegen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps