summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/tools/ModuleControls.xba14
1 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba
index d5078c2fd65e..9fb2dc140258 100644
--- a/wizards/source/tools/ModuleControls.xba
+++ b/wizards/source/tools/ModuleControls.xba
@@ -277,11 +277,11 @@ NOSAVING:
oStoreDialog.dispose()
Resume NOERROR
NOERROR:
- End If
+ End If
End Function
-Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object)
+Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object)
Dim i as Integer
Dim MaxIndex as Integer
Dim ViewFiltername as String
@@ -291,7 +291,7 @@ Dim sProdName as String
sProdName = oProdNameAccess.getByName("ooName")
MaxIndex = Ubound(FilterNames(), 1)
For i = 0 To MaxIndex
- Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%")
+ Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,"%productname%")
oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1))
Next i
oDialog.SetCurrentFilter(FilterNames(0,0)
@@ -321,9 +321,9 @@ Dim OverwriteModel as Object
If InitResources("", "com") Then
QueryString = GetResText(1007)
QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), "<PATH>")
- If Len(QueryString) > 130 Then
+ If Len(QueryString) > 190 Then
QueryString = DeleteStr(QueryString, ".<BR>")
- End If
+ End If
QueryString = ReplaceString(QueryString, chr(13), "<BR>")
lblYes = GetResText(1008)
lblYesToAll = GetResText(1009)
@@ -338,7 +338,7 @@ Dim OverwriteModel as Object
OverwriteModel.cmdCancel.Label = lblCancel
OverwriteModel.lblQueryforSave.Label = QueryString
OverwriteModel.cmdNo.DefaultButton = True
- DlgOverwrite.GetControl("cmdNo").SetFocus()
+ DlgOverwrite.GetControl("cmdNo").SetFocus()
LocRetValue = DlgOverwrite.execute()
If LocRetValue = 0 Then
iGeneralOverwrite = SBOVERWRITECANCEL
@@ -365,4 +365,4 @@ End Sub
Sub SetOVERWRITEToNever()
iGeneralOverwrite = SBOVERWRITENEVER
DlgOverwrite.EndExecute()
-End Sub</script:module> \ No newline at end of file
+End Sub</script:module>