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 | 21c0b6d95583db9d30d506254e1558eee56fb5e5 (patch) | |
| tree | 73ac5636d47898e27118d6728f6b424f288cc028 /wizards/source/formwizard/DBMeta.xba | |
| parent | cef0eccd7eef8bdb1080b29c9fecbe63c2288a49 (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 f1740f780caa..38517b979c42 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 |