diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2001-11-22 08:43:01 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2001-11-22 08:43:01 +0000 |
| commit | 436bd3d99a71d9433ec9bb06ec887c989b25e2fb (patch) | |
| tree | bca078982e59bcf7dbdd9d58daf9b68e4c560b07 /wizards/source/formwizard/DBMeta.xba | |
| parent | 4a9ea681ccc12dae67e47c58a90ca3e38f77381d (diff) | |
#94903# Now label controls positioned correctly
Diffstat (limited to 'wizards/source/formwizard/DBMeta.xba')
| -rw-r--r-- | wizards/source/formwizard/DBMeta.xba | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/wizards/source/formwizard/DBMeta.xba b/wizards/source/formwizard/DBMeta.xba index f1740f780..38517b979 100644 --- a/wizards/source/formwizard/DBMeta.xba +++ b/wizards/source/formwizard/DBMeta.xba @@ -6,7 +6,7 @@ Option Explicit Public sDatabaseList() Public iCommandTypes() as Integer Public CurCommandType as Integer -Dim oDataSource as Object +Public oDataSource as Object Public bEnableBinaryOptionGroup as Boolean @@ -140,6 +140,7 @@ Dim oField as Object ReDim oDBShapeList(MaxIndex) as Object ReDim oTCShapeList(MaxIndex) as Object ReDim oDBModelList(MaxIndex) as Object +' ReDim oGroupShapeList(MaxIndex) as Object End Sub @@ -227,7 +228,11 @@ Dim m as Integer RemoveListItems(oDialogModel.lstFields(), oDialogModel.lstSelFields(), ImgFieldNames()) End If WIZARDERROR: - ShowErrorMessage(True) + If Err <> 0 Then + Msgbox(sMsgErrMsg, 16, GetProductName()) + Resume LOCERROR + LOCERROR: + End If End Sub |