diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-12-17 10:20:20 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-12-17 10:20:20 +0000 |
| commit | dfa10db0aac9dc1f1fdc766f017748715aca273c (patch) | |
| tree | abf45c8f4f548a45f203b0e510e78d8428024967 /wizards/source/formwizard/FormWizard.xba | |
| parent | 575a8c2c7b5a9813d6aad45881d3391e2cb7a7a5 (diff) | |
#96003# Debugmode set to 'False'
Diffstat (limited to 'wizards/source/formwizard/FormWizard.xba')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index c1c8a91a1..9e728f2ef 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -64,7 +64,7 @@ Dim i as Integer Dim SelCount as Integer BasicLibraries.LoadLibrary("Tools") BasicLibraries.LoadLibrary("WebWizard") - bDebug = True + bDebug = False If Not bDebug Then On Local Error GoTo WIZARDERROR End If @@ -126,7 +126,7 @@ Dim SelCount as Integer DlgFormDB.GetControl("lstTables").SelectItemPos(SelIndex, True) ElseIf CommandType = com.sun.star.sdb.CommandType.TABLE Then SelIndex = IndexInArray(sContent, TableNames() - DlgFormDB.GetControl("lstTables").SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True) + DlgFormDB.GetControl("lstTables").SelectItemPos(Ubound(QueryNames()+1 + SelIndex, True) End If End If CurCommandType = CommandType @@ -166,10 +166,10 @@ Dim SelCount as Integer oDocument.Dispose() End If WIZARDERROR: - If Err <> 0 Then + If Err <> 0 Then Msgbox(sMsgErrMsg, 16, GetProductName()) Resume LOCERROR - LOCERROR: + LOCERROR: End If End Sub |