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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Sicherung gegen Programmierer Ausfall
  • Greiff03.02.17 16:43
       └ RE: Sicherung gegen Programmierer Ausfall PhilS03.02.17 17:06
  • Datensatz von anderem Benutzer geändert
  • Greiff25.01.17 12:52
       └ RE: Datensatz von anderem Benutzer geändert Greiff25.01.17 15:10
       └ RE: Datensatz von anderem Benutzer geändert wilo27.01.17 15:49
       └ gelöst, von anderem Benutzer geändert Greiff03.02.17 16:35
  • Bedingte Formatierung Performance in accde
  • 10302109.11.16 20:07
       └ RE: Bedingte Formatierung Performance in accde PhilS11.11.16 00:28
          └ RE: Bedingte Formatierung Performance in accde 10302111.11.16 18:56
             └ RE: Bedingte Formatierung Performance in accde PhilS12.11.16 09:30
                └ RE: Bedingte Formatierung Performance in accde 10302112.11.16 09:52
                   └ RE: Bedingte Formatierung Performance in... PhilS14.11.16 19:48
                      └ RE: Bedingte Formatierung Performan... 10302115.11.16 17:24
                         └ RE: Bedingte Formatierung Performanc... StefanWirrer16.11.16 09:16
                            └ RE: Bedingte Formatierung Performa... 10302116.11.16 18:34
                               └ RE: Bedingte Formatierung Perfor... sks17.11.16 10:47
                                  └ RE: Bedingte Formatierung Perf... 10302128.11.16 10:44
                                  └ RE: Bedingte Formatierung Perf... 10302128.11.16 10:45
                                     └ RE: Bedingte Formatierung Pe... 10302103.02.17 12:54
  • Anlagen/Bilder speichern
  • isabella31.01.17 17:16
       └ RE: Anlagen/Bilder speichern StefanWirrer01.02.17 08:46
  • Formular- Daten automatisch übernehmen
  • pitken5709.01.17 18:40
       └ RE: Formular- Daten automatisch übernehmen pitken5714.01.17 14:07
       └ RE: Formular- Daten automatisch übernehmen pitken5714.01.17 14:15
       └ RE: Formular- Daten automatisch übernehmen StefanWirrer24.01.17 16:51
          └ RE: Formular- Daten automatisch übernehmen pitken5725.01.17 19:15
             └ RE: Formular- Daten automatisch übernehmen StefanWirrer27.01.17 09:43
                └ RE: Formular- Daten automatisch übernehmen pitken5727.01.17 13:12
                   └ RE: Formular- Daten automatisch übernehmen pitken5727.01.17 15:22
                   └ RE: Formular- Daten automatisch übernehmen StefanWirrer27.01.17 16:21
                      └ RE: Formular- Daten automatisch übernehmen pitken5729.01.17 17:19
                         └ RE: Formular- Daten automatisch übernehmen StefanWirrer31.01.17 12:38
                            └ RE: Formular- Daten automatisch übernehmen pitken5731.01.17 16:02
  • Kumulierte Werte in Abfrage erzeugen?
  • LKro197623.01.17 21:09
       └ RE: Kumulierte Werte in Abfrage erzeugen? Karl Donaubauer24.01.17 17:53
          └ RE: Kumulierte Werte in Abfrage erzeugen? LKro197624.01.17 20:41
  • Bedingte Formatierung mit Datum funktionier nicht
  • Kero24.01.17 14:56
       └ RE: Bedingte Formatierung mit Datum funktionier ... Karl Donaubauer24.01.17 17:40
  • Klasseninstanz über die gesamte Lebensdauer der DB
  • enchiriadis16.01.17 13:17
       └ RE: Klasseninstanz über die gesamte Lebensdauer ... PhilS17.01.17 10:03
          └ RE: Klasseninstanz über die gesamte Lebensdaue... enchiriadis20.01.17 13:52
             └ RE: Klasseninstanz über die gesamte Lebensda... wilo20.01.17 16:15
                └ RE: Klasseninstanz über die gesamte Lebens... enchiriadis21.01.17 21:03
  • Berichts Summen
  • HQbauer19.01.17 10:17
       └ RE: Berichts Summen Karl Donaubauer19.01.17 22:58
          └ RE: Berichts Summen HQbauer20.01.17 08:25
  • Löschen verwaister Datensätze
  • svru07.01.17 02:55
       └ RE: Löschen verwaister Datensätze PhilS07.01.17 14:14
          └ RE: Löschen verwaister Datensätze svru07.01.17 16:15
             └ RE: Löschen verwaister Datensätze PeterDoering07.01.17 20:52
                └ RE: Löschen verwaister Datensätze PhilS10.01.17 15:10
                   └ RE: Löschen verwaister Datensätze Karl Donaubauer10.01.17 16:30
                      └ RE: Löschen verwaister Datensätze PhilS11.01.17 12:37
             └ RE: Löschen verwaister Datensätze PhilS10.01.17 15:29
       └ RE: Löschen verwaister Datensätze Karl Donaubauer09.01.17 16:48
          └ RE: Löschen verwaister Datensätze svru17.01.17 21:50
  • Access Stammtisch München am 12.01.2017 (Do)
  • StefanWirrer11.01.17 15:53
  • Bericht bzw Abfragen aus 2 Formularen öffnen
  • HQbauer22.12.16 21:48
       └ RE: Bericht bzw Abfragen aus 2 Formularen öffnen Karl Donaubauer22.12.16 22:59
          └ RE: Bericht bzw Abfragen aus 2 Formularen öffnen HQbauer23.12.16 00:25
  • Alles schließen VBA
  • Lorenz20.12.16 23:40
       └ RE: Alles schließen VBA Karl Donaubauer20.12.16 23:56
          └ RE: Alles schließen VBA Lorenz21.12.16 06:45
  • Form Resize
  • Marzer19.12.16 10:05
       └ RE: Form Resize wilo19.12.16 16:34
       └ RE: Form Resize PeterDoering19.12.16 17:15
          └ RE: Form Resize Marzer21.12.16 06:11
  • .ldb Sperre bei Frontend mit Popup
  • mjordan06.12.16 09:53
       └ RE: .ldb Sperre bei Frontend mit Popup PeterDoering06.12.16 11:55
          └ RE: .ldb Sperre bei Frontend mit Popup mjordan07.12.16 10:54
             └ RE: .ldb Sperre bei Frontend mit Popup mjordan07.12.16 11:13
                └ RE: .ldb Sperre bei Frontend mit Popup PeterDoering07.12.16 13:11
                   └ RE: .ldb Sperre bei Frontend mit Popup mjordan14.12.16 08:20
    103021
    Gesendet: 15.11.16 17:24
    Betreff: RE: Bedingte Formatierung Performance in accde


    Member

    Beiträge: 12

    Servus PhilS,

    vielen Dank für Deine Rückmeldung.
    Hier mein Code, dieser ist sicher auch noch zu optimieren:

    Option Compare Database
    Option Explicit

    Private Declare Function GetTickCount Lib "kernel32" () As Long
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Public Function BedingteFormatierungMehrAls50()

    Dim vProgressTitel As String
    Dim vZählerP As Long
    Dim vAnzahlGesamt As Long
    Dim lngSchriftfarbe, lngSchriftfarbe1, lngSchriftfarbe2, lngSchriftfarbe3 As Long
    Dim lngIndex As Long
    Dim Obj As Object
    Dim Frm As Form
    Dim ctl As Control
    Dim i As Integer
    Dim Start As Date
    Dim objFormatCondition As FormatCondition
    Dim datStart As Date
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Set db = CurrentDb


    Dim sngStart As Single
    Dim sngDauer As Single

    On Error GoTo Fehler

    sngStart = GetTickCount


    lngSchriftfarbe = DLookup("SchriftFarbe", "tbl_Status", "Wert=0")
    lngSchriftfarbe1 = DLookup("Schriftfarbe1", "tbl_Optionen")
    lngSchriftfarbe2 = DLookup("Schriftfarbe2", "tbl_Optionen")
    lngSchriftfarbe3 = DLookup("Schriftfarbe3", "tbl_Optionen")


    DoCmd.OpenForm "frmPlan", , , , , acHidden
    DoCmd.Hourglass True
    Echo False

    Form_frmPlan.RecordSource = "tblPlan2"
    Set Obj = Forms("frmPlan")

    Dim x As Integer
    x = 0
    For Each ctl In Obj.Section(0).Controls
    x = x + 1
    Debug.Print x & " " & ctl.Name & " " & Now()
    If ctl.ControlType = acTextBox And ctl.Name Like "txtItem*" Then

    Do While ctl.FormatConditions.Count > 0
    ctl.FormatConditions(0).Delete
    Loop

    For i = 1 To 4
    Set objFormatCondition = ctl.FormatConditions.Add(acFieldValue, acEqual, 1)
    Next i

    i = 0


    Set rst = db.OpenRecordset("SELECT * FROM tbl_Status WHERE Status Not like 'Briefkopf'", dbOpenDynaset, dbSeeChanges)

    Do While Not rst.EOF
    lngIndex = Mid(ctl.Name, 8)
    i = i + 1
    Debug.Print x & " " & ctl.Name & " " & Now()
    'Sonderstatus
    Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , "[" & "Item" & lngIndex & "] = " & rst!Wert & " and [" & "ItemSon" & lngIndex & "] = -1")

    With objFormatCondition
    .BackColor = DLookup("Farbe", "tbl_Status", "Wert=" & rst!Wert)
    .ForeColor = lngSchriftfarbe 'DLookup("SchriftFarbe", "tbl_Status", "Wert=0")
    '.FontBold = 0 'DLookup("Fett", "tbl_Status", "Wert=0")
    End With

    If DLookup("ErweiterteSchriftfarbenVerwenden", "tbl_Optionen") = True Then
    ' 'Sonderstatus1
    Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , "[" & "Item" & lngIndex & "] = " & rst!Wert & " and [" & "ItemSon" & lngIndex & "] = 1")

    With objFormatCondition
    .BackColor = DLookup("Farbe", "tbl_Status", "Wert=" & rst!Wert)
    .ForeColor = lngSchriftfarbe1 'DLookup("Schriftfarbe1", "tbl_Optionen")
    '.FontBold = 0 'DLookup("Fett", "tbl_Status", "Wert=0")
    End With

    ' 'Sonderstatus2
    Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , "[" & "Item" & lngIndex & "] = " & rst!Wert & " and [" & "ItemSon" & lngIndex & "] = 2")

    With objFormatCondition
    .BackColor = DLookup("Farbe", "tbl_Status", "Wert=" & rst!Wert)
    .ForeColor = lngSchriftfarbe2 'DLookup("Schriftfarbe2", "tbl_Optionen")
    '.FontBold = 0 'DLookup("Fett", "tbl_Status", "Wert=0")
    End With

    'Sonderstatus3
    Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , "[" & "Item" & lngIndex & "] = " & rst!Wert & " and [" & "ItemSon" & lngIndex & "] = 3")

    With objFormatCondition
    .BackColor = DLookup("Farbe", "tbl_Status", "Wert=" & rst!Wert)
    .ForeColor = lngSchriftfarbe3 'DLookup("Schriftfarbe3", "tbl_Optionen")
    '.FontBold = 0 'DLookup("Fett", "tbl_Status", "Wert=0")
    End With
    End If

    'Normal
    Set objFormatCondition = ctl.FormatConditions.Add(acExpression, , "[" & "Item" & lngIndex & "] = " & rst!Wert & " and [" & "ItemSon" & lngIndex & "] = 0")

    With objFormatCondition
    .BackColor = DLookup("Farbe", "tbl_Status", "Wert=" & rst!Wert)
    End With

    If i <= 4 Then
    ctl.FormatConditions(0).Delete
    End If
    rst.MoveNext



    Loop
    End If
    Next ctl


    rst.Close
    Set rst = Nothing
    db.Close
    Set db = Nothing


    ' Form_frmPlan.RecordSource = "tblPlan2"
    ' Form_frmPlan.RecordSource = "tblPlan"
    Form_frmPlan.Visible = True
    Echo True
    DoCmd.Hourglass False

    sngDauer = Format(GetTickCount - sngStart, "##,##0")

    MsgBox "Dauer: " & Format(sngDauer / 86400000, "hh:mm:ss") & "," & sngDauer Mod 1000


    Exit Function
    Fehler:
    BedingteFormatierungMehrAls50 = False
    End Function
    Top of the page Bottom of the page


    Seite: < 28 29 30 31 32 33 ... 34 35 36 37 38 39 40 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)