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

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • Report mit Dubletten
  • Dreho5201.02.19 15:42
       └ RE: Report mit Dubletten PeterDoering08.02.19 12:39
          └ RE: Report mit Dubletten Dreho5210.02.19 12:27
  • txt aus Unix-System in Access-Tabelle einlesen
  • Carsten Ganswig21.01.19 16:59
       └ RE: txt aus Unix-System in Access-Tabelle einles... PeterDoering24.01.19 15:20
          └ RE: txt aus Unix-System in Access-Tabelle einl... Carsten Ganswig24.01.19 15:34
             └ RE: txt aus Unix-System in Access-Tabelle ei... PeterDoering24.01.19 15:54
                └ RE: txt aus Unix-System in Access-Tabelle ... Carsten Ganswig24.01.19 16:11
                   └ RE: txt aus Unix-System in Access-Tabell... Carsten Ganswig25.01.19 11:21
                      └ RE: txt aus Unix-System in Access-Tabe... PeterDoering26.01.19 12:27
                         └ RE: txt aus Unix-System in Access-Ta... Carsten Ganswig26.01.19 12:52
                            └ RE: txt aus Unix-System in Access-... Carsten Ganswig28.01.19 08:26
                               └ RE: txt aus Unix-System in Acces... PeterDoering01.02.19 13:48
                                  └ RE: txt aus Unix-System in Acc... Carsten Ganswig02.02.19 09:37
                                     └ RE: txt aus Unix-System in A... PeterDoering08.02.19 11:25
  • Unionsabfrage "unterschlägt doppel"
  • Dreho5201.02.19 12:20
       └ RE: Unionsabfrage "unterschlägt doppel" PeterDoering01.02.19 13:30
  • Probleme beim Erstellen von umsortierten Tabellen
  • Carsten Ganswig21.01.19 17:15
       └ RE: Probleme beim Erstellen von umsortierten Tab... Marzer22.01.19 09:15
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig22.01.19 10:15
             └ RE: Probleme beim Erstellen von umsortierten... Marzer23.01.19 08:10
       └ RE: Probleme beim Erstellen von umsortierten Tab... sks23.01.19 20:44
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig24.01.19 12:29
             └ RE: Probleme beim Erstellen von umsortierten... Carsten Ganswig24.01.19 13:09
             └ RE: Probleme beim Erstellen von umsortierten... sks24.01.19 13:25
          └ RE: Probleme beim Erstellen von umsortierten T... Carsten Ganswig24.01.19 13:49
             └ RE: Probleme beim Erstellen von umsortierten... sks24.01.19 14:00
                └ RE: Probleme beim Erstellen von umsortiert... Carsten Ganswig24.01.19 15:24
  • Access-Stammtisch Rhein-Main 2019
  • Martin Asal22.01.19 20:33
  • MS-SQL zu Access
  • Marzer03.12.18 18:38
       └ RE: MS-SQL zu Access PeterDoering03.12.18 19:15
          └ RE: MS-SQL zu Access Marzer04.12.18 13:54
             └ RE: MS-SQL zu Access PeterDoering05.12.18 13:34
       └ RE: MS-SQL zu Access Karl Donaubauer05.12.18 18:47
          └ RE: MS-SQL zu Access Marzer06.12.18 10:01
          └ RE: MS-SQL zu Access Marzer20.01.19 15:10
  • jro.CompactDatabase (ADO) löscht Tabellen
  • Jagger11.01.19 21:37
       └ RE: jro.CompactDatabase (ADO) löscht Tabellen Jagger12.01.19 12:19
          └ RE: jro.CompactDatabase (ADO) löscht Tabellen Kontex13.01.19 11:00
             └ RE: jro.CompactDatabase (ADO) löscht Tabellen sks14.01.19 12:32
             └ RE: jro.CompactDatabase (ADO) löscht Tabellen PeterDoering17.01.19 15:13
                └ RE: jro.CompactDatabase (ADO) löscht Tabellen sks17.01.19 20:12
  • Web Control
  • Marzer17.01.19 10:57
  • Microsoft Office Desktop Apps
  • sks11.01.19 19:40
  • Union Query
  • Marzer08.01.19 22:34
       └ RE: Union Query PeterDoering09.01.19 01:04
          └ RE: Union Query Marzer09.01.19 17:46
       └ RE: Union Query sks09.01.19 15:06
          └ RE: Union Query Marzer09.01.19 17:36
             └ RE: Union Query sks11.01.19 19:20
  • Access Stammtisch München am 10.01.2019 (Do)
  • StefanWirrer08.01.19 14:00
  • Umstellung 32-Bit-Anwendung auf 64-Bit
  • waholin31.12.18 16:56
       └ RE: Umstellung 32-Bit-Anwendung auf 64-Bit PeterDoering31.12.18 17:45
          └ RE: Umstellung 32-Bit-Anwendung auf 64-Bit waholin01.01.19 12:03
  • Angebliches Verweisproblem
  • Matthias31.12.18 18:15
  • Access Formular bringt die Daten durcheinander
  • Strubli19.12.18 23:54
       └ RE: Access Formular bringt die Daten durcheinand... PeterDoering20.12.18 12:01
          └ RE: Access Formular bringt die Daten durcheina... Strubli20.12.18 17:09
             └ RE: Access Formular bringt die Daten durchei... PeterDoering20.12.18 17:37
                └ RE: Access Formular bringt die Daten du... Strubli20.12.18 19:22
             └ RE: Access Formular bringt die Daten durchei... Strubli20.12.18 23:13
                └ RE: Access Formular bringt die Daten durch... Strubli21.12.18 01:04
                   └ RE: Access Formular bringt die Daten dur... PeterDoering21.12.18 22:08
  • Die nächste Hiobsbotschaft
  • Matthias17.12.18 20:02
       └ RE: Die nächste Hiobsbotschaft sks19.12.18 12:38
    Strubli
    Gesendet: 20.12.18 19:22
    Betreff: RE: Access Formular bringt die Daten durcheinander


    Member

    Beiträge: 8

    Hallo Peter

    Danke für die ersten Rückmeldungen.

    Die Abfrage qry_lkup_Controllingampel sieht wie folgt aus
    -----------------------------------
    SELECT
    tblEinstellungen.[ID],
    tblEinstellungen.[strArt],
    tblEinstellungen.[strBez],
    tblEinstellungen.[strBezSpezial],
    tblEinstellungen.[lngEbene]
    FROM tblEinstellungen
    WHERE (((tblEinstellungen.[strArt])="Controllingampel"));
    ------------------------------------

    und die Funktion mergeMassin1Field sieht wie folgt aus:
    ------------------------------------------------
    Public Function mergeMassin1Field(lngProID As Long, lngKatId As Long)
    'lngProID = Projektnr.
    'lngKatId = Link auf Kategorie
    'Anhand der Projektnr. und dem Link auf die Kategorie (Controlling-ID) werden alle darin befindlichen Datensätze in ein Feld geschrieben.

    Dim rs As DAO.Recordset 'recordset für Massnahmen
    Dim strSQL As String 'Aufnahme SQL-Code
    Dim strTmp As String 'temporärer MergeString


    'SQL-Abfrage füllen
    strSQL = "SELECT tblMassnahmen.strMassKurz, tblMassnahmen.lngProjekt, tblMassnahmen.lngCont, tblMassnahmen.boolMFertig " & _
    "FROM tblMassnahmen " & _
    "WHERE (((tblMassnahmen.lngProjekt)=" & lngProID & ") AND ((tblMassnahmen.lngCont)=" & lngKatId & "));"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount = 0 Then
    strTmp = ""
    Else
    strTmp = ""
    rs.MoveFirst
    Do While Not rs.EOF
    If rs.Fields("boolMFertig") = True Then
    strTmp = strTmp & ChrW(9746) & " "
    Else
    strTmp = strTmp & ChrW(9744) & " "
    End If
    strTmp = strTmp & rs.Fields("strMasskurz") & vbCrLf
    rs.MoveNext
    Loop
    End If

    Set rs = Nothing
    mergeMassin1Field = strTmp

    End Function
    -----------------------------------------------------------------------

    und die andere Funktion, welche mit get_strEinstellungswert("Controllingtermin") aufgerufen wird, sieht wie folgt aus:
    ----------------------------------------------------------------------
    Public Function get_strEinstellungswert(strWert As String, Optional varDetail As Variant, Optional boolWert2 As Boolean) As Variant
    'Auslesen eines Wertes aus den Einstellungen
    'strWert = Angabe, welcher Wertebereich ausgelesen werden soll
    'VarDetail = Angabe, welcher Detailwert aus der Werteliste ausgelesen werden soll. Die Angabe ist optional
    'boolWert2 = Wenn 2. Wert ausgelesen werden soll = True, sonst False oder leer

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Set db = CurrentDb
    Dim strSQL As String

    If IsError(varDetail) Then
    strSQL = "SELECT tblEinstellungen.[ID], " & _
    "tblEinstellungen.[strArt], tblEinstellungen.[strBez], " & _
    "tblEinstellungen.[strBezSpezial], tblEinstellungen.[lngEbene] " & _
    "FROM tblEinstellungen " & _
    "WHERE ((tblEinstellungen.[strArt])='" & strWert & "');"
    Else
    strSQL = "SELECT tblEinstellungen.[ID], " & _
    "tblEinstellungen.[strArt], tblEinstellungen.[strBez], " & _
    "tblEinstellungen.[strBezSpezial], tblEinstellungen.[lngEbene] " & _
    "FROM tblEinstellungen " & _
    "WHERE (((tblEinstellungen.[strArt])='" & strWert & "') AND ((tblEinstellungen.[lngEbene])=" & varDetail & "));"
    End If
    Set rs = db.OpenRecordset(strSQL)
    If rs.RecordCount = 0 Then
    get_strEinstellungswert = "Null"
    Else
    rs.MoveFirst
    If boolWert2 Then
    get_strEinstellungswert = rs.Fields("strBezSpezial")
    Else
    get_strEinstellungswert = rs.Fields("strBez")
    End If
    End If
    Set db = Nothing
    End Function
    -----------------------------------------------------


    Die Tabelle tblEinstellungen enthält globale Einstellungen, mit denen ich verschiedene Funktionen steuere. Im vorliegenden Fall relevant:
    ------------------------------------------------------------------------------------------------
    ID ----- strArt -------------- strBez -- strBezSpezial -- lngEbene - strBem
    19 ----- Controllingtermin --- 4 ------- ---------------- 0 -------- ID-Wert der letzten Controllingperiode. Dieser Wert wird per Code aus- und eingelesen und sollte daher nicht manuell verändert werden.
    20 ----- Controllingampel ---- grün ---- 4697456 -------- 1 -------- "Ampelwert ""grün"" - gut"
    21 ----- Controllingampel ---- gelb ---- 62207 ---------- 2 -------- "Ampelwert ""gelb"" - Achtung"
    22 ----- Controllingampel ---- rot ----- 2366701 -------- 3 -------- "Ampelwert ""rot"" - kritisch"
    ---------------------------------------------------------------------------------------------------

    Ich hoffe, du kannst mit diesen Informationen etwas anfangen.

    Besten Dank
    Gruss
    Daniel
    Top of the page Bottom of the page


    Seite: < 20 21 22 23 24 25 ... 26 27 28 29 30 31 32 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)