{"id":55000194,"date":"2013-06-01T00:00:00","date_gmt":"2020-01-24T15:58:50","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=194"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"Debugging_im_VBAEditor_Teil_2","status":"publish","type":"post","link":"https:\/\/access-basics.de\/index.php\/Debugging_im_VBAEditor_Teil_2.html","title":{"rendered":"Debugging im VBA-Editor, Teil 2"},"content":{"rendered":"

Nachdem Sie im ersten Teil dieser Artikelreihe einige codebasierten Debugging-Techniken kennengelernt haben, schauen wir uns in diesem Teil weitere VBA-gesteuerte Features an. Außerdem werfen wir einen Blick auf die Tools, die der VBA-Editor uns zum Debuggen bietet. Dazu gehören beispielsweise das Lokalfenster und die überwachungen.<\/p>\n

Anhalten bei bestimmtem Wert<\/h2>\n

Wenn Sie eine Stelle im Code zur Laufzeit untersuchen möchten, fügen Sie dort entweder einen Haltepunkt oder die Stop-Anweisung ein. Beides hält den Code bei jedem Erreichen der entsprechenden Stelle an.<\/p>\n

Manchmal wird die betroffene Codestelle jedoch sehr oft durchlaufen, sodass der Code entsprechend oft angehalten und beispielsweise die Variablen untersucht werden müssen. In vielen Fällen wissen Sie jedoch, dass ein Problem nur unter bestimmten Bedingungen auftaucht. So könnte es sein, dass Sie in einer Schleife alle Datensätze der Tabelle tblArtikel <\/b>durchlaufen, aber schon wissen, dass ein Problem nur bei einem bestimmten Datensatz auftaucht.<\/p>\n

Wenn Sie wissen, dass ein Problem immer in Zusammenhang mit dem Datensatz mit dem Wert 20 <\/b>im Feld ArtikelID <\/b>auftaucht, können Sie gezielt einen Haltepunkt setzen. Damit dieser auch nur für den betroffenen Datensatz erreicht wird, fassen Sie diesen in eine entsprechende If…Then<\/b>-Bedingung ein. Dies sieht beispielsweise wie in Bild 1 aus, wobei die Bedingung rst!ArtikelID = 20 <\/b>lautet. Nur wenn diese Bedingung erfüllt ist, wird die innerhalb der If…Then-Bedingung enthaltene und mit einem Haltepunkt versehene Anweisung erreicht. Nun können Sie beispielsweise weitere Werte des aktuellen Datensatzes im Direktfenster ausgeben – etwa so:<\/p>\n

\"Anhalten<\/a><\/p>\n

Bild 1: Anhalten des Codes bei Erreichen eines bestimmten Wertes<\/p>\n

Debug.Print<\/span> rst!Artikelbestand<\/pre>\n
Haltepunkt per Assert<\/h2>\n
Die Debug<\/b>-Klasse bietet neben der Print<\/b>-Methode noch eine weitere, relativ unbekannte Methode. Diese heißt Assert <\/b>und erwartet einen Ausdruck als Parameter, der entweder den Wert True <\/b>oder False <\/b>zurückliefert. Wenn der Ausdruck den Wert False <\/b>zurückgibt, hält die Prozedur automatisch in der Zeile mit der Debug.Assert<\/b>-Anweisung an.<\/p>\n
Im Gegensatz zum vorherigen Beispiel, wo die Debug.Print <\/b>mit dem Haltepunkt genau beim Eintreten der gewünschten Bedingung ausgelöst wird, müssen Sie bei Debug.Assert <\/b>also genau dem umgekehrten Fall formulieren.<\/p>\n
Auf jeden Fall brauchen Sie mit Debug.Assert <\/b>nur eine statt drei Zeilen, um den Code beim Eintreten der gewünschten Bedingung anzuhalten:<\/p>\n
Public Sub <\/span>GezielterHaltepunkt_II()\r\n     Dim <\/span>db As <\/span>DAO.Database\r\n     Dim <\/span>rst As <\/span>DAO.Recordset\r\n     Set<\/span> db = CurrentDb\r\n     Set<\/span> rst = db.OpenRecordset( _\r\n         \"SELECT * FROM tblArtikel\", dbOpenDynaset)\r\n     Do While<\/span> Not<\/span> rst.EOF\r\n         Debug.Assert<\/span> Not<\/span> (rst!ArtikelID = 20)\r\n         rst.MoveNext<\/span>\r\n     Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n
Sie müssen lediglich beachten, dass Sie den Ausdruck durch Voranstellen des Schlüsselworts Not <\/b>ins Gegenteil umkehren.<\/p>\n
Das Lokal-Fenster<\/h2>\n
Wenn Sie eine Prozedur per Einzelschritt durchlaufen oder diese an der gewünschten Stelle auf eine der oben angegebenen Arten angehalten haben, wissen Sie in vielen Fällen noch nicht, wonach Sie suchen müssen. Da hilft es oft, sich einfach einmal einen überblick über die aktuellen Werte aller derzeit verwendeten Variablen zu verschaffen.<\/p>\n
Dabei ist das Lokal-Fenster eine große Hilfe. Sie blenden es mit dem Menübefehl Ansicht|Lokal-Fenster<\/b> ein. Wenn aktuell kein Code durchlaufen wird, ist das Fenster leer. Deshalb schauen wir uns nun an, was das Lokalfenster beim Durchlaufen der Prozedur GezielterHaltepunkt_II <\/b>tut.<\/p>\n
Lassen wir die Prozedur ruhig genau an der mit Debug.Assert festgelegten Position anhalten, indem wir die Einfügemarke an beliebiger Stelle innerhalb der Prozedur platzieren und dann auf F5 <\/b>drücken. <\/p>\n
Wie Bild 2 zeigt, geschieht in der Prozedur doch mehr als erwartet – es gibt mehr Variablen als gedacht. Das liegt daran, dass die beiden in der Prozedur verwendeten Objektvariablen db und rst jeweils auf Objekte verweisen, die eine ganze Reihe von Eigenschaften enthalten. Im Lokal-Fenster können Sie all diese Werte zum aktuellen Zeitpunkt prüfen. Sie brauchen also nicht jede Eigenschaft mit Debug.Print <\/b>im Direktbereich auszugeben, sondern können die Eigenschaften im Lokal-Fenster verfolgen.<\/p>\n
\"Das<\/a><\/p>\n
Bild 2: Das Lokal-Fenster liefert eine Reihe Informationen.<\/p>\n
Mö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
\n\n\t\t\n\t\t