Daten in Arrays ausgeben (Access 2000)

16.12.2003

Daten einer Tabelle können schnell und problemlos mit VBA ausgelesen werden.

Es besteht die Möglichkeit, eine Tabelle, angelegt für Systemdaten (Grundeinstellungen), jederzeit und einfach innerhalb der Datenbankanwendung abrufbar zu machen. Die Tabelle soll in unserem Beispiel lediglich einen einzigen Datensatzeintrag mit 4 Feldnamen haben. (Datenbankpfad, Bildpfad, Mehrwertsteuer1, Mehrwertsteuer2)

Die ideale Lösung bietet in diesem Falle das Auslagern der Daten in Arrays. Mit wenigen Handgriffen ist mit ADO unter Access 2000 eine Verbindung zu der Herkunftstabelle aufgebaut. In unserem Falle nennen wir die Tabelle "tblGrundeinstellung". Über die nachfolgende Funktion weisen wir der Variable "fldresult" 3 Arrays zu. Diese werden dann mit den Tabellenwerten beschrieben.

ACHTUNG: Der erste Tabellenwert wird über die Spalte 0 ausgelesen!

Public Function Paths() As Variant

    Dim rs As Recordset
    Set rs = DBEngine(0).OpenRecordset("tblGrundeinstellung")
    
    Dim fldresult(2) As Variant
    
    fldresult(0) = rs.Fields(0).Value
    fldresult(1) = rs.Fields(1).Value
    fldresult(2) = rs.Fields(2).Value
    fldresult(3) = rs.Fields(3).Value
    
    Paths = fldresult
    rs.close

End Function

Nun können Sie wie nachfolgend aufgeführt die Arrays bequem anwenden.

Me.Datenbankpfad = paths(0)
Me.Bildpfad=paths(1)
Me.Mehrwertsteuer1=paths(2)
Me.Mehrwertsteuer2=paths(3)

Dienstleistungen

Als starker Partner an Ihrer Seite unterstützen wir Sie in folgenden Breichen:

Access-Programmierung

Benötigen Sie Unterstützung bei der Programmierung von Access-Anwendungen? Wir bieten die gesamte Bandbreite von der Access-Programmierung auf Stundenbasis bis zur Durchführung eines Software-Projektes als Auftragsarbeit an. Kontaktieren Sie uns für ein kostenloses Erstgespräch.

Software-Beratung

Haben Sie ein Software-Projekt und Sie wissen nicht, ob Access die richtige Plattform ist? Wir haben über 20 Jahre Erfahrung beim Erstellen von Windows-, Web und mobilen Anwendungen. Kontaktieren Sie uns für eine kostenlose Erstberatung.