Hallo,
ich hoffe ihr könnt mir einen Tipp geben. Ich bin seit Kurzem Werkstudent und soll Adminrechte auf eine Accessdatenbank erhalten. In der Arbeitsanweisung steht:
1) Datenbank.accdr in Datenbank.accdb ändern
2) Im VBA-Quellcode den Namen des vorherigen Werksstudenten durch meinen zu ersetzen
Function isAdmin() As Boolean
Dim User As String
User = Nz(DLookup("[Voller Name]", "tblWinID", "Windowskennung = '" & qp.Functionlib.WinUser & "'"), "")
isAdmin = (User = "Max Mustermann1" Or User = "Max Mustermann2" Or User = "Neuer Werkstudent")
End Function
3)Datenbank.accdb wieder in Datenbank.accdr ändern
User Max Mustermann1 und Max Mustermann2 haben Adminrechte nur ich(Neuer Werkstudent) nicht.
Die vorherigen Werkstudenten haben sich auch so ihre Adminrechte geholt und es gab keine Probleme.
Wenn ich die Zeile isAdmin = Ture setze habe ich Adminrechte in der Datenbank.accdb aber nicht in der Datenbank.accdr, aber dann hat ja auch jeder andere Adminrechte, was nicht der Sinn ist.
Woran kann das liegen?
Vielen Dank
Hallo,
was nützen dir "Admin"-Rechte in einer ACCDR, gibt es spezielle Funktionalitäten, die per Code freigeschaltet werden? Worum genau geht es denn da?
Der Befehl
isAdmin = True
würde die DB ja für alle freischalten, was wohl kaum gewollt sein kann.
Hallo,
vermutlich wurde Datenbank.accdb anschließend nicht wieder in Datenbank.accdr umbenannt....
@MaggieMay
Normale Benutzer können in der DB Auswertungen über verkaufte/benötigte Rohstoffe ansehen. Der Admin hat u.a. die Rechte die Daten aus SAP zu holen und die DB upzudaten. Das isAdmin=True die Rechte für alle freischaltet ist mir klar, ich habe das nur ausprobiert um zu sehen ob ich dann Adminrechte bekomme und nein es ist natürlich nicht gewollt dass alle diese Rechte besitzen. Habe es danach auch wieder gelöscht.(Also das isAdmin=True) und die vorherigen Einstellungen wieder hergestellt
@DF6GL
Doch die DB wurde wieder in .accdr umbenannt
Diese DB ist im Zuge einer Masterarbeit(2014) entstanden. Der Auto der DB ist nicht mehr im Unternehmen tätig und es gibt deswegen auch niemanden den ich fragen könnte.
User = Nz(DLookup("[Voller Name]", "tblWinID", "Windowskennung = '" & qp.Functionlib.WinUser & "'"), "")
Dein Name und die Windowsanmeldung sollten zusammenpassen, sowohl in der Tabelle als auch real beim verwendeten Rechner. Ist das so?
Entweder gibt es in der Tabelle tblWinID keinen Datensatz, der Deiner Windowskennung entspricht und/oder der Feldinhalt von [Voller Name] weicht von dem im Code verwendeten Eintrag ab.
Vielen Dank @Lachtaube das war der Fehler. in der Tabelle tblWinID war mein Datensatz nicht vorhanden. Habe ihn hinzugefügt und nun habe ich die Rechte.
Vielen Dank auch an alle anderen
Gruß