Formularattribute mit VBA ändern

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen!

Ich habe ein Formular, das standardmäßig die Eigenschaft „Bearbeiten zulassen = Nein“ hat.
Ich habe ein Selbstgebautes Benutzersystem und wollte jetzt wenn ein Benutzer mit gruppe „Admin“ (die Info liegt in einer globalen Variablen) kommt das Formular auf Bearbeiten zulassen = Ja setzen.

Ich habe es mit folgendem Code (Beim Öffnen) probiert:

**If usergroup = „Admin“ Then
Forms!FAnforderungen.AllowEdits = True
Forms!FAnforderungen.Refresh

End If**

Allerdings funktioniert das noch nicht wirklich, vielleicht benutze ich das falsche Ereignis oder ähnliches.
In der API habe ich auch gelesen, dass die Änderung des Attributs u.U. nicht auf den aktuellen Datensatz zutrifft?

Grüße

#2

Hallo,

Ich habe ein Formular, das standardmäßig die Eigenschaft
„Bearbeiten zulassen = Nein“ hat.
Ich habe ein Selbstgebautes Benutzersystem und wollte jetzt
wenn ein Benutzer mit gruppe „Admin“ (die Info liegt in einer
globalen Variablen) kommt das Formular auf Bearbeiten zulassen
= Ja setzen.

Ich habe es mit folgendem Code (Beim Öffnen) probiert:

**If usergroup = „Admin“ Then
Forms!FAnforderungen.AllowEdits = True
Forms!FAnforderungen.Refresh

End If**

Allerdings funktioniert das noch nicht wirklich

und was ist „nicht wirklich“ ?

So sollte es schon gehen (mit besserer Benamsung der Variablen:

Sub Form_Open(Cancel as Integer)
Me.AllowEdits = pblUsergroup = „Admin“
End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Es funktioniert nicht.
Ich habe deinen Code jetzt ausprobiert, ist ja prinzipiell das Gleiche aber die Änderung kommt nicht zustande.
Das Formular ist immernoch gesperrt.
Macht es einen Unterschied wie ich das Formular öffne? Ob mit Makro oder ohne? Ich bin auch mit einem Breakpoint mal in die If-Abfrage rein, also er kommt schon dort hin, führt den Code aus, aber das wirkt sich nicht auch das Formular aus.

Grüße

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#4

Es funktioniert nicht.
Ich habe deinen Code jetzt ausprobiert, ist ja prinzipiell das Gleiche aber die Änderung kommt nicht zustande.
Das Formular ist immernoch gesperrt.
Macht es einen Unterschied wie ich das Formular öffne? Ob mit Makro oder ohne? Ich bin auch mit einem Breakpoint mal in die If-Abfrage rein, also er kommt schon dort hin, führt den Code aus, aber das wirkt sich nicht auch das Formular aus.

Grüße

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hallo,

Ich habe es mit folgendem Code (Beim Öffnen) probiert:

verwende das Ereignis: Beim Laden

If usergroup = „Admin“ Then

Me.AllowEdits = True

Me.Requery

End If

Me. = Kürzel für das aktuelle Formular

In der API habe ich auch gelesen,

in welcher API steht das?

Grüße aus Schönberg (Lübeck)
Wolfgang
(Netwolf)

#6

Hallo,

„Das Formular ist immer noch gesperrt.“

wirklich das Form?

Sind nicht evtl. die einzelnen Controls gesperrt/deaktiviert?

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#7

Ok ich habe es jetzt mit einem jungfräulichen Formular ausprobiert und da geht es.
Weißt du woran das eventuell liegen kann? Was für Controls meinst du denn?

Grüße

#8

Das lustige ist, dass es umgekehrt auch nicht funnktioniert. Also erst auf „true“ setzen und dann wenn die usergroup nicht Admin ist auf false.
Kann immer schreiben.

#9

Das lustige ist, dass es umgekehrt auch nicht funnktioniert.
Also erst auf „true“ setzen und dann wenn die usergroup nicht
Admin ist auf false.
Kann immer schreiben.

bei solchen Fällen tippe ich dann auf ein „kaputtes“ Form, wenn nicht eine „kaputte“ DB.

Mach erst eine Kopie des Forms im Datenbankfenster und teste mal das Ganze an dieser Kopie. Falls das nicht hilft, erstell eine neue leere DB und importiere alles aus der alten.

„Controls“ sind die Steuerelemente, die sich in/auf Deinem Form befinden…

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#10

Naja, das ist zuviel Arbeit. Die Datenbank ist wirklich SEHR umfangreich. Ich habe den Befehl jetzt direkt am Unterformular ausprobiert auf das es hauptsächlich ankommt, da geht es. Danke nochmal für die Hilfe!

Ps: Ich meinte nicht was Controls sind, sondern welche du genau meinst? Also AllowAdd oder wie das auch immer heißt?

Grüße

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#11

Hallo,

„Naja, das ist zuviel Arbeit.“

5 Minuten sind zuviel Arbeit??

Egal, mit Controls meine ich (und nicht nur ich) STEUERELEMENTE (Textfelder, Kombis, Listenfelder, etc…) und keine Formular-Methoden/Eigenschaften.

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#12

Ok jetzt hat es geklappt. Ich habe den Code direkt in das Unterformular eingebaut…

DANKE!!!