Option Compare Database
 
Private pBerechtigungen(7) As Variant
 
'Berechtigungen des aktuell angemeldeten Benutzers
Public Property Let Berechtigungen(ByRef Value() As Variant)
    pBerechtigungen() = Value
    Call PropertyChanged("Berechtigungen")
End Property
Public Property Get Berechtigungen() As Variant()
    Berechtigungen = pBerechtigungen()
End Property

Private Sub Form_Current()
     Berechtigungen(0) = "read"
End Sub