GetSetting<\/b> liest einen Registry-Wert aus, GetAllSettings<\/b> liest alle Werte eines Schlüssels auf einmal, SaveSetting<\/b> schreibt einen Wert in die Registry, und DeleteSetting<\/b> löscht einen solchen wieder. Der Haken an der Sache ist, dass all diese Methoden nur einen ganz kleinen reservierten Bereich der Registry ansprechen können, nämlich den Schlüssel <\/p>\n Unterhalb dieses Schlüssels kann man walten, wie man will, aber von allen anderen Bereichen der Registry ist man ausgesperrt. Dass dieser Schlüssel unter HKEY_CURRENT_USER<\/b> liegt, ist nicht verwunderlich, denn für alle anderen Root-Schlüssel benötigt man schreibend Administratorrechte – und Access wird normalerweise nicht mit diesen Rechten gestartet.<\/p>\n Die Schlüsselstruktur unterhalb dieses Hauptschlüssels ist immer dieselbe. Sie wird in Bild 1 ersichtlich. Dort ist ein Zweig abgebildet, der über die Routinen der Beispieldatenbank erstellt wurde. AB_Registry<\/b> als Unterschlüssel ist quasi der Generalschlüssel und Anwendungsname, und darunter kann ein oder können mehrere Bereichsschlüssel liegen. Im Beispiel ist es nur einer mit dem Namen General<\/b>. Werte können außerdem nur im untersten Schlüssel gespeichert werden, also nicht etwa unter AB_Registry<\/b>. Sie können eine beliebige Anzahl von Werten unterbringen. Bei größerem Umfang ist der übersicht halber aber die Anlage mehrerer Unterschlüssel überlegenswert. Zum General<\/b>-Schlüssel könnte etwa noch ein Printer<\/b>-Schlüssel kommen, der Werte für die Steuerung von Druckern aufnähme.<\/p>\n Bild 1: Der von VBA aus zugängliche Bereich der Registry<\/p>\n Wie kommt nun der Test-Eintrag zustande Die Syntax der Code-Zeile sieht so aus:<\/p>\n Als Parameter werden also Hauptschlüssel, Unterschlüssel, Wertname und Wert übergeben. Die Schlüssel müssen zuvor nicht erst angelegt worden sein, wie das etwa bei Routinen, die das Windows-API benutzen, der Fall ist. Die SaveSetting<\/b>-Anweisung macht alles auf einen Schlag: Hauptschlüssel, Unterschlüssel anlegen, Wert speichern. Als Wert können Sie einen beliebigen Variant-Typ übergeben und das selbstredend auch über eine Variable. Erlaubt sind alle Standarddatentypen, nicht jedoch Arrays oder Objekte. Es spielt keine Rolle, welchen Datentyp Sie verwenden, denn alle werden automatisch in Strings verwandelt. In Bild 1 wird das aus der Typ-Spalte des Editors ersichtlich, wo alle Werte als REG_SZ<\/b> aufgeführt sind, dem Pendant zu vbString<\/b>. <\/p>\n Mit GetSetting<\/b> lesen Sie den Wert über diese Syntax aus:<\/p>\n Die Parameter sind also Hauptschlüssel, Unterschlüssel, Wertname, und die Rückgabe ist immer vom Typ String<\/b>. Ganz hinten können Sie optional noch einen weiteren Parameter anschließen. Das ist ein Wert, der immer dann als Resultat der Funktion zurückgegeben wird, wenn entweder der Registry-Wert leer ist, der Wertname nicht existiert, oder es den Schlüssel selbst nicht gibt. VBA löst nämlich keine Fehler aus, wenn die Namensparameter ungültig sind!<\/p>\n Im Modul mdlRegistryBeispiele<\/b> der Beispieldatenbank finden Sie mehrere Prozeduren, die den Umgang mit den vier VBA-Methoden vereinfachen. Einen Ausschnitt daraus zeigt Listing 1. Statt etwa GetSetting<\/b> immer mit allen fünf Parametern bestücken zu müssen, nehmen Sie einfach die kürzere Variante SaveVarToRegistry<\/b>, welche nur einen Parameter erwartet: den Wertnamen.<\/p>\n Listing 1: Ausschnitt aus dem Modul zum Bearbeiten von Registry-Werten<\/p>\n Die Prozedur enthält nur eine Zeile mit der GetSetting<\/b>-Funktion, der ihrerseits als Parameter aber zwei Konstanten übergeben werden, die oben im Kopf des Moduls global deklariert wurden: die Namen der Haupt- und Unterschlüssel. Denn diese dürften für die Datenbank konstant bleiben. Wenn Sie das Modul in eine andere Datenbank importieren, so ändern Sie dort nur diese zwei Konstanten. Das erspart Ihnen, überall im Code die Schlüsselnamen neu manuell einzufügen.<\/p>\n Die weiteren drei Prozeduren des Moduls arbeiten ähnlich und sind wohl selbsterklärend. Lediglich der GetVarsFromRegistry<\/b> wäre gesonderte Aufmerksamkeit zu schenken. Sie verwendet die GetAllSettings<\/b>-Funktion von VBA. Die Rückgabe ist ein Variant. Was sich hinter dieser Rückgabe verbirgt, macht die Prozedur TestGetAllVars <\/b>deutlich:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>HKEY_CURRENT_USER\\Software\\\r\n VB and VBA Program Settings<\/pre>\n
![\"Der](\"..\/tl_files\/images\/Registry_EditorVBA.png\")
<\/a><\/p>\nSaveSetting \"AB_Registry\", \"General\", \"Test0\", \"Sascha\"<\/pre>\n
GetSetting (\"AB_Registry\", \"General\", \"Test0\", \"nix\")<\/pre>\n
Public <\/span>Const cMainRegKey = \"AB_Registry\"\r\nPublic <\/span>Const cSubRegKey = \"General\"\r\nSub <\/span>SaveVarToRegistry(ByVal KeyName As String<\/span>, Value As Variant<\/span>)\r\n SaveSetting cMainRegKey, cSubRegKey, KeyName, Value\r\nEnd Sub<\/span>\r\nFunction <\/span>GetVarFromRegistry(ByVal KeyName) As Variant<\/span>\r\n GetVarFromRegistry = GetSetting(cMainRegKey, _\r\n cSubRegKey, KeyName, \"LEER\")\r\nEnd Function<\/span>\r\nSub <\/span>RemoveVarFromRegistry(ByVal KeyName As String<\/span>)\r\n DeleteSetting cMainRegKey, cSubRegKey, KeyName\r\nEnd Sub<\/span>\r\nFunction <\/span>GetVarsFromRegistry() As Variant<\/span>\r\n GetVarsFromRegistry = GetAllSettings(cMainRegKey, _\r\n cSubRegKey)\r\nEnd Function<\/span><\/pre>\nSub <\/span>TestGetAllVars()\r\nDim <\/span>i As Long<\/span>\r\nDim <\/span>V As Variant<\/span>\r\nV = GetVarsFromRegistry\r\nFor i = 0 To UBound<\/span>(V, 1)\r\n Debug.Print<\/span> _\r\n V(i, 0) & \" = \" & V(i, 1)\r\nNext<\/span> i\r\nEnd Sub<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t