Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Access Berichte: Unterformular unterdrückt mir ein...
  • Strubli09.03.21 15:42
       └ RE: Access Berichte: Unterformular unterdrückt m... Karl Donaubauer09.03.21 17:23
          └ RE: Access Berichte: Unterformular unterdrückt... Strubli12.03.21 00:24
             └ RE: Access Berichte: Unterformular unterdrüc... Andrea12.03.21 08:16
                └ RE: Access Berichte: Unterformular unterdr... Strubli12.03.21 20:38
  • A97 set db = currentdb
  • HeinzW09.03.21 18:14
  • Hilfe! Textfeld aus gefiltertem Unterformular ausl...
  • oggi02.03.21 09:41
       └ RE: Hilfe! Textfeld aus gefiltertem Unterformula... Marzer02.03.21 11:06
          └ RE: Hilfe! Textfeld aus gefiltertem Unterformu... oggi02.03.21 12:03
             └ RE: Hilfe! Textfeld aus gefiltertem Unterfor... PeterDoering02.03.21 13:34
                └ RE: Hilfe! Textfeld aus gefiltertem Unterf... oggi02.03.21 14:54
                   └ RE: Hilfe! Textfeld aus gefiltertem Unte... Marzer05.03.21 08:54
  • Aktualisierungsabfrage über VBA
  • SoeSchi25.02.21 16:23
       └ RE: Aktualisierungsabfrage über VBA PeterDoering26.02.21 00:56
          └ RE: Aktualisierungsabfrage über VBA SoeSchi26.02.21 08:22
             └ RE: Aktualisierungsabfrage über VBA SoeSchi26.02.21 09:38
             └ RE: Aktualisierungsabfrage über VBA PeterDoering27.02.21 15:52
                └ RE: Aktualisierungsabfrage über VBA SoeSchi01.03.21 09:01
  • Access Laufzeitende?
  • Greiff22.02.21 15:13
       └ RE: Access Laufzeitende? Karl Donaubauer22.02.21 17:45
          └ RE: Access Laufzeitende? Greiff22.02.21 19:54
  • Einladung zum 4. virtuellen Access-Stammtisch Hann...
  • KlausWerther17.02.21 13:36
  • PDF Ausgabe scheitert (auf einigen PCs)
  • motocomfort02.02.21 13:59
       └ RE: PDF Ausgabe scheitert (auf einigen PCs) Karl Donaubauer04.02.21 17:54
          └ RE: PDF Ausgabe scheitert (auf einigen PCs) motocomfort11.02.21 12:17
  • Hilfestellung in Access nötig
  • PiratJack09.02.21 13:58
       └ SQL-WHERE mit Like bringt zu viele Resultate (wa... Karl Donaubauer09.02.21 19:19
          └ RE: SQL-WHERE mit Like bringt zu viele Resulta... PiratJack10.02.21 08:47
             └ RE: SQL-WHERE mit Like bringt zu viele Resul... PiratJack10.02.21 09:18
                └ RE: SQL-WHERE mit Like bringt zu viele Res... Karl Donaubauer10.02.21 09:26
                   └ RE: SQL-WHERE mit Like bringt zu viele R... PiratJack10.02.21 10:42
  • Frage zu einer Aktualisierungsabfrage
  • Frank_owski30.01.21 21:50
       └ RE: Frage zu einer Aktualisierungsabfrage Karl Donaubauer04.02.21 18:31
  • Felder überschreiben mit Aktualisierungsabfrage
  • LoosA04.02.21 11:31
       └ RE: Felder überschreiben mit Aktualisierungsabfr... Karl Donaubauer04.02.21 17:40
  • ImageList 64 Bit ohne Properties-Dialog?
  • Lorenz18.01.21 15:42
       └ RE: ImageList 64 Bit ohne Properties-Dialog? Lorenz25.01.21 10:59
          └ RE: ImageList 64 Bit ohne Properties-Dialog? Karl Donaubauer25.01.21 17:37
             └ RE: ImageList 64 Bit ohne Properties-Dialog? Lorenz27.01.21 15:23
                └ RE: ImageList 64 Bit ohne Properties-Dialog? Lorenz30.01.21 11:10
  • TreeView oder Imagelist mit Base64-Bildern?
  • Lorenz19.01.21 09:28
  • Ungebundenes Feld in einem Bericht ändern
  • Paula01.01.21 11:23
       └ RE: Ungebundenes Feld in einem Bericht ändern... Karl Donaubauer01.01.21 12:10
          └ RE: Ungebundenes Feld in einem Bericht ändern Paula01.01.21 13:42
             └ RE: Ungebundenes Feld in einem Bericht ändern Karl Donaubauer04.01.21 17:28
                └ RE: Ungebundenes Feld in einem Bericht ändern Paula17.01.21 22:39
  • Access - Backend auf Sharepoint
  • Mr_Tom08.01.21 14:07
       └ RE: Access - Backend auf Sharepoint Karl Donaubauer08.01.21 14:36
  • Datenbanktools - Tabelle analysieren
  • Sergio18.12.20 17:11
       └ RE: Datenbanktools - Tabelle analysieren Karl Donaubauer23.12.20 15:50
          └ RE: Datenbanktools - Tabelle analysieren Sergio30.12.20 11:25
             └ RE: Datenbanktools - Tabelle analysieren Karl Donaubauer30.12.20 11:40
    Karl Donaubauer
    Gesendet: 01.01.21 12:10
    Betreff: RE: Ungebundenes Feld in einem Bericht ändern



    Elite Veteran

    Beiträge: 847
    50010010010025
    Ort: Wien
    Hallo, Paula!

    ...
    Ich habe in einem Bericht ein ungebundenes Feld zur Berechnung eines Zeitwertes.
    Nun möchte ich dass das Feld abhängig des Zeitwertes eine andee Farbe bekommt, aber das funktioniert nicht.
    Mein Listing:

    Private Sub Report_Current()
    Dim lngRed As Long
    'Farbe Rot
    lngRed = RGB(255, 0, 0)

    edPlus11.SetFocus 'sicheheitshalber eingefügt

    'Bei Zeitwert in diesem Bereich Farbe auf Rot setzen
    If edPlus11.Value > "07:00" And edPlus11.Value <= "15:00" Then
    edPlus11.ForeColor = lngRed
    End If
    End Sub

    Ich habs schon in versciedenen Kombinationen versucht, wie nur mit > als 7 Uhr, <= 15:30, statt And mit Or --> keine Änderung der Farbe!

    Wo ist da der Hund begraben?
    ...

    Da gibt es mehrere Kandidaten:

    1. Welchen Datentyp hat das Feld in der Tabelle?
    Falls Datum/Uhrzeit, dann enthält es sowohl ein Datum als auch eine Uhrzeit, auch wenn das Datum evtl. durch die Formatierung nicht sichtbar ist.

    2. Das Ereignis "Beim Anzeigen" (Current) ist so ziemlich das ungeeignetste für so etwas in einem Bericht.
    Es tritt nur ein, wenn du a) den Bericht in der Berichtsansicht öffnest und b) in einen Datensatz klickst.

    3. Wenn der Bericht mehr als 1 Datensatz enthält, dann musst du die Prüfung bei jedem Datensatz veanstalten, nicht nur bei dem einen, der gerade den Fokus hat.

    Ich gehe mal von 1. Datum/Uhrzeit 2. Seitenansicht und 3. mehreren Datensätzen aus. Dann könnte der Code z.B. so aussehen:

    'Bei Zeitwert in diesem Bereich Farbe auf Rot setzen
    If Not IsNull(Me!edPlus11) Then
    If TimeValue(Me!edPlus11) > "07:00" And TimeValue(Me!edPlus11) <= "15:00" Then
    Me!edPlus11.ForeColor = vbRed
    Else
    Me!edPlus11.ForeColor = vbBlack
    End If
    Else
    Me!edPlus11.ForeColor = vbBlack
    End If

    Schönes neues Jahr und
    -----
    Servus
    Karl
    *********
    https://www.donkarl.com/devcon Access-Online-Konferenz 18.+19.4.
    Access Forever: https://www.accessforever.org
    Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy...
    Access-Entwickler-Konferenz: https://www.donkarl.com/?aek
    Top of the page Bottom of the page


    Seite: < 8 9 10 11 12 13 ... 14 15 16 17 18 19 20 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)