#

VBA: Option Explicit
 
 
Wenn man in Microsoft MS Access oder Excel programmiert, dann sollte man in der obersten Zeile eine kleine Code-Zeile hinzufügen.

Option Explicit

Diese kleine Anweisung führt dazu, dass man nach dem Schreiben von vba Visual Basic Code anschliessend beim Kompilieren einen Fehler angezeigt bekommt, wenn ein Fehler in dem Programmier-Code ist.
 
Beispiel
Hier wird angezeigt, dass das Control ctlBrowser nicht vorhanden ist, mit: Variable nicht definiert

 
Fehler bei der Kompilierung:
Durch die Anweisung Option Explicit in MS Access wird ein Fehler beim Debuggen->Kompilieren angezeigt

Option Compare Database
Option Explicit
 
 
Public Function wait_for_Document(Optional ByVal intSeconds As Integer = 20) As Boolean
'------------< wait_for_Document() >------------
Dim bResult As Boolean
bResult = False

Dim browser As webBrowser
Set browser = ctlBrowser.Object

'--< lade HTML Document >--
Dim hdoc As HTMLDocument
Set hdoc = Nothing
Do Until (Not hdoc Is Nothing)
DoEvents
Set hdoc = browser.Document
Loop
'--</ lade HTML Document >--

 
 
Ohne die Anweisung Option Explicit wird kein Fehler angezeigt und der Programmiercode erzeugt erst in der Laufzeit einen nicht entdeckten Fehler.

Option Compare Database
 
 
Public Function wait_for_Document(Optional ByVal intSeconds As Integer = 20) As Boolean
'------------< wait_for_Document() >------------
Dim bResult As Boolean
bResult = False
 
Dim browser As webBrowser
Set browser = ctlBrowser.Object

'--< lade HTML Document >--
Dim hdoc As HTMLDocument
Set hdoc = Nothing
Do Until (Not hdoc Is Nothing)
DoEvents
Set hdoc = browser.Document
Loop
'--</ lade HTML Document >--

 
 
Kompilieren von VBA Code in Visual Basic findet man unter Menü->Debuggen->Kompilieren
Mobile

.

0123movie.net