Kod: Tümünü seç
Option Explicit
Private Sub Command1_Click()
List1.Clear
Dim ErCode As Long
Dim ErDesc As String
Dim FatalEr As String
FatalEr = Error(1)
For ErCode = 3 To 750
If Error(ErCode) <> FatalEr Then
ErDesc = Format$(ErCode) & " " & Error(ErCode)
List1.AddItem ErDesc
End If
Next ErCode
End Sub
Private Sub Form_Load()
Command1.Caption = "HATA" & vbCrLf & "MESAJLARI"
End Sub
NUMARA______________AÇIKLAMASI
3_______________________ GoSub'sız return kullanımı
5 _______________________ geçersiz prosedür çagırımı
6 _______________________ limit asımı
7_______________________ bellek yetersiz
9 _______________________ dizi belirtilen aralıklar dısında
10_______________________ bu dizi sabitlendi ya da geçici olarak kilitlendi
11_______________________ Sıfıra bölüm hatası
13 _______________________ tip uyusmazlıgı
14 _______________________ metin uzunlugu sınırlar dısında
16 _______________________ ifade oldukça karmasık
17_______________________ istenen islem gerçeklesemez
18 _______________________ kullanıcı tarafından islem iptal edildi
20_______________________ hatasız sona erme
28_______________________ stack boyutu asıldı
35_______________________ sub,fonksiyon veya özellik tanmsız
47_______________________ çok fazla dll istemcisi
48_______________________ yüklenen dll'de hata
49 _______________________ dll çagırmada yanlıs kullanım
51 _______________________ içsel hata
52_______________________yanlıs dosya ismi veya numarası
53_______________________ dosya bulunamadı
54_______________________yanlıs dosya modu
55 _______________________ dosya zaten açık
57 _______________________ sürücü giris/çıkıs hatası
58_______________________dosya zaten var
59 _______________________yanlıs kayıt uzunlugu
61 _______________________ disk dolu
62_______________________ dosya bittigi halde okumaya çalısılıyor
63 _______________________ yanlıs kayıt numarası
67_______________________çok fazla dosya
68 _______________________sürücü kullanılamıyor
70_______________________ giris yetkisi yok
71_______________________ disk hazır degil
74_______________________ farklı sürücü ile yeniden isimlendirilemez
75_______________________dosya erisiminde hata
76 _______________________dosya bulunamadı
91 _______________________ nesne degiskeni ya da bloklu degisken tanımlanmamıs
92 _______________________ for döngüsü dogru sekilde tanımlanmamıs
93 _______________________ geçersiz metin
94 _______________________geçersiz null kullanımı
298 _______________________sistem dll'si yüklenemedi
320 _______________________belirtilen dosya isimlerinde,sürücü isimlerindeki karakterler kullanılamaz
321 _______________________geçersiz dosya biçimi
322_______________________gerekli olan geçici dosya yaratılamıyor
325 _______________________kaynak dosyada biçim geçersiz
327 _______________________isimsiz veri degeri bulunamadı
328_______________________ geçersiz parametre diziye yazılamıyor
335 _______________________sistem registy'sine giris yapılamıyor
336_______________________nesne dogru olarak kayıtlı degil
337 _______________________nesne bulunamadı
338_______________________ nesne dogru olarak çalısmadı
360_______________________ nesne zaten yüklü