{"id":55000950,"date":"2014-10-01T00:00:00","date_gmt":"2021-02-11T21:28:20","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=950"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Tabellen_per_IntelliSense","status":"publish","type":"post","link":"https:\/\/access-im-unternehmen.de\/Tabellen_per_IntelliSense\/","title":{"rendered":"Tabellen per IntelliSense"},"content":{"rendered":"

\"\"<\/p>\n

Wenn Sie mit dem VBA-Editor arbeiten und dort gelegentlich SQL-Anweisungen eingeben, müssen Sie die Namen der verwendeten Tabellen, Abfragen und Felder entweder kennen oder immer wieder zum Access-Fenster wechseln, um die Tabellen zu öffnen und die fehlenden Informationen nachzuschlagen. Dies können Sie mit dem hier beschriebenen Vorgehen in Zukunft wesentlich vereinfachen! Dabei können Sie die Techniken entweder nur zur Vereinfachung beim Zusammensetzen von SQL-Anweisungen verwenden oder direkt den Zugriff auf Ihre Daten damit organisieren.<\/b><\/p>\n

Problem: Unkomfortable Dateneingabe<\/b><\/p>\n

Wenn Sie beispielsweise eine Datensatzgruppe erstellen wollen, welche die Felder ArtikelID <\/b>und Artikelname <\/b>liefern soll, verwenden Sie eine Anweisung wie die folgende (rst <\/b>muss als DAO.Recordset<\/b>, db <\/b>als DAO.Database <\/b>deklariert sein):<\/p>\n

Set<\/span> rst = db.OpenRecordset(\"SELECT tblArtikel.ArtikelID, " _\r\n    & "tblArtikel.Artikelname FROM tblArtikel\", dbOpenDynaset)<\/pre>\n
Oder nehmen wir an, Sie möchten eine Aktualisierungsabfrage ausführen, die den Einzelpreis eines Artikels anpasst. Dann verwenden Sie, die Deklaration einer Database<\/b>-Variable namens db <\/b>vorausgesetzt, etwa diese Anweisung:<\/p>\n
db.Execute \"UPDATE tblArtikel SET tblArtikel.Einzelpreis = 10 " _\r\n    & "WHERE tblArtikel.Artikelname  LIKE ''Chai''\"<\/pre>\n
Die Lösung: IntelliSense!<\/b><\/p>\n
Wie wäre es denn, wenn Sie die SQL-Anweisung mit IntelliSense-Unterstützung erstellen könnten Dies könnten Sie wie in Bild 1 vom Direktfenster aus erledigen oder auch direkt im Codefenster.<\/p>\n
\"Auswahl<\/p>\n
Bild 1: Auswahl der Tabelle per IntelliSense …<\/span><\/b><\/p>\n
Dazu geben Sie einfach nur die ersten Zeichen des gesuchten Tabellennamens ein und betätigen dann die Tastenkombination für IntelliSense, nämlich Umschalt + Leertaste<\/b>.<\/p>\n
Und es kommt noch besser: Wenn Sie den Tabellennamen eingegeben haben und einen Punkt hinzufügen, zeigt IntelliSense alle Feldnamen an – s. Bild 2<\/p>\n
\"...<\/p>\n
Bild 2: … und auch die Feldnamen stehen zur Verfügung!<\/span><\/b><\/p>\n
Den so zusammengestellten SQL-Ausdruck müssen Sie nur noch mit vorangehendem<\/p>\n
db.Open-Recordset(\"...\", dbOpenDynaset) <\/pre>\n
ausstatten, schon ist die SQL-Anweisung fertig.<\/p>\n
Wie es funktioniert<\/b><\/p>\n
Wie funktioniert das Ganze Nun: Wir haben für die Tabelle tblArtikel <\/b>eine gleichnamige Klasse erstellt. Diese enthält beispielsweise einige Property Get<\/b>-Anweisungen, welche zwar noch Code enthalten, den wir weiter unten erläutern.<\/p>\n
Der primäre Zweck allerdings ist, die Namen der Felder als Eigenschaften zur Verfügung zu stellen, damit diese per IntelliSense ausgewählt werden können:<\/p>\n
Public Property Get <\/span>ArtikelID()\r\n     ArtikelID = rst!ArtikelID\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Artikelname()\r\n     Artikelname = rst!Artikelname\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>LieferantID()\r\n     LieferantID = rst!LieferantID\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>KategorieID()\r\n     KategorieID = rst!KategorieID\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Liefereinheit()\r\n     Liefereinheit = rst!Liefereinheit\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Einzelpreis()\r\n     Einzelpreis = rst!Einzelpreis\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Lagerbestand()\r\n     Lagerbestand = rst!Lagerbestand\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>BestellteEinheiten()\r\n     BestellteEinheiten = _\r\n         rst!BestellteEinheiten\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Mindestbestand()\r\n     Mindestbestand = rst!Mindestbestand\r\nEnd Property<\/span>\r\nPublic Property Get <\/span>Auslaufartikel()\r\n     Auslaufartikel = rst!Auslaufartikel\r\nEnd Property<\/span><\/pre>\n
Das erklärt, warum nach Eingabe des Punktes die einzelnen Feldnamen angezeigt werden – es handelt sich schlicht um Property Get<\/b>-Eigenschaften, wie sie in der Klassenprogrammierung verwendet werden. Aber warum können wir einfach so die Klassennamen wie tblArtikel <\/b>per IntelliSense nutzen Dies gelingt bei herkömmlichen Klassen nicht.<\/p>\n
Wir haben an dieser Stelle einen kleinen Trick angewendet, der die Klasse ohne Instanzierung ausführbar macht. Dadurch erscheint auch der Klassenname direkt in der IntelliSense-Liste. Wie dies genau gelingt, erläutern wir weiter unten.<\/p>\n
tblArtikel statt rst<\/b><\/p>\n
Neben der Verwendung von IntelliSense haben wir noch ein cooles Feature zu der Klasse hinzugefügt. Damit können Sie nun direkt über den Tabellennamen auf die enthaltenen Daten zugreifen statt erst ein Recordset erstellen zu müssen. Das sieht dann etwa wie folgt aus:<\/p>\n
Public Sub <\/span>Test()\r\n     With<\/span> tblArtikel\r\n         Do While<\/span> Not<\/span> .EOF\r\n             Debug.Print<\/span>  .ArtikelID, .Artikelname\r\n             .MoveNext<\/span>\r\n         Loop<\/span>\r\n     End With<\/span>\r\nEnd Sub<\/span><\/pre>\n
Sie können also einfach etwa in einer Do While<\/b>-Schleife auf die Eigenschaft EOF <\/b>der Klasse tblArtikel <\/b>zugreifen, ohne diese zuvor als Recordset deklarieren und  füllen zu müssen.<\/p>\n
Neben den einzelnen Feldern stehen auch noch ein paar weitere Methoden und Eigenschaften wie MoveFirst<\/b>, MoveLast<\/b>, MovePrevious, MoveNext <\/b>oder auch FindFirst <\/b>zur Verfügung. All dies erreichen wir durch entsprechende Methoden in der Klasse, die so wie in Listing 1 aussehen.<\/p>\n
Dim <\/span>db As <\/span>DAO.Database\r\nDim <\/span>rst As <\/span>DAO.Recordset\r\nPrivate Sub <\/span>Class_Initialize()\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel\", dbOpenDynaset)\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>FindFirst(strFilter As String<\/span>)\r\n     rst.FindFirst strFilter\r\nEnd Sub<\/span>\r\nPublic Function <\/span>FindFirstX(strFilter As String<\/span>) As <\/span>tblArtikel\r\n     Dim <\/span>objX As <\/span>tblArtikel\r\n     Set<\/span> objX = New<\/span> tblArtikel\r\n     objX.FindFirst strFilter\r\n     Set<\/span> FindFirstX = objX\r\nEnd Function<\/span>\r\nPublic Sub <\/span>MoveNext()\r\n     rst.MoveNext<\/span>\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>MovePrevious()\r\n     rst.MovePrevious\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>MoveFirst()\r\n     rst.MoveFirst\r\nEnd Sub<\/span>\r\nPublic Sub <\/span>MoveLast()\r\n     rst.MoveLast\r\nEnd Sub<\/span>\r\nPublic Function <\/span>Count() As Long<\/span>\r\n     Dim <\/span>var As Variant<\/span>\r\n     var = rst.Bookmark\r\n     rst.MoveLast\r\n     Count = rst.RecordCount\r\n     rst.MoveFirst\r\n     rst.Bookmark = var\r\nEnd Function<\/span>\r\nPublic Function <\/span>Filter(strFilter As String<\/span>)\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel WHERE \" _\r\n         & strFilter, dbOpenDynaset)\r\nEnd Function<\/span>\r\nPublic Sub <\/span>ClearFilter()\r\n     Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblArtikel\", dbOpenDynaset)\r\nEnd Sub<\/span>\r\nPublic Function <\/span>EOF() As Boolean<\/span>\r\n     EOF = rst.EOF\r\nEnd Function<\/span>\r\nPublic Function <\/span>BOF() As Boolean<\/span>\r\n     BOF = rst.BOF\r\nEnd Function<\/span><\/pre>\n
Listing 1: Elemente der Klasse tblArtikel<\/span><\/b><\/p>\n
Die Klasse erstellt also direkt beim Initialisieren ein Database<\/b>-Objekt und ein Recordset<\/b>-Objekt mit allen Datensätzen der Tabelle. über die Methoden und Eigenschaften können Sie dann genau wie bei einem Recordset<\/b>-Objekt auf die Tabelle zugreifen.<\/p>\n
Für jede Tabellenklasse stehen dann die folgenden Eigenschaften, Methoden und Funktionen zur Verfügung:<\/p>\n