<\/p>\n
Diesmal gibt es drei Tipps rund um die Arbeit mit Microsoft Access – die haben es dafür aber auch in sich. Haben Sie sich auch schon mal geärgert, dass Sie ein Nachschlagefeld für ein Fremdschlüsselfeld in der Tabelle definiert haben und dann nur noch die verknüpften Daten, aber nicht mehr die enthaltenen Werte in der Tabelle vorgefunden haben Dann hilft Ihnen der erste Trick weiter, mit dem Sie diese Daten ohne änderung des Tabellenentwurfs wieder hervorzaubern. Der zweite Tipp dreht sich um das Hinzufügen von langen Texten zu Memofeldern. Dies gelingt in Formularen nur bis zu einer bestimmten Anzahl Zeichen. Wollen Sie trotzdem längere Texte einfügen, gehen Sie den hier beschriebenen Umweg über eine Textdatei. Im dritten Tipp erfahren Sie schließlich, wie Sie das VBA-Projekt der aktuellen Access-Datei referenzieren können.<\/b><\/p>\n
Werte von Nachschlagefeldern anzeigen<\/b><\/p>\n
Wenn Sie die Fremdschlüsselfelder Ihrer Tabellen gleich beim Erstellen als Nachschlagefelder definieren, sparen Sie eine Menge Arbeit: Erstens hilft der entsprechende Assistent schnell und zuverlässig, das Nachschlagefeld und auch die Beziehung zwischen den beteiligten Tabellen einzurichten. Und zweitens brauchen Sie solche Felder nur noch einfach in den Entwurf eines Formulars zu ziehen, um gleich ein praktisches Kombinationsfeld zur Auswahl der Daten der verknüpften Tabelle vorzufinden.<\/p>\n
Dummerweise erschweren Nachschlagefelder das Analysieren der Tabelleninhalte, wenn beispielsweise Daten einmal nicht so angelegt wurden, wie Sie es sich wünschten. Ein direkter Blick auf die in den Feldern gespeicherten Zahlenwerte statt der Anzeigewerte wie etwa Kategorien oder Lieferanten einer Artikeltabelle wäre hilfreich.<\/p>\n
Es ist jedoch kein Problem, eine solche Sicht herzustellen – und das ohne Anpassung des Entwurfs der betroffenen Tabelle. Sie brauchen einfach nur eine Abfrage auf Basis der Tabelle zu erstellen und für die Nachschlagefelder die Eigenschaft Steuerelement anzeigen <\/b>auf Textfeld <\/b>zu ändern (siehe Bild 1).<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2012_01\/TippsUndTricks-web-images\/pic001.png\")
<\/p>\n
Bild 1: Nachträgliches Deaktivieren eines Nachschlagefeldes<\/span><\/b><\/p>\n Schon zeigt die Abfrage die tatsächlichen Werte der Fremdschlüsselfelder statt der Werte der verknüpften Felder an (s. Bild 2).<\/p>\n Bild 3: Lange Texte lassen sich ab einer bestimmten Zeichenzahl nicht mehr in ein Memofeld kopieren.<\/span><\/b><\/p>\n <\/p>\n Große Texte in Memofelder einlesen<\/b><\/p>\n Memofelder nehmen zwar theoretisch bis zu 65.536 Zeichen auf. Wenn Sie diese jedoch aus der Zwischenablage einfügen möchten, ist die Anzahl der maximal möglichen Zeichen geringer. Überschreiben Sie diese Anzahl, erscheint die Fehlermeldung aus Bild 3.<\/p>\n Bild 2: Eine Abfrage legt die tatsächlichen Werte von als Nachschlagefeld eingerichteten Fremdschlüsselfeldern offen.<\/span><\/b><\/p>\n Was tun, wenn der Text trotzdem im Memofeld landen soll Wenn ein Formular zur Dateneingabe verwendet wird, was ja normalerweise der Fall ist, können Sie einfach eine Schaltfläche hinzufügen, die den Inhalt einer zuvor mit dem Text zu füllenden Datei einliest.<\/p>\n Im folgenden Fall geht die Prozedur davon aus, dass die Textdatei im gleichen Verzeichnis wie die Datenbank liegt, und zwar unter dem Namen Text.txt<\/b>:<\/p>\n Die Prozedur öffnet die Datei, liest den kompletten Text in die Variable strText <\/b>ein und schreibt deren Inhalt anschließend in das Textfeld.<\/p>\n Die tatsächliche Länge des über die Zwischenablage einfügbaren Textes scheint nicht genau festgelegt zu sein.<\/p>\n Aktuelles VBA-Projekt referenzieren<\/b><\/p>\n Wenn Sie mit Add-Ins programmieren, die änderungen am VBA-Projekt der Datenbank durchführen sollen, von der aus das Add-In aufgerufen wurde, haben Sie ein kleines Problem: Beim Starten von Add-Ins enthält die aktuelle Sitzung nämlich jeweils mehrere VBA-Projekte – mindestens das der Host-Datenbank und das der Add-In-Datenbank. Wie also soll man nun herausfinden, welches das Projekt der Host-Datenbank ist, um Module hinzuzufügen oder zu bearbeiten<\/p>\n Dies ist ganz einfach: Als Erstes fügen Sie den wahrscheinlich ohnehin benötigten Verweis auf die Bibliothek Microsoft Visual Basic for Applications Extensibility 5.3 <\/b>hinzu (s. Bild 4).<\/p>\n Bild 4: Hinzufügen eines Verweises auf die Bibliothek mit den VBE-Erweiterungen<\/span><\/b><\/p>\n Danach können Sie bereits die folgende Funktion in ein Standardmodul schreiben:<\/p>\n Die Prozedur prüft, welches der im VBA-Editor enthaltenen Projekte zur Host-Datenbank gehört, indem sie einfach alle VBA-Projekte durchläuft und den Pfad des VBA-Projekts mit dem der Host-Datenbank vergleicht. Sind beide gleich, haben wir das VBA-Projekt der Host-Datenbank gefunden.<\/p>\n Die Funktion gibt direkt den Verweis auf das entsprechende VBA-Projekt zurück, sodass Sie in der aufrufenden Prozedur gleich auf deren Eigenschaften zugreifen können. Dies sieht etwa so aus:<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2012_01\/TippsUndTricks-web-images\/pic003.png\")
<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2012_01\/TippsUndTricks-web-images\/pic002.png\")
<\/p>\nPrivate Sub cmdInhaltAusTextdatei_Click()\r\n Dim strText As String\r\n Dim strPfad As String\r\n strPfad = CurrentProject.Path & "\\Text.txt"\r\n Open strPfad For Input As #1\r\n strText = Input$(LOF(1), #1)\r\n Close #1\r\n Me!Inhalt = strText\r\nEnd Sub<\/pre>\n
![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2012_01\/TippsUndTricks-web-images\/pic004.png\")
<\/p>\nPublic Function GetCurrentVBProject() As VBProject\r\n Dim objVBProject As VBProject\r\n For Each objVBProject In VBE.VBProjects\r\n If objVBProject.FileName = CurrentProject.Path & "\\" & CurrentProject.Name Then\r\n Set GetCurrentVBProject = objVBProject\r\n Exit For\r\n End If\r\n Next objVBProject\r\nEnd Function<\/pre>\n
Debug.Print GetCurrentVBProject.FileName\r\nC:\\Daten\\Fachartikel\\AccessImUnternehmen\\2012\\01\\TippsUndTricks\\Datenbankinformationen.accdb<\/pre>\n