Suche | Statistiken | Benutzerliste | Access-FAQ | Datenschutz         +++++ Access-Entwickler-Konferenz AEK - Nürnberg 28./29.9. - Hannover 12./13.10. +++++ Foren
donkarl Forum
donkarl Forum ->  Themen -> Access -> Diskussion ansehen

Du bist als Gast eingelogt. ( Anmelden | Registrieren )
  • 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
  • Access Stammtisch München am 13.12.2018 (Do)
  • StefanWirrer11.12.18 13:43
  • Steuerelemente durchlaufen
  • vBert06.12.18 20:07
       └ RE: Steuerelemente durchlaufen Gunter Avenius06.12.18 20:18
          └ RE: Steuerelemente durchlaufen vBert06.12.18 21:44
  • Access 2019 --> Ressourcebbedarf 32 bit
  • sks18.10.18 20:20
       └ RE: Access 2019 --> Ressourcebbedarf 32 bit Karl Donaubauer19.10.18 10:44
          └ RE: Access 2019 --> Ressourcebbedarf 32 bit sks19.10.18 12:30
       └ RE: Access 2019 --> Ressourcebbedarf 32 bit PhilS19.11.18 19:23
          └ RE: Access 2019 --> Ressourcebbedarf 32 bit sks20.11.18 08:44
             └ RE: Access 2019 --> Ressourcebbedarf 32 bit PhilS21.11.18 15:23
          └ RE: Access 2019 --> Ressourcebbedarf 32 bit Karl Donaubauer20.11.18 12:42
             └ RE: Access 2019 --> Ressourcebbedarf 32 bit sks20.11.18 14:10
                └ RE: Access 2019 --> Ressourcebbedarf 32 bit Karl Donaubauer20.11.18 14:24
                   └ RE: Access 2019 --> Ressourcebbedarf ... sks20.11.18 14:42
             └ RE: Access 2019 --> Ressourcebbedarf 32 bit PhilS21.11.18 15:41
                └ RE: Access 2019 --> Ressourcebbedarf 32 bit sks21.11.18 15:56
                   └ RE: Access 2019 --> Ressourcebbedarf ... PhilS22.11.18 08:45
                      └ RE: Access 2019 --> Ressourcebbedar... sks22.11.18 10:01
       └ RE: Access 2019 --> Ressourcebbedarf 32 bit Karl Donaubauer26.11.18 21:15
          └ RE: Access 2019 --> Ressourcebbedarf 32 bit sks27.11.18 10:01
  • Veränderung eines Registra-Eintrags in HKEY_LOCAL_...
  • hochlenert16.11.18 22:03
       └ RE: Veränderung eines Registra-Eintrags in HKEY_... sks18.11.18 09:46
       └ RE: Veränderung eines Registra-Eintrags in HKEY_... sks18.11.18 19:45
          └ RE: Veränderung eines Registra-Eintrags in HKE... hochlenert24.11.18 06:20
             └ RE: Veränderung eines Registra-Eintrags in H... sks24.11.18 10:03
  • Berechtigungsvergabe per VBA für neue Tabellen
  • micmen21.11.18 17:43
  • Einladung zum 33. Access-Stammtisch Hannover am 21...
  • KlausWerther20.11.18 23:45
  • Firmen 'Briefpapier' mittels Word - Verlin...
  • StefanWirrer19.11.18 15:30
       └ RE: Firmen 'Briefpapier' mittels Word - ... PeterDoering20.11.18 09:13
  • "Schreibkonflikt - Der Datensatz wurde seit B...
  • Marcus68511.11.18 08:58
       └ RE: "Schreibkonflikt - Der Datensatz wurde ... PeterDoering11.11.18 22:51
  • Inno Setup
  • pwakolbi03.11.18 14:13
       └ RE: Inno Setup PeterDoering03.11.18 23:58
       └ RE: Inno Setup sks10.11.18 10:24
          └ RE: Inno Setup pwakolbi11.11.18 16:54
  • Arbeitsweise einer Access-DB mit Front- u. Backend...
  • Deandl07.11.18 14:23
       └ RE: Arbeitsweise einer Access-DB mit Front- u. B... PeterDoering07.11.18 16:08
          └ RE: Arbeitsweise einer Access-DB mit Front- u.... Deandl08.11.18 11:28
  • Access Stammtisch München am 08.11.2018 (Do)
  • StefanWirrer06.11.18 16:31
    Strubli
    Gesendet: 20.12.18 19:22
    Betreff: RE: Access Formular bringt die Daten durcheinander


    Member

    Beiträge: 5

    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: < 1 2 3 4 5 6 7 8 9 10 11 ... >
    Suche in diesem Forum
    Druckfreundliche Version
    (Alle Cookies von dieser Seite löschen.)