wizards/source/access2base/acConstants.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="acConstants" script:language="StarBasic">REM =======================================================================================================================
   4 REM ===                                 The Access2Base library is a part of the LibreOffice project.                                                                   ===
   5 REM ===                                 Full documentation is available on http://www.access2base.com                                                                   ===
   6 REM =======================================================================================================================
   7
   8 Option Explicit
   9
  10 REM Access2Base -----------------------------------------------------
  11 Global Const Access2Base_Version = &quot;1.6.0&quot;
  12
  13 REM AcCloseSave
  14 REM -----------------------------------------------------------------
  15 Global Const acSaveNo = 2
  16 Global Const acSavePrompt = 0
  17 Global Const acSaveYes = 1
  18
  19 REM AcFormView
  20 REM -----------------------------------------------------------------
  21 Global Const acDesign = 1
  22 Global Const acNormal = 0
  23 Global Const acPreview = 2
  24
  25 REM AcFormOpenDataMode
  26 REM -----------------------------------------------------------------
  27 Global Const acFormAdd = 0
  28 Global Const acFormEdit = 1
  29 Global Const acFormPropertySettings = -1
  30 Global Const acFormReadOnly = 2
  31
  32 REM acView
  33 REM -----------------------------------------------------------------
  34 Global Const acViewDesign = 1
  35 Global Const acViewNormal = 0
  36 Global Const acViewPreview = 2
  37
  38 REM acOpenDataMode
  39 REM -----------------------------------------------------------------
  40 Global Const acAdd = 0
  41 Global Const acEdit = 1
  42 Global Const acReadOnly = 2
  43
  44 REM AcObjectType
  45 REM -----------------------------------------------------------------
  46 Global Const acDefault = -1
  47 Global Const acDiagram = 8
  48 Global Const acForm = 2
  49 Global Const acQuery = 1
  50 Global Const acReport = 3
  51 Global Const acTable = 0
  52 &apos;                  Unexisting in MS/Access
  53 Global Const acBasicIDE = 101
  54 Global Const acDatabaseWindow = 102
  55 Global Const acDocument = 111
  56 Global Const acWelcome = 112
  57 &apos;                  Subtype if acDocument
  58 Global Const docWriter = &quot;Writer&quot;
  59 Global Const docCalc = &quot;Calc&quot;
  60 Global Const docImpress = &quot;Impress&quot;
  61 Global Const docDraw = &quot;Draw&quot;
  62 Global Const docMath = &quot;Math&quot;
  63
  64 REM AcWindowMode
  65 REM -----------------------------------------------------------------
  66 Global Const acDialog = 3
  67 Global Const acHidden = 1
  68 Global Const acIcon = 2
  69 Global Const acWindowNormal = 0
  70
  71 REM VarType constants
  72 REM -----------------------------------------------------------------
  73 Global Const vbEmpty = 0
  74 Global Const vbNull = 1
  75 Global Const vbInteger = 2
  76 Global Const vbLong = 3
  77 Global Const vbSingle = 4
  78 Global Const vbDouble = 5
  79 Global Const vbCurrency = 6
  80 Global Const vbDate = 7
  81 Global Const vbString = 8
  82 Global Const vbObject = 9
  83 Global Const vbBoolean = 11
  84 Global Const vbVariant = 12
  85 Global Const vbByte = 17
  86 Global Const vbUShort = 18
  87 Global Const vbULong = 19
  88 Global Const vbBigint = 35
  89 Global Const vbDecimal = 37
  90 Global Const vbArray = 8192
  91
  92 REM MsgBox constants
  93 REM -----------------------------------------------------------------
  94 Global Const vbOKOnly = 0                       &apos;  OK button only (default)
  95 Global Const vbOKCancel = 1             &apos;  OK and Cancel buttons
  96 Global Const vbAbortRetryIgnore = 2 &apos;      Abort, Retry, and Ignore buttons
  97 Global Const vbYesNoCancel = 3          &apos;  Yes, No, and Cancel buttons
  98 Global Const vbYesNo = 4                        &apos;  Yes and No buttons
  99 Global Const vbRetryCancel = 5          &apos;  Retry and Cancel buttons
 100 Global Const vbCritical = 16            &apos;  Critical message
 101 Global Const vbQuestion = 32            &apos;  Warning query
 102 Global Const vbExclamation = 48         &apos;  Warning message
 103 Global Const vbInformation = 64         &apos;  Information message
 104 Global Const vbDefaultButton1 = 128     &apos;  First button is default (default) (VBA: 0)
 105 Global Const vbDefaultButton2 = 256 &apos;      Second button is default
 106 Global Const vbDefaultButton3 = 512 &apos;      Third button is default
 107 Global Const vbApplicationModal = 0 &apos;      Application modal message box (default)
 108 REM MsgBox Return Values
 109 REM -----------------------------------------------------------------
 110 Global Const vbOK = 1                           &apos;  OK button pressed
 111 Global Const vbCancel = 2                       &apos;  Cancel button pressed
 112 Global Const vbAbort = 3                        &apos;  Abort button pressed
 113 Global Const vbRetry = 4                        &apos;  Retry button pressed
 114 Global Const vbIgnore = 5                       &apos;  Ignore button pressed
 115 Global Const vbYes = 6                          &apos;  Yes button pressed
 116 Global Const vbNo = 7                           &apos;  No button pressed
 117
 118 REM Dialogs Return Values
 119 REM ------------------------------------------------------------------
 120 Global Const dlgOK = 1                          &apos;  OK button pressed
 121 Global Const dlgCancel = 0                      &apos;  Cancel button pressed
 122
 123 REM Control Types
 124 REM -----------------------------------------------------------------
 125 Global Const acCheckBox = 5
 126 Global Const acComboBox = 7
 127 Global Const acCommandButton = 2        :       Global Const acToggleButton = 122
 128 Global Const acCurrencyField = 18
 129 Global Const acDateField = 15
 130 Global Const acFileControl = 12
 131 Global Const acFixedLine = 24                   &apos;  FREE ENTRY (USEFUL IN DIALOGS)
 132 Global Const acFixedText = 10           :       Global Const acLabel = 10
 133 Global Const acFormattedField = 1               &apos;  FREE ENTRY TAKEN TO NOT CONFUSE WITH acTextField
 134 Global Const acGridControl = 11
 135 Global Const acGroupBox = 8                     :       Global Const acOptionGroup = 8
 136 Global Const acHiddenControl = 13
 137 Global Const acImageButton = 4
 138 Global Const acImageControl = 14        :       Global Const acImage = 14
 139 Global Const acListBox = 6
 140 Global Const acNavigationBar = 22
 141 Global Const acNumericField = 17
 142 Global Const acPatternField = 19
 143 Global Const acProgressBar = 23                 &apos;  FREE ENTRY (USEFUL IN DIALOGS)
 144 Global Const acRadioButton = 3          :       Global Const acOptionButton = 3
 145 Global Const acScrollBar = 20
 146 Global Const acSpinButton = 21
 147 Global Const acSubform = 112
 148 Global Const acTextField = 9            :       Global Const acTextBox = 9
 149 Global Const acTimeField = 16
 150
 151 REM Record
 152 REM -----------------------------------------------------------------
 153 Global Const acFirst = 2
 154 Global Const acGoTo = 4
 155 Global Const acLast = 3
 156 Global Const acNewRec = 5
 157 Global Const acNext = 1
 158 Global Const acPrevious = 0
 159
 160 REM FindRecord
 161 REM -----------------------------------------------------------------
 162 Global Const acAnywhere = 0
 163 Global Const acEntire = 1
 164 Global Const acStart = 2
 165 Global Const acDown = 1
 166 Global Const acSearchAll = 2
 167 Global Const acUp = 0
 168 Global Const acAll = 0
 169 Global Const acCurrent = -1
 170
 171 REM AcDataObjectType
 172 REM -----------------------------------------------------------------
 173 Global Const acActiveDataObject = -1
 174 Global Const acDataForm = 2
 175 Global Const acDataQuery = 1
 176 Global Const acDataServerView = 7
 177 Global Const acDataStoredProcedure = 9
 178 Global Const acDataTable = 0
 179
 180 REM AcRecord
 181 REM -----------------------------------------------------------------
 182 Global Const acFirst = 2
 183 Global Const acGoTo = 4
 184 Global Const acLast = 3
 185 Global Const acNewRec = 5
 186 Global Const acNext = 1
 187 Global Const acPrevious = 0
 188
 189 REM AcQuitOption
 190 REM -----------------------------------------------------------------
 191 Global Const acQuitPrompt = 0
 192 Global Const acQuitSaveAll = 1
 193 Global Const acQuitSaveNone = 2
 194
 195 REM AcCommand
 196 REM -----------------------------------------------------------------
 197 Global Const acCmdAboutMicrosoftAccess = 35
 198 Global Const acCmdAboutOpenOffice = 35
 199 Global Const acCmdAboutLibreOffice = 35
 200 Global Const acCmdVisualBasicEditor = 525
 201 Global Const acCmdBringToFront = 52
 202 Global Const acCmdClose = 58
 203 Global Const acCmdToolbarsCustomize = 165
 204 Global Const acCmdChangeToCommandButton = 501
 205 Global Const acCmdChangeToCheckBox = 231
 206 Global Const acCmdChangeToComboBox = 230
 207 Global Const acCmdChangeToTextBox = 227
 208 Global Const acCmdChangeToLabel = 228
 209 Global Const acCmdChangeToImage = 234
 210 Global Const acCmdChangeToListBox = 229
 211 Global Const acCmdChangeToOptionButton = 233
 212 Global Const acCmdCopy = 190
 213 Global Const acCmdCut = 189
 214 Global Const acCmdCreateRelationship = 150
 215 Global Const acCmdDelete = 337
 216 Global Const acCmdDatabaseProperties = 256
 217 Global Const acCmdSQLView = 184
 218 Global Const acCmdRemove = 366
 219 Global Const acCmdDesignView = 183
 220 Global Const acCmdFormView = 281
 221 Global Const acCmdNewObjectForm = 136
 222 Global Const acCmdNewObjectTable = 134
 223 Global Const acCmdNewObjectView = 350
 224 Global Const acCmdOpenDatabase = 25
 225 Global Const acCmdRemove = 366
 226 Global Const acCmdDesignView = 183
 227 Global Const acCmdNewObjectQuery = 135
 228 Global Const acCmdShowAllRelationships = 149
 229 Global Const acCmdRemove = 366
 230 Global Const acCmdDesignView = 183
 231 Global Const acCmdNewObjectReport = 137
 232 Global Const acCmdSelectAll = 333
 233 Global Const acCmdRemoveTable = 84
 234 Global Const acCmdDesignView = 183
 235 Global Const acCmdOpenTable = 221
 236 Global Const acCmdRename = 143
 237 Global Const acCmdDelete = 337
 238 Global Const acCmdDeleteRecord = 223
 239 Global Const acCmdApplyFilterSort = 93
 240 Global Const acCmdSnapToGrid = 62
 241 Global Const acCmdViewGrid = 63
 242 Global Const acCmdInsertHyperlink = 259
 243 Global Const acCmdMaximumRecords = 508
 244 Global Const acCmdObjectBrowser = 200
 245 Global Const acCmdPaste = 191
 246 Global Const acCmdPasteSpecial = 64
 247 Global Const acCmdPrint = 340
 248 Global Const acCmdPrintPreview = 54
 249 Global Const acCmdSaveRecord = 97
 250 Global Const acCmdFind = 30
 251 Global Const acCmdUndo = 292
 252 Global Const acCmdRefresh = 18
 253 Global Const acCmdRemoveFilterSort = 144
 254 Global Const acCmdRunMacro = 31
 255 Global Const acCmdSave = 20
 256 Global Const acCmdSaveAs = 21
 257 Global Const acCmdFind = 30
 258 Global Const acCmdSelectAll = 333
 259 Global Const acCmdSelectAllRecords = 109
 260 Global Const acCmdSendToBack = 53
 261 Global Const acCmdSortDescending = 164
 262 Global Const acCmdSortAscending = 163
 263 Global Const acCmdTabOrder = 41
 264 Global Const acCmdDatasheetView = 282
 265 Global Const acCmdZoomSelection = 371
 266
 267 REM AcSendObjectType
 268 REM -----------------------------------------------------------------
 269 Global Const acSendForm = 2
 270 Global Const acSendNoObject = -1
 271 Global Const acSendQuery = 1
 272 Global Const acSendReport = 3
 273 Global Const acSendTable = 0
 274
 275 REM AcOutputObjectType
 276 REM -----------------------------------------------------------------
 277 Global Const acOutputTable = 0
 278 Global Const acOutputQuery = 1
 279 Global Const acOutputForm = 2
 280 Global Const acOutputArray = -1
 281
 282 REM AcEncoding
 283 REM -----------------------------------------------------------------
 284 Global Const acUTF8Encoding = 76
 285
 286 REM AcFormat
 287 REM -----------------------------------------------------------------
 288 Global Const acFormatPDF = &quot;writer_pdf_Export&quot;
 289 Global Const acFormatODT = &quot;writer8&quot;
 290 Global Const acFormatDOC = &quot;MS Word 97&quot;
 291 Global Const acFormatHTML = &quot;HTML&quot;
 292 Global Const acFormatODS = &quot;calc8&quot;
 293 Global Const acFormatXLS = &quot;MS Excel 97&quot;
 294 Global Const acFormatXLSX = &quot;Calc MS Excel 2007 XML&quot;
 295 Global Const acFormatTXT = &quot;Text - txt - csv (StarCalc)&quot;
 296
 297 REM AcExportQuality
 298 REM -----------------------------------------------------------------
 299 Global Const acExportQualityPrint = 0
 300 Global Const acExportQualityScreen = 1
 301
 302 REM AcSysCmdAction
 303 REM -----------------------------------------------------------------
 304 Global Const acSysCmdAccessDir = 9
 305 Global Const acSysCmdAccessVer = 7
 306 Global Const acSysCmdClearHelpTopic = 11
 307 Global Const acSysCmdClearStatus = 5
 308 Global Const acSysCmdGetObjectState = 10
 309 Global Const acSysCmdGetWorkgroupFile = 13
 310 Global Const acSysCmdIniFile = 8
 311 Global Const acSysCmdInitMeter = 1
 312 Global Const acSysCmdProfile = 12
 313 Global Const acSysCmdRemoveMeter = 3
 314 Global Const acSysCmdRuntime = 6
 315 Global Const acSysCmdSetStatus = 4
 316 Global Const acSysCmdUpdateMeter = 2
 317
 318 REM Type property
 319 REM -----------------------------------------------------------------
 320 Global Const dbBigInt = 16
 321 Global Const dbBinary = 9
 322 Global Const dbBoolean = 1
 323 Global Const dbByte = 2
 324 Global Const dbChar = 18
 325 Global Const dbCurrency = 5
 326 Global Const dbDate = 8
 327 Global Const dbDecimal = 20
 328 Global Const dbDouble = 7
 329 Global Const dbFloat = 21
 330 Global Const dbGUID = 15
 331 Global Const dbInteger = 3
 332 Global Const dbLong = 4
 333 Global Const dbLongBinary = 11  &apos;  (OLE Object)
 334 Global Const dbMemo= 12
 335 Global Const dbNumeric = 19
 336 Global Const dbSingle = 6
 337 Global Const dbText = 10
 338 Global Const dbTime = 22
 339 Global Const dbTimeStamp = 23
 340 Global Const dbVarBinary = 17
 341 Global Const dbUndefined = -1
 342
 343 REM Attributes property
 344 REM -----------------------------------------------------------------
 345 Global Const dbAutoIncrField = 16
 346 Global Const dbDescending = 1
 347 Global Const dbFixedField = 1
 348 Global Const dbHyperlinkField = 32768
 349 Global Const dbSystemField = 8192
 350 Global Const dbUpdatableField = 32
 351 Global Const dbVariableField = 2
 352
 353 REM OpenRecordset
 354 REM -----------------------------------------------------------------
 355 Global Const dbOpenForwardOnly = 8
 356 Global Const dbSQLPassThrough = 64
 357 Global Const dbReadOnly = 4
 358
 359 REM Query types
 360 REM -----------------------------------------------------------------
 361 Global Const dbQAction = 240
 362 Global Const dbQAppend = 64
 363 Global Const dbQDDL = 4 &apos;96
 364 Global Const dbQDelete = 32
 365 Global Const dbQMakeTable = 128 &apos;80
 366 Global Const dbQSelect = 0
 367 Global Const dbQSetOperation = 8        &apos;128
 368 Global Const dbQSQLPassThrough = 1      &apos;112
 369 Global Const dbQUpdate = 16     &apos;48
 370
 371 REM Edit mode
 372 REM -----------------------------------------------------------------
 373 Global Const dbEditNone = 0
 374 Global Const dbEditInProgress = 1
 375 Global Const dbEditAdd = 2
 376
 377 REM Toolbars
 378 REM -----------------------------------------------------------------
 379 Global Const msoBarTypeNormal = 0               &apos;  Usual toolbar
 380 Global Const msoBarTypeMenuBar = 1              &apos;  Menu bar
 381 Global Const msoBarTypePopup = 2                &apos;  Shortcut menu
 382 Global Const msoBarTypeStatusBar = 11   &apos;  Status bar
 383 Global Const msoBarTypeFloater = 12             &apos;  Floating window
 384
 385 Global Const msoControlButton = 1               &apos;  Command button
 386 Global Const msoControlPopup = 10               &apos;  Popup, submenu
 387
 388 REM New Line
 389 REM -----------------------------------------------------------------
 390 Public Function vbNewLine() As String
 391 Const cstWindows = 1
 392         If GetGuiType() = cstWindows Then vbNewLine = Chr(13) &amp; Chr(10) Else vbNewLine = Chr(10)
 393 End Function    &apos;  vbNewLine V1.4.0
 394
 395 </script:module>