Bedingteformatierung bei änderung

[Mathias221]

Guten Tag,

gibt es eine möglichkeit in einem Formular mein Kombinationsfeld z.B. gelb zu machen, wenn ich einen anderen Wert wähle.

Irgendwie sehe ich es nicht das mir Bedingetformatierung des ermöglicht und VBA kann ich nicht.

Gruß & Danke Mathias

[MzKlMu]

Hallo,

wenn ich einen anderen Wert wähle.

was heißt einen anderen Wert?
Ist das ein Endlosformular oder ein normales Formular ?

[Mathias221]

Achso ja sry,

es ist ein Normales Formular welches mehrere Kombinationsfelder enthält und es soll dann so seien, dass wenn ich einen anderen Eintrag im Kombinationsfeld wähle dann soll dieser z.B. Gelb werden oder so

[MzKlMu]

Hallo,

dass wenn ich einen anderen Eintrag im Kombinationsfeld wähle

gegen welchen Eintrag willst Du vergleichen, der der vorher im Feld stand  ?

[Mathias221]

Ja genau es kann aber auch seien, dass das Kombinationsfeld vorher leer war oder danach leer ist

[MzKlMu]

Hallo,
und wie machst Du das Feld wieder leer ?


PS:
Es empfiehlt sich immer sein Problem vollumfänglich zu beschreiben und nicht so scheibchenweise.

[Mathias221]

Leeren tue ich ein Kombinationsfeld einfach durch löschen des Inhalts.
Die Kombinationsfelder können auch nicht im Formular erweitert werden also es können hier keine neuen Einträge vorgenommen werden.
Die Änderung der Datensätze erfolgt ebenfalls über ein Kombinationsfeld welches nicht mit gefärbt werden sollte.

Ich hoffe jetzt habe ich alles beschrieben.

Entschuldigung dafür ich denke immer erstmal zu einfach.

[MzKlMu]

Hallo,
ich kann nur eine VBA Lösung anbieten.
Im Ereiegnis "Vor Aktualisierung" des Kombis.

Code [Auswählen] Erweitern

If Me.Kombiname.Text <> Me.Kombiname.OldValue Then
    Me.Kombiname.BackColor = vbYellow
End If

[Mathias221]

Ja das habe ich mir schon gedacht da ich sonst auch nichts anderes mehr gefunden habe zum einstellen aber sicher war ich mir nicht da meine Access Erfahrung schon sehr lange her ist.

da ich ehr schlecht bin in VBA, kann man das auch so machen das es alle bertrifft ausser ein Kombinationsfeld, das ich sonst code für 40 kombinatiosnfelder schreiben müsste.

[MzKlMu]

Hallo,
ich habe da gerade nichts passendens zur Hand. Ich weis auch gar nicht ob das so einfach geht, denn zur Auswertung darf der Cursor das Feld nicht verlassen.

Was mich aber wundert, sind 40 Kombifelder.  Bist Du sicher, dass die Tabellenstruktur stimmt?
Wozu braucht man so viele Kombis?

[Mathias221]

Danke erstmal für die mühe ,

Ich brauche so viele Kombies da es ein System bei uns auf Arbeit gibt mit dem ich Telefonieren kann das hat eine Touchscreen mit 4 Seiten und auf jeder Seite sind 10 Button zur Schnellwahl.

[Beaker s.a.]

Hallo Mathias,
Ich weiss zwar nicht, was Kombis und Buttons mit ein ander zu tun
haben, aber du könntest eine öffentl. (kann auch Private sein, wenn
du es nur auf einem Form brauchst) Sub schreiben, der der Name des
Kombis übergeben wird

Code [Auswählen] Erweitern

Public Sub KombiInFarbe(ctl As Control)
    If ctl.Text <> ctl.OldValue Then
        ctl.BackColor = vbYellow
'Code von Klaus angepasst
    End If
End SubIn die Eigenschaft "Nach Aktualisierung" der Kombis schreibst dann

Code [Auswählen] Erweitern

=KombiInFarbe(NameDesKombis)
gruss ekkehard