none
Reports im Listenfeld einlesen - Sortiert nach Namen

    Frage

  • Hallo

    Ich lese wie folgt meine Berichte in ein Listenfeld ein

    Dim accObj As AccessObject

        For Each accObj In CurrentProject.AllReports

    Me!lbxSelectReport.AddItem accObj.Name

        Next

    nur möchte ich diese im Listenfeld nach Berichtsnamen sortiert haben

    kann ich das nach dem einlesen sortieren oder denke ich da zu einfach.

     

    Dienstag, 29. März 2011 16:28

Antworten

  • Hi,

     

    so hier sollte es am besten gehen :)

    Dim rst As DAO.Recordset
    Dim db As DAO.Database

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT [Name] FROM MSysObjects WHERE [Type] = -32764 ORDER BY [Name]")

    Do Until rst.EOF = True
        Me.Liste0.AddItem (rst![Name])
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
    Set db = Nothing


    Cheers, Jörn Bosse
    Microsoft Studentpartner
    Dienstag, 29. März 2011 18:00
  • Hallo,
     
    Am 29.03.2011 18:28, schrieb MCDPone:
    > Hallo
    >
    > Ich lese wie folgt meine Berichte in ein Listenfeld ein
    >...
    >
    > nur möchte ich diese im Listenfeld nach Berichtsnamen sortiert haben
    >
    > kann ich das nach dem einlesen sortieren oder denke ich da zu einfach.
     
    klar kannst Du die Daten nach dem Einlesen sortieren. Dazu liest Du die
    Namen der Berichte in ein Array ein. Dieses kannst Du dann sortieren
    lassen. Dabei kann Dir das WizHook-Objekt behilflich sein:
    Die Werte aus dem sortierten Array weist Du dann dem Listenfeld per
    AddItem zu.
     
    HTH
    --
    Thomas
     
    Homepage: www.Team-Moeller.de
     
    Mittwoch, 30. März 2011 05:57

Alle Antworten

  • Hi,

     

    so hier sollte es am besten gehen :)

    Dim rst As DAO.Recordset
    Dim db As DAO.Database

    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT [Name] FROM MSysObjects WHERE [Type] = -32764 ORDER BY [Name]")

    Do Until rst.EOF = True
        Me.Liste0.AddItem (rst![Name])
        rst.MoveNext
    Loop

    rst.Close
    Set rst = Nothing
    Set db = Nothing


    Cheers, Jörn Bosse
    Microsoft Studentpartner
    Dienstag, 29. März 2011 18:00
  • Hallo,
     
    Am 29.03.2011 18:28, schrieb MCDPone:
    > Hallo
    >
    > Ich lese wie folgt meine Berichte in ein Listenfeld ein
    >...
    >
    > nur möchte ich diese im Listenfeld nach Berichtsnamen sortiert haben
    >
    > kann ich das nach dem einlesen sortieren oder denke ich da zu einfach.
     
    klar kannst Du die Daten nach dem Einlesen sortieren. Dazu liest Du die
    Namen der Berichte in ein Array ein. Dieses kannst Du dann sortieren
    lassen. Dabei kann Dir das WizHook-Objekt behilflich sein:
    Die Werte aus dem sortierten Array weist Du dann dem Listenfeld per
    AddItem zu.
     
    HTH
    --
    Thomas
     
    Homepage: www.Team-Moeller.de
     
    Mittwoch, 30. März 2011 05:57