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
lpFileNameAs 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
