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