Day: April 24, 2006

Code Disaster

Bad code ? What do you think ? …

on error goto there
.
.' some code
.

End If
 End If
.
. ' more Code, no exit function so far
.

there:
 If Err > 0 Then
  Call l.LogAction("Error in some sub " & Cstr(Err) & " " & Error$ )
  Resume outa_here
 End If
outa_here:

End Function

another example

 ads = doc.size
 If ads = "" Then ads = "0"
 If Ccur(ads/1024)  > Ccur(mailsize) Then

This is not Scary Movie #n but the Real Life …