idea error Handler

Current error Handler in first line of routine is :
On Error GoTo Err_Handler

In ide this method is not good because is not possible to debug routine when
when it comes generated an error.

Change all routine using
If InIDE Then: On Error GoTo 0: Else: On Error GoTo Err_Handler:

The "InIDE" is the global variable which indicate if program running in VB Design Environment (ide).

This is a method to retrive if execution is in ide.

------------------------------
'''module global
Global InIDE As Boolean

'''module api
Public Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long

'''module misc

sub main
....
InIDE = InVBDesignEnvironment
....
end sub

'verify if execution of pgAdin2 is in ide
Public Function InVBDesignEnvironment() As Boolean
Dim szFileName As String
Dim lCount As Long

szFileName = String(255, 0)
lCount = GetModuleFileName(App.hInstance, szFileName, 255)
szFileName = Left(szFileName, lCount)

InVBDesignEnvironment = False
If UCase(Right(szFileName, 7)) = "VB6.EXE" Then InVBDesignEnvironment = True
End Function

Bye !!
Frank Lupo (Wolf) !!

/\_ _/\
\ o o /
--ooo-----ooo---

--
Prendi GRATIS l'email universale che... risparmia: http://www.email.it/f

Sponsor:
Speciale voli a soli 80 Euro...affrettatevi, cliccate e partite per la Scandinavia
Clicca qui: http://adv.email.it/cgi-bin/foclick.cgi?mid=1228&d=4-3