Office: (Office 2019) Im Endlosformular aktiven Datensatz hervorheben

Hallo liebe Mitglieder.
Eigentlich benötige ich was ganz einfaches...

Ich lasse mir meine Datensätze (Filme) in einem Endlosformular anzeigen.
Jeder Datensatz hat diverse Buttons.
Klicke ich auf einen dieser Buttons, möchte ich auch optisch besser sehen, welchen Datensatz ich gerade bearbeite.

Mit der klassischen "bedingten Formatierung' funktioniert es (Datensatz hat Focus). Und jetzt brauche ich das VBA Pendant dazu. Ich dachte ja an...

Sub bt_HierPassiertWas_Click()

Dim t As TextBox
Set t = Me!Titel 'Das ist eine Textbox mit dem Namen Titel
t.FormatConditions.Delete
t.FormatConditions.Add (acFieldHasFocus)​

With t
.BackColor = RGB(0, 255, 0)
End With​

End Sub

Nun erwarte ich eigentlich, dass beim Klick auf den Button bt_HierPassiertWas die Textbox Titel des aktuellen Satzes grün leuchtet. Aber es passiert gar nix...

Ich stehe auf dem Schlauch.

 

Hallo,
alles halb so wild.
Du baust Dir, wenn nicht schon vorhanden, in die Zeile Deines Endlosformulars ein Textfeld (z.B. TxID), welches den aktuellen Primärschlüssel der dem Formular zugrunde liegenden Abfrage enthält. Desweiteren stellst Du bei allen Textfeldern im Detailbereich den Hintergund auf "transparent"
Als nächstes nimmst Du ein ungebundenes Textfeld, welches die Höhe und die Breite Deiner ganzen Zeile im Detailbereich hat. Bei dem muss der Hintergrund auf "normal" stehen. In der Bedingten Formatierung dieses Textfelds schreibst Du in die Bedingung als Ausdruck: [TxID] = [TxAktivID] und füllst den Hintergrund mit Deiner Lieblingsfarbe. Dann gehst Du ins Menü Anordnen und wählst den Punkt "In den Hintergrund".
In Deinen Formularkopf setzt Du Dir ein ungebundenes Textfeld, z.B. TxAktivID
Jetzt schreibst Du in den VBA-Code des Formulars in das Ereignis "Beim Anzeigen":

Code:

Private Sub Form_Current()
   Me!TxAktivID = Me!TxID
End Sub

Das wars schon. Jetzt gehst Du in die Formularansicht und klickst auf eine Zeile.
Und dann schreibst Du hier her, was ich bei meinen Erläuterungen vergessen habe.
Gruß
Doming

 

Toll! Das ist ja mal ein Workaround. (mein ich ernst ;-)
Werde ich die Tage mal ausprobieren, denn bei den FormConditions gibt es immer wieder Probs mit "Eigenschaft schreibgeschützt".
Aber eigentlich bin ich bisher immer mit der bedingten Formatierung klar gekommen, vor allem seit man, ich glaube seit 2010, auch Ausdrücke eingeben kann.

 

Naja, mein Vorschlag beinhaltet ja die farbliche Markierung der gesamten Zeile.
Man kann das natürlich bei jedem einzelnen Textfeld als Bedingung hinterlegen, aber ich habe schon einige Male Nicht-Textfelder in der Zeile gehabt, die durch den eingefärbten Hintergrund dann auch hervorgehoben werden.
Das Problem ist ja, dass man in Endlosformularen gerne mal alle Zeilen gleichzeitig bearbeitet, deswegen muss es eine Unterscheidung der Zeilen untereinander und gleichzeitig ein "formularglobal gültiges" Feld geben.

 

Hallo Doming, hallo alle anderen Mitglieder, die sich des Problems angenommen haben. Danke für Eure Zeit.
Ja, also den Workaround werde ich mir bestimmt auch mal ansehen.
Im Augenblick denke ich an meinen Plan B, ein stilles Feld zu machen und ihm einen Wert zuzuweisen. Ggf. reagiert Access ja eher auf acEqual oder so etwas, statt auf acFieldHasFocus.
Plan C wäre halt ein eigenes Unterfomular mit eigenen Buttons 'bt_HierPassiertWas'.
Plan D ist dann der Workaround von Dir und Plan D ist: Pass' auf, wo Du hinklickst :D
Ich habe das Thema mal bei mir 'im Speicher' und sobald ich einen Plan umgesetzt habe, postet ich das hier.

 

Ich habe tatsächlich ein sehr kleinen Workaround gefunden, sozusagen Plan "F":
Gehe ins Endlosformular, wähle z.B. eine Textbox, gehe auf 'bedingte Formatierung', setze auf 'Feld hat Focus' und speichern.
Die VBA Programmierung für meinen Button lautet unglaublich komplex:

Sub bt_HierPassiertWas_click()
Titel.SetFocus 'Titel heißt meine Textbox, ich weiß, sollte txtTitel heißen...
End Sub

Wenn ich auf meinen Button klicke, wird das Textfeld so wie unter 'bedingte Formatierung' angezeigt. Man kann sich ja auch stressen...

 

Naja, die Lösung hattest Du ja schon im ersten Satz. Wo ich aber dachte, dass Du das unbedingt in VBA lösen wolltest.
Egal, Hauptsache es läuft.