Private Sub Form_Current() ' Wert des Datenbankfeldes "Wert1" prüfen ' und Farbe auf Rot, Gelb oder Grün setzen If Me!Wert1 = 100 Then TextFeld1.BackColor = vbGreen ElseIf Me!Wert1 >= 80 Then TextFeld1.BackColor = vbYellow Else TextFeld1.BackColor = vbRed End If End Sub
Kategorien
-
Neueste Beiträge
- [ABAP] Workflow: Workitems zu Objekt
- [RAP] Excel-Upload in Fiori-Apps
- [ABAP] OLE2-Objekt ‚SAPINFO‘ aufrufen
- [ABAP] Excel-Daten mit XCO API (xco_cp_xlsx) lesen
- [ABAP] Daten einer internen Tabelle als Excel-Datei speichern (xco_cp_xlsx)
- [ABAP] JSON -> ABAP (xco_cp_json)
- [ABAP] ABAP -> JSON (xco_cp_json)
- [ABAP] String nach SYMSG-Struktur konvertieren
- [ABAP] Unix-Timestamp erzeugen
- [ABAP] SALV-Grid: Eventhandler für Doppelklick auf eine Zelle (double_click)