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 | 044d168e2352749b58b82ad61a232b1978448ca4 (patch) | |
| tree | fbf65dfbed449563224e4d9ad2279b34ab894d75 /wizards | |
| parent | 9e4f8d0c473ac0b4dcacbf584c3f75c240031639 (diff) | |
#96003# Debugmode set to 'False'
Diffstat (limited to 'wizards')
| -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 c1c8a91a14cd..9e728f2efdb7 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 |