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.
