eklenti güncellenmiştir.
oluşturduğunuz tabloyu uygulamanıza alarak
hata oluştuğunda bölümünde
If DCount("ErrorString", "ErrTable", "ErrorCode=" & Err.Number) <> 0 Then
MsgBox
Dlookup ("ErrorString", "ErrTable", "ErrorCode=" & Err.Number)
Else
MsgBox "Bilinmeyen
Hata"
End If
kodunu yazarak kullanabilirsiniz. böylelikle daha fazla türkçe
hata uyarısı görmüş olursunuz
daha az kod satırı kullanmak için ise bir modül oluşturup içine
function
hatamesajı(numarasi as integer)
If DCount("ErrorString", "ErrTable", "ErrorCode=" & numarasi ) <> 0 Then
MsgBox
Dlookup ("ErrorString", "ErrTable", "ErrorCode=" & numarasi )
Else
MsgBox "Bilinmeyen
Hata"
End If
end function
kodlarını yazın ve
hata olduğunda bölümüne yalnızca
hatamesajı(err.number)
yazarak
hata mesajını görüntüleyebilirsiniz.