diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-28 15:16:33 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-28 15:16:33 +0000 |
| commit | 3ed9ed34c33e188cd4f345796c5c919014713ae6 (patch) | |
| tree | 8d299d03d339e1c2e16b5b9769cc630d1f359d86 /wizards/source/formwizard/FormWizard.xba | |
| parent | 509dec6960c4180aa87c1109072499f3c8aa4077 (diff) | |
#95287# SetNumerics Routine improved
Diffstat (limited to 'wizards/source/formwizard/FormWizard.xba')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 28 |
1 files changed, 22 insertions, 6 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index 26b59aae1..aed946d16 100644 --- a/wizards/source/formwizard/FormWizard.xba +++ b/wizards/source/formwizard/FormWizard.xba @@ -31,7 +31,6 @@ Public Const SBSIZETEXT = "The quick brown fox jumps over the lazy dog. The Public bDisposeDoc as Boolean Public bDebug as Boolean - ' The macro can be called in 4 possible scenarios: ' Scenario 1. No parameters at given ' Scenario 2: Only Datasourcename is given, but no connection and no Content @@ -204,8 +203,13 @@ Dim QueryIndex as Integer Tablename = Tablenames(SelIndex) oColumns = oDBConnection.Tables.GetByName(Tablename).Columns End If - GetSpecificFieldNames() - ToggleListboxControls(oDialogModel, True) + If GetSpecificFieldNames() <> -1 Then + ToggleListboxControls(oDialogModel, True) + Else + EmptyFieldsListboxes() + End If + Else + EmptyFieldsListboxes() End If NOFIELDS: If Err <> 0 Then @@ -226,6 +230,7 @@ Sub PreviousStep() .cmdGoOn.Label = sGoOn .imgTheme.ImageUrl = FormPath & "FormWizard_1.bmp" End With + FormSetMoveRights() WIZARDERROR: If Err <> 0 Then Msgbox(sMsgErrMsg, 16, GetProductName()) @@ -241,7 +246,7 @@ Sub NextStep() End If Select Case oDialogModel.Step Case 1 - bControlsAreCreated = Not (CBool(oDialogModel.lstSelFields.Tag)) + bControlsAreCreated = Not (cBool(oDialogModel.lstSelFields.Tag)) If Not bControlsAreCreated Then GetTableMetaData() CreateDBForm() @@ -325,8 +330,19 @@ Dim sBaseBookmarkName as String Loop Until Not bLinkExists bDisposeDoc = False GroupShapesTogether() - DlgFormDB.EndExecute() ToggleDesignMode(oDocument) oDBForm.Reload() + oDocument.Store() + DlgFormDB.EndExecute() End If -End Sub</script:module>
\ No newline at end of file +End Sub + + +Sub EmptyFieldsListboxes() +Dim NullList() as String + ToggleListboxControls(oDialogModel, False) + oDialogModel.lstFields.StringItemList() = NullList() + oDialogModel.lstSelFields.StringItemList() = NullList() + bEnableBinaryOptionGroup = False +End Sub +</script:module>
\ No newline at end of file |