Office: (Office 2016) Farbe Textfelder ändern wenn gesperrt/entsperrt

Hallo Forum

Gibt es die Möglichkeit die Hintergrundfarbe je nach dem ob der Inhalt gesperrt oder entsperrt ist anders einzustellen? (Bsp. gesperrt = grau, entsperrt = weiss)

Mit folgendem Code öffne ich das Formular mit schreibgeschütztem Inhalt:

PHP:

         Private Sub Form_Load()
Me.AllowEdits = False ' alles gesperrt
Me.Unterformular.Form.AllowEdits = False ' alles gesperrt
End Sub


:)

 

Hallo,

das geht mit der Section.Backcolor Eigenschaft, z.B.
Code:

Ulrich

 

Hallo knobbi
Vielen Dank für die Antwort.

Sorry, habe das Problem zu wenig genau beschrieben.
Die Hintergrundfarbe soll nur für die Textfelder/Kombinationsfelder im Formular/Unterformular geändert werden.
Beim Klicken des Buttons soll sich diese bei "sichern" "sperren" entsprechend ändern.

 

Mein Vorschlag:

Spendiere allen relevanten Textfeldern/Kombinationsfeldern einen gleichen Eintrag in der Eigenschaft Marke, z. B. x.

Beim Klick auf den Button durchläufst Du in der entsprechenden Ereignisprozedur in einer Schleife alle Text- und Kombinationsfelder, prüfst auf den Marken-Eintrag "x" und setzt deren Hintergrundfarbe wunschgemäß.

Alternativ könnte man auch die Bedingte Formatierung anwenden, indem der Button-Klick ausgewertet wird, sowohl in der Aktiv-Eigenschaft als auch in der Farbgebung.

 

Hallo Maxel

Danke für den Input!
Wie muss dann der Code aussehen?

 

Hallo,

Bsp-DB siehe hier:
Manipulation von Control-Properties in Formularen

 

Hallo TommyK
Danke für das Beispiel. Sieht ganz gut aus!
Ich schaue mal wie ich das in meine DB bringe...(bin nur Grundkursbesucher :-()

 

Hallo grundkursbesucher,

eine Möglichkeit wäre "Bedingte Formatierung"

 

Hallo Alfred

Danke für den Vorschlag. So habe ich mir das vorgestellt!

Im Hauptformular habe ich es auch hingekriegt. Beim Unterformular leider nicht.
Ich habe dann mein Unterformular entsprechend Deinem Beispiel umbenennt und den ganzen Code übernommen. Wenn ich dann auf Ansicht klicke springt er gleich wieder auf die Entwurfsansicht. Kurios...eine Idee wieso das passiert?

 

Hallo
wenn Du mehr als die FarbKonstanten vb…
jede beliebige Farbe möchtest
Lies in meiner Doc
https://www.dropbox.com/s/pa6yzgvw74...lagen.zip?dl=0
ab Seite : 337
11.46 Farbauswahl mit der Farbpalette

 

ja, seltsam. Denke, dass etwas schief läuft und keine Formularansicht gegeben ist.
Ich würde das Ufo noch einmal erstellen, mit dem einen Feld dazu [xSperren]
Füge es in den Formularkopf ein.
Das Feld wird dann aus dem Hfrm beschrieben.
Anschließend markiere alle anderen Felder und öffne "Bedingte Formatierung"
gib dort [Ausdruck ist] und [xSperren]"Sichern" ein. Farbe auswählen und Speichern (mit OK)
Dann im Hfrm so wie ich es erstellt habe... ist ja nachvollziehbar.
PS:

Umbenennen brauchst es nicht, lasse so wie dein UfoName war.

 

Hallo Alfred

Habe Deinen Vorschlag probiert, geht aber nicht. Wenn ich diesen Teil des Codes weg lasse geht die "Ansicht" wenigstens wieder:

PHP:

         Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
Me.ufoTest.Form.AllowEdits = False
SetCaption
End Sub


 

Ergänzung:
Ich habe den Code bei "Beim Anzeigen" eingefügt und die Ansicht funktioniert.

PHP:

         Private Sub Form_Current()
Me.AllowEdits = False
Me.Unterformular.Form.AllowEdits = False
SetCaption
End Sub


 

Hallo Alfred, hallo zusammen

Ich habe nochmals probiert, finde den Fehler aber nicht.
Habe jetzt das Beispeil von Alfred nachgebaut, und auch dort funktioniert es nicht *eek.gif*

 

Guten Morgen,

ich habe geschrieben...

...du hast es nicht gemacht!
Dann kann es nicht funktionieren. Das Feld wird gebraucht, schau in meiner
BDB nach im Ufo findest das Feld... im Detailbereich, besser ist aber der FormKopf.
Und, das Grau könntest auch heller erstellen *Smilie