![\"Die](\"..\/tl_files\/images\/pic_436_001.png\")
<\/a><\/p>\nBild 1: Die Funktion der Information-Klasse im Objekt-Katalog<\/p>\n
- \n
- Err<\/b>: Liefert ein Objekt des Typs ErrObject<\/b>, über dessen Eigenschaften Sie Informationen über den zuletzt aufgetretenen Fehler auslesen können.<\/li>\n
- IMEStatus<\/b>: Wird nur in fernöstlichen Versionen von Access genutzt.<\/li>\n
- IsArray<\/b>: Gibt mit einem Boolean<\/b>-Wert an, ob es sich bei der als Parameter übergebenen Variablen um ein Array handelt.<\/li>\n
- IsDate<\/b>: Die Funktion prüft, ob es sich bei dem mit dem Parameter übergebenen Wert um ein gültiges Datum handelt.<\/li>\n
- IsEmpty<\/b>: Diese Funktion prüft, ob eine Variant-Variable bereits durch Zuweisen eines Wertes initialisiert wurde.<\/li>\n
- IsError<\/b>: Die Funktion prüft, ob das Ergebnis einer Funktion ein mit der Funktion CVErr <\/b>erzeugtes Objekt des Typs Error <\/b>ist.<\/li>\n
- IsMissing<\/b>: Gibt an, ob ein optionaler Parameter einer Routine mit dem Datentyp Variant <\/b>beim Aufruf angegeben wurde.<\/li>\n
- IsNull<\/b>: Prüft, ob ein Ausdruck den Wert Null <\/b>hat.<\/li>\n
- IsNumeric<\/b>: Prüft, ob ein Ausdruck als Zahl interpretiert werden kann.<\/li>\n
- IsObject<\/b>: Gibt an, ob der Parameter ein Variant <\/b>mit dem Untertyp Objekt<\/b> ist.<\/li>\n
- QBColor<\/b>: Liefert Farbcodes für die Zahlen von 1 bis 15, die den wichtigsten Farben entsprechen.<\/li>\n
- RGB<\/b>: Ermittelt aus den Rot-, Grün- und Blau-Anteilen den VBA-Farbcode.<\/li>\n
- TypeName<\/b>:<\/li>\n
- VarType<\/b>:<\/li>\n<\/ul>\n
Die Funktion Err<\/h2>\n
Die Funktion Err <\/b>liefert ein Objekt des Typs ErrObject <\/b>zurück. Sie können damit Informationen über den Fehlerstatus unter VBA abfragen. ErrObject <\/b>enthält immer die Informationen über den zuletzt aufgetretenen Fehler, zum Beispiel die Fehlernummer und die Fehlerbeschreibung.<\/p>\n
ErrObject <\/b>hat als Standardeigenschaft die Eigenschaft Number<\/b>. Wenn Sie also einfach die Err<\/b>-Funktion aufrufen, liefert dies die Nummer des zuletzt aufgetretenen Fehlers. Im Direktbereich sieht das so aus, wenn seit Beginn der Session kein Fehler aufgetreten ist:<\/p>\n
Err\r\n 0<\/pre>\n
Das ErrObject<\/b>-Objekt speichert nur die Informationen über Fehler, die nicht über die eingebaute Fehlerbehandlung von Access behandelt werden. Wenn Sie also im Direktbereich etwa mit der folgenden Anweisung einen Fehler auslösen, erscheint die eingebaute Fehlermeldung mit dem Text Laufzeitfehler 11: Division durch Null<\/b>:<\/p>\n
1\/0<\/pre>\n
Die Funktion Err <\/b>liefert danach aber immer noch den Wert 0<\/b>. Err nimmt nur Fehlerinformationen auf, wenn sie vorher die eingebaute Fehlerbehandlung deaktivieren, beispielsweise mit der folgenden Anweisung:<\/p>\n
Public Sub <\/span>BeispielError()\r\n On Error Resume Next<\/span>\r\n Debug.Print<\/span> 1 \/ 0\r\n Debug.Print<\/span> Err.Number, Err.Description\r\nEnd Sub<\/span><\/pre>\nIm Direktfenster erscheint dann:<\/p>\n
11 Division durch Null<\/pre>\n
Das ErrObject<\/b>-Objekt hat die folgenden Methoden und Eigenschaften:<\/p>\n
- \n
- Clear<\/b>: Leert das ErrObject<\/b>-Objekt.<\/li>\n
- Description<\/b>: Liefert die Beschreibung des Fehlers.<\/li>\n
- Number<\/b>: Liefert die Nummer des Fehlers.<\/li>\n
- Source<\/b>: Gibt die Quelle des Fehlers an. In der Regel ist diese Eigenschaft leer, aber wenn Sie etwa mit der Raise<\/b>-Methode einen Fehler auslösen, können Sie dort einen Wert für Source <\/b>angeben.<\/li>\n
- Raise<\/b>: Löst den Fehler mit der angegebenen Nummer aus. Sie können dieser Methode unter anderem die Fehlernummer, eine Angabe der Quelle und die Beschreibung übergeben.<\/li>\n<\/ul>\n
IsArray<\/h2>\n
Wenn Sie prüfen möchten, ob eine Variable ein Array enthält, können Sie die IsArray<\/b>-Funktion verwenden. Die Funktion erwartet als Parameter den Namen der zu prüfenden Variablen.<\/p>\n
Warum aber sollte man diese Funktion benötigen Steht denn nicht immer fest, ob eine Variable ein Array ist oder nicht Nein, denn es kann sein, dass etwa beim Aufruf einer Funktion einem Variant<\/b>-Parameter entweder ein Array oder eine einfache Variable übergeben wird.<\/p>\n
In diesem Fall können Sie mit der Funktion IsArray <\/b>sicherstellen, ob es sich um ein Array handelt, bevor Sie etwa mit Funktionen wie UBound <\/b>oder LBound <\/b>auf die Variable zugreifen.<\/p>\n
Die folgende Funktion erwartet eine Variant<\/b>-Variable, der man sowohl einfache Variablen als auch Array-Variablen übergeben kann. Die Funktion prüft mit der IsArray<\/b>-Funktion, ob var <\/b>ein Array ist oder nicht. Im Falle eines Arrays durchläuft die Funktion alle Einträge des Arrays und gibt dessen Elemente im Direktbereich aus. Falls es sich um eine einfache Variable handelt, gibt sie einfach ihren Inhalt aus:<\/p>\n
Public Function <\/span>ArrayOderNicht(var As Variant<\/span>)\r\n Dim <\/span>i As Integer<\/span>\r\n If <\/span>IsArray(var) Then<\/span>\r\n For i = LBound<\/span>(var) To UBound<\/span>(var)\r\n Debug.Print<\/span> var(i)\r\n Next<\/span> i\r\n Else<\/span>\r\n Debug.Print<\/span> var\r\n End If<\/span>\r\nEnd Function<\/span><\/pre>\nWir testen die Funktion zuerst mit der folgenden Prozedur, die eine einfache Variable übergibt:<\/p>\n
Public Sub <\/span>ArrayOderNichtMitVariable()\r\n Dim <\/span>strTest As String<\/span>\r\n strTest = \"String-Variable\"\r\n ArrayOderNicht strTest\r\nEnd Sub<\/span><\/pre>\nDies gibt den Text String-Variable <\/b>im Direktbereich aus. Danach rufen wir die Funktion mit der folgenden Prozedur auf. Diese stellt ein Array mit drei Elementen zusammen und übergibt es an die Funktion ArrayOderNicht<\/b>:<\/p>\n
Public Sub <\/span>ArrayOderNichtMitArray()\r\n Dim <\/span>strArray(2) As String<\/span>\r\n strArray(0) = \"Wert 1\"\r\n strArray(1) = \"Wert 2\"\r\n strArray(2) = \"Wert 3\"\r\n ArrayOderNicht strArray\r\nEnd Sub<\/span><\/pre>\nIn diesem Fall erscheinen im Direktbereich die drei Einträge des Arrays:<\/p>\n
Wert 1\r\nWert 2\r\nWert 3<\/pre>\n
Die Funktion IsDate<\/h2>\n
Mit dieser Funktion prüfen Sie, ob es sich bei dem mit dem Parameter übergebenen Wert um einen gültigen Datumswert handelt. Dabei ist die Funktion sehr großzügig. Die folgenden Aufrufe zeigen, wie wir das meinen, denn sie liefern alle den Wert True<\/b> zurück:<\/p>\n
Debug.Print<\/span> IsDate(\"3\/20\/2019\")\r\nDebug.Print<\/span> IsDate(\"März 20\")\r\nDebug.Print<\/span> IsDate(\"20-3\")\r\nDebug.Print<\/span> IsDate(\"20\/3\/19\")\r\nDebug.Print<\/span> IsDate(\"3\/20\")\r\nDebug.Print<\/span> IsDate(\"20\/3\")<\/pre>\nUnd nun raten Sie mal, welches Datum all diese Datumsangaben liefern, wenn Sie diese mit der Funktion CDate <\/b>in das Standarddatumsformat konvertieren:<\/p>\n
Debug.Print<\/span> CDate(\"3\/20\/2019\")\r\nDebug.Print<\/span> CDate(\"März 20\")\r\nDebug.Print<\/span> CDate(\"20-3\")\r\nDebug.Print<\/span> CDate(\"20\/3\/19\")\r\nDebug.Print<\/span> CDate(\"3\/20\")\r\nDebug.Print<\/span> CDate(\"20\/3\")<\/pre>\nMöchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>
\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 - Description<\/b>: Liefert die Beschreibung des Fehlers.<\/li>\n
- IMEStatus<\/b>: Wird nur in fernöstlichen Versionen von Access genutzt.<\/li>\n