wizards/source/access2base/PropertiesSet.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="PropertiesSet" script:language="StarBasic">
   4 REM =======================================================================================================================
   5 REM ===                                 The Access2Base library is a part of the LibreOffice project.                                                                   ===
   6 REM ===                                 Full documentation is available on http://www.access2base.com                                                                   ===
   7 REM =======================================================================================================================
   8
   9 Option Explicit
  10
  11 REM -----------------------------------------------------------------------------------------------------------------------
  12 Public Function setAbsolutePosition(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  13 &apos;  Only for open forms
  14         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setAbsolutePosition&quot;)
  15         setAbsolutePosition = PropertiesSet._setProperty(pvObject, &quot;AbsolutePosition&quot;, pvValue)
  16 End Function            &apos;  setAbsolutePosition
  17
  18 REM -----------------------------------------------------------------------------------------------------------------------
  19 Public Function setAllowAdditions(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  20 &apos;  Only for open forms
  21         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setAllowAdditions&quot;)
  22         setAllowAdditions = PropertiesSet._setProperty(pvObject, &quot;AllowAdditions&quot;, pvValue)
  23 End Function            &apos;  setAllowAdditions
  24
  25 REM -----------------------------------------------------------------------------------------------------------------------
  26 Public Function setAllowDeletions(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  27 &apos;  Only for open forms
  28         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setAllowDeletions&quot;)
  29         setAllowDeletions = PropertiesSet._setProperty(pvObject, &quot;AllowDeletions&quot;, pvValue)
  30 End Function            &apos;  setAllowDeletions
  31
  32 REM -----------------------------------------------------------------------------------------------------------------------
  33 Public Function setAllowEdits(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  34 &apos;  Only for open forms
  35         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setAllowEdits&quot;)
  36         setAllowEdits = PropertiesSet._setProperty(pvObject, &quot;AllowEdits&quot;, pvValue)
  37 End Function            &apos;  setAllowEdits
  38
  39 REM -----------------------------------------------------------------------------------------------------------------------
  40 Public Function setBackColor(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  41         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setBackColor&quot;)
  42         setBackColor = PropertiesSet._setProperty(pvObject, &quot;BackColor&quot;, pvValue)
  43 End Function            &apos;  setBackColor
  44
  45 REM -----------------------------------------------------------------------------------------------------------------------
  46 Public Function setBookmark(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  47         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setBookmark&quot;)
  48         setBookmark = PropertiesSet._setProperty(pvObject, &quot;Bookmark&quot;, pvValue)
  49 End Function            &apos;  setBookmark
  50
  51 REM -----------------------------------------------------------------------------------------------------------------------
  52 Public Function setBorderColor (Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  53         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setBorderColor&quot;)
  54         setBorderColor = PropertiesSet._setProperty(pvObject, &quot;BorderColor&quot;, pvValue)
  55 End Function            &apos;  setBorderColor
  56
  57 REM -----------------------------------------------------------------------------------------------------------------------
  58 Public Function setBorderStyle(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  59         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setBorderStyle&quot;)
  60         setBorderStyle = PropertiesSet._setProperty(pvObject, &quot;BorderStyle&quot;, pvValue)
  61 End Function            &apos;  setBorderStyle
  62
  63 REM -----------------------------------------------------------------------------------------------------------------------
  64 Public Function setCancel(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  65         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setCancel&quot;)
  66         setCancel = PropertiesSet._setProperty(pvObject, &quot;Cancel&quot;, pvValue)
  67 End Function            &apos;  setCancel
  68
  69 REM -----------------------------------------------------------------------------------------------------------------------
  70 Public Function setCaption(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  71         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setCaption&quot;)
  72         setCaption = PropertiesSet._setProperty(pvObject, &quot;Caption&quot;, pvValue)
  73 End Function            &apos;  setCaption
  74
  75 REM -----------------------------------------------------------------------------------------------------------------------
  76 Public Function setControlTipText(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  77         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setControlTipText&quot;)
  78         setControlTipText = PropertiesSet._setProperty(pvObject, &quot;ControlTipText&quot;, pvValue)
  79 End Function            &apos;  setControlTipText
  80
  81 REM -----------------------------------------------------------------------------------------------------------------------
  82 Public Function setCurrentRecord(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  83         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setCurrentRecord&quot;)
  84         setCurrentRecord = PropertiesSet._setProperty(pvObject, &quot;CurrentRecord&quot;, pvValue)
  85 End Function            &apos;  setCurrentRecord
  86
  87 REM -----------------------------------------------------------------------------------------------------------------------
  88 Public Function setDefault(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  89         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setDefault&quot;)
  90         setDefault = PropertiesSet._setProperty(pvObject, &quot;Default&quot;, pvValue)
  91 End Function            &apos;  setDefault
  92
  93 REM -----------------------------------------------------------------------------------------------------------------------
  94 Public Function setDefaultValue(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
  95         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setDefaultValue&quot;)
  96         setDefaultValue = PropertiesSet._setProperty(pvObject, &quot;DefaultValue&quot;, pvValue)
  97 End Function            &apos;  setDefaultValue
  98
  99 REM -----------------------------------------------------------------------------------------------------------------------
 100 Public Function setDescription(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 101         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setDescription&quot;)
 102         setDescription = PropertiesSet._setProperty(pvObject, &quot;Description&quot;, pvValue)
 103 End Function            &apos;  setDescription
 104
 105 REM -----------------------------------------------------------------------------------------------------------------------
 106 Public Function setEnabled(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 107         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setEnabled&quot;)
 108         setEnabled = PropertiesSet._setProperty(pvObject, &quot;Enabled&quot;, pvValue)
 109 End Function            &apos;  setEnabled
 110
 111 REM -----------------------------------------------------------------------------------------------------------------------
 112 Public Function setFilter(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 113         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFilter&quot;)
 114         setFilter = PropertiesSet._setProperty(pvObject, &quot;Filter&quot;, pvValue)
 115 End Function            &apos;  setFilter
 116
 117 REM -----------------------------------------------------------------------------------------------------------------------
 118 Public Function setFilterOn(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 119 &apos;  Only for open forms
 120         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFilterOn&quot;)
 121         setFilterOn = PropertiesSet._setProperty(pvObject, &quot;FilterOn&quot;, pvValue)
 122 End Function            &apos;  setFilterOn
 123
 124 REM -----------------------------------------------------------------------------------------------------------------------
 125 Public Function setFontBold(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 126         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontBold&quot;)
 127         setFontBold = PropertiesSet._setProperty(pvObject, &quot;FontBold&quot;, pvValue)
 128 End Function            &apos;  setFontBold
 129
 130 REM -----------------------------------------------------------------------------------------------------------------------
 131 Public Function setFontItalic(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 132         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontItalic&quot;)
 133         setFontItalic = PropertiesSet._setProperty(pvObject, &quot;FontItalic&quot;, pvValue)
 134 End Function            &apos;  setFontItalic
 135
 136 REM -----------------------------------------------------------------------------------------------------------------------
 137 Public Function setFontName(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 138         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontName&quot;)
 139         setFontName = PropertiesSet._setProperty(pvObject, &quot;FontName&quot;, pvValue)
 140 End Function            &apos;  setFontName
 141
 142 REM -----------------------------------------------------------------------------------------------------------------------
 143 Public Function setFontSize(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 144         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontSize&quot;)
 145         setFontSize = PropertiesSet._setProperty(pvObject, &quot;FontSize&quot;, pvValue)
 146 End Function            &apos;  setFontSize
 147
 148 REM -----------------------------------------------------------------------------------------------------------------------
 149 Public Function setFontUnderline(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 150         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontUnderline&quot;)
 151         setFontUnderline = PropertiesSet._setProperty(pvObject, &quot;FontUnderline&quot;, pvValue)
 152 End Function            &apos;  setFontUnderline
 153
 154 REM -----------------------------------------------------------------------------------------------------------------------
 155 Public Function setFontWeight(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 156         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setFontWeight&quot;)
 157         setFontWeight = PropertiesSet._setProperty(pvObject, &quot;FontWeight&quot;, pvValue)
 158 End Function            &apos;  setFontWeight
 159
 160 REM -----------------------------------------------------------------------------------------------------------------------
 161 Public Function setForeColor(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 162         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setForeColor&quot;)
 163         setForeColor = PropertiesSet._setProperty(pvObject, &quot;ForeColor&quot;, pvValue)
 164 End Function            &apos;  setForeColor
 165
 166 REM -----------------------------------------------------------------------------------------------------------------------
 167 Public Function setHeight(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 168 &apos;  Only for open forms
 169         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setHeight&quot;)
 170         setHeight = PropertiesSet._setProperty(pvObject, &quot;Height&quot;, pvValue)
 171 End Function            &apos;  setHeight
 172
 173 REM -----------------------------------------------------------------------------------------------------------------------
 174 Public Function setListIndex(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 175         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setListIndex&quot;)
 176         setListIndex = PropertiesSet._setProperty(pvObject, &quot;ListIndex&quot;, pvValue)
 177 End Function            &apos;  setListIndex
 178
 179 REM -----------------------------------------------------------------------------------------------------------------------
 180 Public Function setLocked(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 181         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setLocked&quot;)
 182         setLocked = PropertiesSet._setProperty(pvObject, &quot;Locked&quot;, pvValue)
 183 End Function            &apos;  setLocked
 184
 185 REM -----------------------------------------------------------------------------------------------------------------------
 186 Public Function setMultiSelect(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 187         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setMultiSelect&quot;)
 188         setMultiSelect = PropertiesSet._setProperty(pvObject, &quot;MultiSelect&quot;, pvValue)
 189 End Function            &apos;  setMultiSelect
 190
 191 REM -----------------------------------------------------------------------------------------------------------------------
 192 Public Function setOnAction(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 193         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setOnAction&quot;)
 194         setOnAction = PropertiesSet._setProperty(pvObject, &quot;OnAction&quot;, pvValue)
 195 End Function            &apos;  setOnAction
 196
 197 REM -----------------------------------------------------------------------------------------------------------------------
 198 Public Function setOptionValue(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 199         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setOptionValue&quot;)
 200         setOptionValue = PropertiesSet._setProperty(pvObject, &quot;OptionValue&quot;, pvValue)
 201 End Function            &apos;  setOptionValue
 202
 203 REM -----------------------------------------------------------------------------------------------------------------------
 204 Public Function setOrderBy(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 205         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setOrderBy&quot;)
 206         setOrderBy = PropertiesSet._setProperty(pvObject, &quot;OrderBy&quot;, pvValue)
 207 End Function            &apos;  setOrderBy
 208
 209 REM -----------------------------------------------------------------------------------------------------------------------
 210 Public Function setOrderByOn(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 211 &apos;  Only for open forms
 212         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setOrderByOn&quot;)
 213         setOrderByOn = PropertiesSet._setProperty(pvObject, &quot;OrderByOn&quot;, pvValue)
 214 End Function            &apos;  setOrderByOn
 215
 216 REM -----------------------------------------------------------------------------------------------------------------------
 217 Public Function setPage(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 218         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setPage&quot;)
 219         setPage = PropertiesSet._setProperty(pvObject, &quot;Page&quot;, pvValue)
 220 End Function            &apos;  setPage         V0.9.1
 221
 222 REM -----------------------------------------------------------------------------------------------------------------------
 223 Public Function setProperty(Optional pvItem As Variant, ByVal Optional psProperty As String, ByVal Optional pvValue As Variant, ByVal Optional pvIndex As Variant) As Variant
 224 &apos;  Return True if property setting OK
 225         Utils._SetCalledSub(&quot;setProperty&quot;)
 226         If IsMissing(pvItem) Or IsMissing(psProperty) Or IsMissing(pvValue) Or IsEmpty(pvItem) Then Call _TraceArguments()
 227         If IsMissing(pvIndex) Then
 228                 setProperty = PropertiesSet._setProperty(pvItem, psProperty, pvValue)
 229         Else
 230                 setProperty = PropertiesSet._setProperty(pvItem, psProperty, pvValue, pvIndex)
 231         End If
 232         Utils._ResetCalledSub(&quot;setProperty&quot;)
 233 End Function
 234
 235 REM -----------------------------------------------------------------------------------------------------------------------
 236 Public Function setRecordSource(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 237 &apos;  Only for open forms
 238         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setRecordSource&quot;)
 239         setRecordSource = PropertiesSet._setProperty(pvObject, &quot;RecordSource&quot;, pvValue)
 240 End Function            &apos;  setRecordSource
 241
 242 REM -----------------------------------------------------------------------------------------------------------------------
 243 Public Function setRequired(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 244         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setRequired&quot;)
 245         setRequired = PropertiesSet._setProperty(pvObject, &quot;Required&quot;, pvValue)
 246 End Function            &apos;  setRequired
 247
 248 REM -----------------------------------------------------------------------------------------------------------------------
 249 Public Function setRowSource(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 250         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setRowSource&quot;)
 251         setRowSource = PropertiesSet._setProperty(pvObject, &quot;RowSource&quot;, pvValue)
 252 End Function            &apos;  setRowSource
 253
 254 REM -----------------------------------------------------------------------------------------------------------------------
 255 Public Function setRowSourceType(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 256         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setRowSourceType&quot;)
 257         setRowSourceType = PropertiesSet._setProperty(pvObject, &quot;RowSourceType&quot;, pvValue)
 258 End Function            &apos;  setRowSourceType
 259
 260 REM -----------------------------------------------------------------------------------------------------------------------
 261 Public Function setSelected(Optional pvObject As Variant, ByVal Optional pvValue As Variant, ByVal Optional pvIndex As Variant) As Boolean
 262         If IsMissing(pvObject) Or IsMissing(pvValue) Then Call _TraceArguments(&quot;setSelected&quot;)
 263         If IsEmpty(pvObject) Then Call _TraceArguments(&quot;setSelected&quot;)
 264         If IsMissing(pvIndex) Then
 265                 setSelected = PropertiesSet._setProperty(pvObject, &quot;Selected&quot;, pvValue)
 266         Else
 267                 setSelected = PropertiesSet._setProperty(pvObject, &quot;Selected&quot;, pvValue, pvIndex)
 268         End If
 269 End Function            &apos;  setSelected
 270
 271 REM -----------------------------------------------------------------------------------------------------------------------
 272 Public Function setSelLength(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 273         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setSelLength&quot;)
 274         setSelLength = PropertiesSet._setProperty(pvObject, &quot;SelLength&quot;, pvValue)
 275 End Function            &apos;  setSelLength
 276
 277 REM -----------------------------------------------------------------------------------------------------------------------
 278 Public Function setSelStart(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 279         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setSelStart&quot;)
 280         setSelStart = PropertiesSet._setProperty(pvObject, &quot;SelStart&quot;, pvValue)
 281 End Function            &apos;  setSelStart
 282
 283 REM -----------------------------------------------------------------------------------------------------------------------
 284 Public Function setSelText(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 285         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setSelText&quot;)
 286         setSelText = PropertiesSet._setProperty(pvObject, &quot;SelText&quot;, pvValue)
 287 End Function            &apos;  setSelText
 288
 289 REM -----------------------------------------------------------------------------------------------------------------------
 290 Public Function setSpecialEffect(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 291         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setSpecialEffect&quot;)
 292         setSpecialEffect = PropertiesSet._setProperty(pvObject, &quot;SpecialEffect&quot;, pvValue)
 293 End Function            &apos;  setSpecialEffect
 294
 295 REM -----------------------------------------------------------------------------------------------------------------------
 296 Public Function setTabIndex(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 297         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTabIndex&quot;)
 298         setTabIndex = PropertiesSet._setProperty(pvObject, &quot;TabIndex&quot;, pvValue)
 299 End Function            &apos;  setTabIndex
 300
 301 REM -----------------------------------------------------------------------------------------------------------------------
 302 Public Function setTabStop(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 303         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTabStop&quot;)
 304         setTabStop = PropertiesSet._setProperty(pvObject, &quot;TabStop&quot;, pvValue)
 305 End Function            &apos;  setTabStop
 306
 307 REM -----------------------------------------------------------------------------------------------------------------------
 308 Public Function setTag(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 309         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTag&quot;)
 310         setTag = PropertiesSet._setProperty(pvObject, &quot;Tag&quot;, pvValue)
 311 End Function            &apos;  setTag
 312
 313 REM -----------------------------------------------------------------------------------------------------------------------
 314 Public Function setTextAlign(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 315         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTextAlign&quot;)
 316         setTextAlign = PropertiesSet._setProperty(pvObject, &quot;TextAlign&quot;, pvValue)
 317 End Function            &apos;  setTextAlign
 318
 319 REM -----------------------------------------------------------------------------------------------------------------------
 320 Public Function setTooltipText(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 321         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTooltipText&quot;)
 322         setTooltipText = PropertiesSet._setProperty(pvObject, &quot;TooltipText&quot;, pvValue)
 323 End Function            &apos;  setTooltipText
 324
 325 REM -----------------------------------------------------------------------------------------------------------------------
 326 Public Function setTripleState(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 327         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setTripleState&quot;)
 328         setTripleState = PropertiesSet._setProperty(pvObject, &quot;TripleState&quot;, pvValue)
 329 End Function            &apos;  setTripleState
 330
 331 REM -----------------------------------------------------------------------------------------------------------------------
 332 Public Function setVisible(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 333 &apos;  Only for open forms and controls
 334         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setVisible&quot;)
 335         setVisible = PropertiesSet._setProperty(pvObject, &quot;Visible&quot;, pvValue)
 336 End Function            &apos;  setVisible
 337
 338 REM -----------------------------------------------------------------------------------------------------------------------
 339 Public Function setWidth(Optional pvObject As Variant, ByVal Optional pvValue As Variant) As Boolean
 340 &apos;  Only for open forms
 341         If IsMissing(pvObject) Or IsMissing(pvValue) Or IsEmpty(pvObject) Then Call _TraceArguments(&quot;setWidth&quot;)
 342         setWidth = PropertiesSet._setProperty(pvObject, &quot;Width&quot;, pvValue)
 343 End Function            &apos;  setWidth
 344
 345 REM -----------------------------------------------------------------------------------------------------------------------
 346 REM --- PRIVATE FUNCTIONS                                                                                                                                                                                       ---
 347 REM -----------------------------------------------------------------------------------------------------------------------
 348
 349 Private Function _CheckProperty(pvObject As Object, ByVal psProperty As String) As Boolean
 350 &apos;  Return False if psProperty not within the PropertyValues set of pvItem
 351
 352 Dim i As Integer, oPropertyValues As Variant, oProperty As Variant
 353         oPropertyValues = pvObject.PropertyValues
 354
 355         For i = LBound(oPropertyValues) To UBound(oPropertyValues)
 356                 oProperty = oPropertyValues(i)
 357                 If UCase(oProperty.Name) = UCase(psProperty) Then
 358                         _CheckProperty = True
 359                         Exit Function
 360                 End If
 361         Next i
 362
 363         _CheckProperty = False
 364         Exit Function
 365
 366 End Function    &apos;  CheckProperty   V0.7.5
 367
 368 REM -----------------------------------------------------------------------------------------------------------------------
 369 Private Function _setProperty(pvItem As Variant, ByVal psProperty As String, ByVal pvValue As Variant, ByVal Optional pvIndex As Variant) As Boolean
 370 &apos;  Return True if property setting OK
 371         Utils._SetCalledSub(&quot;set&quot; &amp; psProperty)
 372         If _ErrorHandler() Then On Local Error Goto Error_Function
 373
 374 &apos;pvItem must be an object and have the requested property
 375         If Not Utils._CheckArgument(pvItem, 1, vbObject) Then Goto Exit_Function
 376 &apos;Check Index argument
 377         If Not IsMissing(pvIndex) Then
 378                 If Not Utils._CheckArgument(pvIndex, 4, Utils._AddNumeric()) Then Goto Exit_Function
 379         End If
 380 &apos;Execute
 381 Dim iArgNr As Integer, lFormat As Long
 382 Dim i As Integer, iCount As Integer, iSelectedItems() As Integer, bListboxBound As Boolean
 383 Dim odbDatabase As Object, vNames As Variant, bFound As Boolean, sName As String, oModel As Object
 384 Dim ocButton As Variant, iRadioIndex As Integer
 385         _setProperty = True
 386         If _A2B_.CalledSub = &quot;setProperty&quot; Then iArgNr = 3 Else iArgNr = 2
 387         If Not PropertiesGet._hasProperty(pvItem._Type, pvItem._PropertiesList(), psProperty) Then Goto Trace_Error_Control
 388         Select Case UCase(psProperty)
 389                 Case UCase(&quot;AbsolutePosition&quot;)
 390                         If Not Utils._CheckArgument(pvItem, 1, OBJRECORDSET) Then Goto Exit_Function
 391                         pvItem.AbsolutePosition = pvValue
 392                 Case UCase(&quot;AllowAdditions&quot;)
 393                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 394                         pvItem.AllowAdditions = pvValue
 395                 Case UCase(&quot;AllowDeletions&quot;)
 396                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 397                         pvItem.AllowDeletions = pvValue
 398                 Case UCase(&quot;AllowEdits&quot;)
 399                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 400                         pvItem.AllowEdits = pvValue
 401                 Case UCase(&quot;BackColor&quot;)
 402                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 403                         pvItem.BackColor = pvValue
 404                 Case UCase(&quot;Bookmark&quot;)
 405                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJRECORDSET)) Then Goto Exit_Function
 406                         pvItem.Bookmark = pvValue
 407                 Case UCase(&quot;BorderColor&quot;)
 408                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 409                         pvItem.BorderColor = pvValue
 410                 Case UCase(&quot;BorderStyle&quot;)
 411                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 412                         pvItem.BorderColor = pvValue
 413                 Case UCase(&quot;Cancel&quot;)
 414                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 415                         pvItem.Cancel = pvValue
 416                 Case UCase(&quot;Caption&quot;)
 417                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG, OBJCONTROL)) Then Goto Exit_Function
 418                         pvItem.Caption = pvValue
 419                 Case UCase(&quot;ControlTipText&quot;)
 420                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 421                         pvItem.ControlTipText = pvValue
 422                 Case UCase(&quot;CurrentRecord&quot;)
 423                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 424                         pvItem.CurrentRecord = pvValue
 425                 Case UCase(&quot;Default&quot;)
 426                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 427                         pvItem.Default = pvValue
 428                 Case UCase(&quot;DefaultValue&quot;)
 429                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJCONTROL, OBJFIELD)) Then Goto Exit_Function
 430                         pvItem.DefaultValue = pvValue
 431                 Case UCase(&quot;Description&quot;)
 432                         If Not Utils._CheckArgument(pvItem, 1, OBJFIELD) Then Goto Exit_Function
 433                         pvItem.DefaultValue = pvValue
 434                 Case UCase(&quot;Enabled&quot;)
 435                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 436                         pvItem.Enabled = pvValue
 437                 Case UCase(&quot;Filter&quot;)
 438                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM, OBJRECORDSET)) Then Goto Exit_Function
 439                         pvItem.Filter = pvValue
 440                 Case UCase(&quot;FilterOn&quot;)
 441                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 442                         pvItem.FilterOn = pvValue
 443                 Case UCase(&quot;FontBold&quot;)
 444                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 445                         pvItem.FontBold = pvValue
 446                 Case UCase(&quot;FontItalic&quot;)
 447                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 448                         pvItem.FontItalic = pvValue
 449                 Case UCase(&quot;FontName&quot;)
 450                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 451                         pvItem.FontName = pvValue
 452                 Case UCase(&quot;FontSize&quot;)
 453                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 454                         pvItem.FontSize = pvValue
 455                 Case UCase(&quot;FontUnderline&quot;)
 456                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 457                         pvItem.FontUnderline = pvValue
 458                 Case UCase(&quot;FontWeight&quot;)
 459                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 460                         pvItem.FontWeight = pvValue
 461                 Case UCase(&quot;ForeColor&quot;)
 462                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 463                         pvItem.ForeColor = pvValue
 464                 Case UCase(&quot;Height&quot;)
 465                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG)) Then Goto Exit_Function
 466                         pvItem.Height = pvValue
 467                 Case UCase(&quot;ListIndex&quot;)
 468                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 469                         pvItem.ListIndex = pvValue
 470                 Case UCase(&quot;Locked&quot;)
 471                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 472                         pvItem.Locked = pvValue
 473                 Case UCase(&quot;MultiSelect&quot;)
 474                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 475                         pvItem.MultiSelect = pvValue
 476                 Case UCase(&quot;OnAction&quot;)
 477                         If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
 478                         pvItem.OnAction = pvValue
 479                 Case UCase(&quot;OptionValue&quot;)
 480                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 481                         pvItem.OptionValue = pvValue
 482                 Case UCase(&quot;OrderBy&quot;)
 483                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 484                         pvItem.OrderBy = pvValue
 485                 Case UCase(&quot;OrderByOn&quot;)
 486                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 487                         pvItem.OrderByOn = pvValue
 488                 Case UCase(&quot;Page&quot;)
 489                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJDIALOG, OBJCONTROL)) Then Goto Exit_Function
 490                         pvItem.Page = pvValue
 491                 Case UCase(&quot;RecordSource&quot;)
 492                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJSUBFORM)) Then Goto Exit_Function
 493                         pvItem.RecordSource = pvValue
 494                 Case UCase(&quot;Required&quot;)
 495                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 496                         pvItem.Required = pvValue
 497                 Case UCase(&quot;RowSource&quot;)
 498                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 499                         pvItem.RowSource = pvValue
 500                 Case UCase(&quot;RowSourceType&quot;)           &apos;  Refresh done when RowSource changes, not RowSourceType
 501                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 502                         pvItem.RowSourceType = pvValue
 503                 Case UCase(&quot;Selected&quot;)
 504                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 505                         If IsMissing(pvIndex) Then pvItem.Selected = pvValue Else pvItem.SelectedI(pvValue, pvIndex)
 506                 Case UCase(&quot;SelLength&quot;)
 507                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 508                         pvItem.SelLength = pvValue
 509                 Case UCase(&quot;SelStart&quot;)
 510                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 511                         pvItem.SelStart = pvValue
 512                 Case UCase(&quot;SelText&quot;)
 513                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 514                         pvItem.SelText = pvValue
 515                 Case UCase(&quot;SpecialEffect&quot;)
 516                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 517                         pvItem.SpecialEffect = pvValue
 518                 Case UCase(&quot;TabIndex&quot;)
 519                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 520                         pvItem.TabIndex = pvValue
 521                 Case UCase(&quot;TabStop&quot;)
 522                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 523                         pvItem.TabStop = pvValue
 524                 Case UCase(&quot;Tag&quot;)
 525                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 526                         pvItem.Tag = pvValue
 527                 Case UCase(&quot;TextAlign&quot;)
 528                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 529                         pvItem.TextAlign = pvValue
 530                 Case UCase(&quot;TooltipText&quot;)
 531                         If Not Utils._CheckArgument(pvItem, 1, OBJCOMMANDBARCONTROL) Then Goto Exit_Function
 532                         pvItem.TooltipText = pvValue
 533                 Case UCase(&quot;TripleState&quot;)
 534                         If Not Utils._CheckArgument(pvItem, 1, OBJCONTROL) Then Goto Exit_Function
 535                         pvItem.TripleState = pvValue
 536                 Case UCase(&quot;Value&quot;)
 537                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJCONTROL, OBJOPTIONGROUP, OBJFIELD, OBJTEMPVAR)) Then Goto Exit_Function
 538                         pvItem.Value = pvValue
 539                 Case UCase(&quot;Visible&quot;)
 540                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG, OBJCONTROL, OBJCOMMANDBAR, OBJCOMMANDBARCONTROL)) Then Goto Exit_Function
 541                         pvItem.Visible = pvValue
 542                 Case UCase(&quot;Width&quot;)
 543                         If Not Utils._CheckArgument(pvItem, 1, Array(OBJFORM, OBJDIALOG)) Then Goto Exit_Function
 544                         pvItem.Width = pvValue
 545                 Case Else
 546                         Goto Trace_Error_Control
 547         End Select
 548
 549 Exit_Function:
 550         Utils._ResetCalledSub(&quot;set&quot; &amp; psProperty)
 551         Exit Function
 552 Trace_Error_Form:
 553         TraceError(TRACEFATAL, ERRFORMNOTFOUND, Utils._CalledSub(), 0, 1, pvItem._Name)
 554         _setProperty = False
 555         Goto Exit_Function
 556 Trace_Error_Control:
 557         TraceError(TRACEFATAL, ERRPROPERTY, Utils._CalledSub(), 0, 1, psProperty)
 558         _setProperty = False
 559         Goto Exit_Function
 560 Trace_Error_Value:
 561         TraceError(TRACEFATAL, ERRPROPERTYVALUE, Utils._CalledSub(), 0, 1, Array(pvValue, psProperty))
 562         _setProperty = False
 563         Goto Exit_Function
 564 Trace_Error_Index:
 565         TraceError(TRACEFATAL, ERRINDEXVALUE, Utils._CalledSub(), 0, 1, psProperty)
 566         _setProperty = Nothing
 567         Goto Exit_Function
 568 Trace_Error_Array:
 569         TraceError(TRACEFATAL, ERRPROPERTYNOTARRAY, Utils._CalledSub(), 0, 1, iArgNr)
 570         _setProperty = Nothing
 571         Goto Exit_Function
 572 Error_Function:
 573         TraceError(TRACEABORT, Err, &quot;_setProperty&quot;, Erl)
 574         GoTo Exit_Function
 575 End Function            &apos;  _setProperty    V0.9.1
 576
 577 </script:module>