Name des Buttons zusammensetzen
03.03.2021 08:01:46
Hans-Jürgen
ich habe eine Access-Datenbank über die mehrere Anwender mittels eines Excel-Makros zugreifen. Dieser Client besteht aus einer Art Dashboard (Sheet mit bestimmten Infos aus der Datenbank) und neun Buttons. Mit den Buttons sollen die Anwender verschiedene Aktionen ausführen, die an Rechte gekoppelt sind. Ich finde allerdings meine bisherige Lösung zu umständlich, die Rechte der Schaltflächen zuzuweisen und denke, es geht noch einfacher. (Und ich will mal wieder was von euch lernen). Meine bisherige - funktionierende - Lösung lautet:
With rstBerechtigungen
Do Until .EOF
For Each objButton In ActiveSheet.Shapes
If objButton.Name = "Button" & .Fields("Funktion") Then
objButton.OLEFormat.Object.Enabled = .Fields(strAufgabe)
End If
Next
.MoveNext
Loop
End With
With rstBerechtigungen
Do Until .EOF
objButton.OLEFormat XXXNameDesButtonsAlsStringXXX.Enabled = .Fields(strAufgabe)
MoveNext
End With
Herzlichen Dank im voraus
Hans-Jürgen