I am running an ActiveX that pops up a msgbox for the entry that will
set a global variable for the rest of my DTS package. The problem I
am having is when I run this package and should I decide to click the
cancel button it still says that tasked failed. I am sure this is
because I set it to fail if there was no entry given. Im unsure how
to set this activeX script. If I cancel I dont want to receive and
error. I just want it to stop the DTS package.
Below is the code I used.

Option Explicit

Function Main()

Dim pkg
'Dim sGrpDesc
Dim sInput

'Set Package reference
set pkg = DTSGlobalVariables.Parent

Main = DTSTaskExecResult_Failure

'sGrpDesc = "Get Files"
sInput = InputBox("Type ProcDate as follows", "Get Files",
"7/7/2003")

if sInput <> "" then
DTSGlobalVariables("gv_ProcDate").Value = sInput

Main = DTSTaskExecResult_Success
end if

End Function


Please Help!

Not in the interface. Executing through VB yes (pbCancel)

If they press cancel the package should just exit left and gracefully.
Workflow is still your best bet. Personally I would not be interactive in
my packages. In then means I cannot reuse them in a job. I would pass
parameters to the package which you can change at will and grab up front.

--

----------------------------
Allan Mitchell (Microsoft SQL Server MVP)
MCSE,MCDBA
www.SQLDTS.com
I support PASS - the definitive, global community
for SQL Server professionals - http://www.sqlpass.org



"Matt L" <mattclarson (AT) hotmail (DOT) com> wrote