Funkcja Error

Funkcja Error zwraca komunikat błędu o podanym numerze.

Składnia funkcji Error:

Error[(NrBłędu)]

Argument NrBłędu jest opcjonalnym poprawnym numerem błędu.
Jeżeli NrBłędu jest poprawnym numerem błędu lecz nie jest zdefiniowany, funkcja Error zwróci łańcuch "Application-defined or object-defined error".
Jeżeli NrBłędu nie jest poprawną wartością, powstanie błąd.
Jeżeli NrBłędu zostanie pominięty zostanie zwrócona wiadomość odpowiednia dla najczęściej występujących błędów uruchomieniowych (run-time error).
Jeżeli nie ma błędów run-time lub NrBłędu ma wartość 0, funkcja Error zwróci łańcuch o zerowej długości ("").

Przykład użycia funkcji Error:

Dim varNrBledu As Variant
For varNrBledu=1 To 1000  'pętla od 1 do 1000
If Error(varNrBledu)<>"Application-defined or object-defined error" Then
  'jeżeli błąd jest zdefiniowany to
  Text1=Text1 & Str(varNrBledu) & " - " & Error(varNrBledu)
   'dodaj numer i kod błędu do kontrolki TextBox
  Text1=Text1 & Chr(13) & Chr(10)
   'dodaj znak nowej linii do kontrolki TextBox
End If
Next varNrBledu  'następny numer błędu

(Zmienne, typy zmiennych, rozkazy For i If, funkcje Chr i Str, kontrolka TextBox i właściwość Text zostały opisane w innych częściach kursu.)

W przykładzie licznik pętli (od 1 do 1000) jest przekazywany do funkcji Error. Jeżeli zwrócony przez nią komunikat jest inny niż "Application-defined or object-defined error", co oznacza, że błąd jest zdefiniowany, zostaje on dodany do właściwości Text kontrolki TextBox. Po wykonaniu pętli w kontrolce TextBox znajdują się numery i komunikaty zdefiniowanych błędów o numerach od 1 do 1000. Kontrolka TextBox powinna nazywać się Text1 i mieć właściwość MultiLine ustawioną na True oraz właściwość ScrollBars ustawioną na Both.

na górę strony...