Module: basDAOTools

Type: Standard
Lines of Code: 2261
Source: ms_access_files\vanadium\Modules\basDAOTools.bas

Dependencies

Module Dependencies: - db - frmADOrs - MyRs - ADOrs - gDataDRW - LstBox - dbs - Brs - Rs - Ars - CurrentProject - Columns - sFld

Tables Accessed: - the - frmADOrs - If - Err - a - ADOrs - code - one - As - Access - Next - mainly - End

External References: - shell32.dll - mpr.dll - user32 - kernel32

Procedures

IsLocal

Type: Public Function
Lines: 5
Returns: Boolean

Calls: IsLocal

OpnFileStdWin

Type: Public Function
Lines: 3
Parameters: sTheFile As String, Optional sOperation As String = "Open"

Calls: OpnFileStdWin

OpnDBForm

Type: Public Function
Lines: 8
Parameters: sFrmNme As String, Optional Mde As AcWindowMode = acWindowNormal, Optional Args As String = ""

Calls: OpnDBForm

OpnForm

Type: Public Function
Lines: 4
Parameters: sFrmNme As String, Optional Mde As AcWindowMode = acWindowNormal, Optional Args As String = ""

Calls: OpnForm

MaxIt

Type: Public Function
Lines: 3

Calls: MaxIt

ReqIt

Type: Public Function
Lines: 3
Parameters: Cntrl As Control

Calls: ReqIt

CmbBool

Type: Public Function
Lines: 5
Parameters: Bool1 As Boolean, Bool2 As Boolean
Returns: Boolean

Calls: CmbBool

Not0

Type: Public Function
Lines: 4
Parameters: gVal1 As Long, gVal2 As Long
Returns: Long

Calls: Not0

SQLRun

Type: Public Function
Lines: 29
Parameters: SQLString As String, Optional IgnoreError As Boolean = False, Optional IsQuery As Boolean = False
Returns: Boolean

Calls: SQLRun, LocalError

Complexity Notes: - ⚠️ Contains GoTo statements

GetDateRange

Type: Public Function
Lines: 109
Parameters: Cde As Long, Optional MyDate As Date = 0
Returns: String

Calls: OpenRecordset, Year, Val, DateSerial, Int, GetDateRange, Month, Where, LocalError, Abs (+3 more)

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements - ⚠️ High branching (19 If statements) - ⚠️ Large procedure (109 lines)

LoadListBoxSelected

Type: Public Function
Lines: 12
Parameters: LstBox As Control, Optional gColumn As Long = 0, Optional Delimiter As String = ";"
Returns: String

Calls: Column, LoadListBoxSelected

CleanProject

Type: Public Function
Lines: 4

Calls: CleanProject

ResetAutoKeyRS

Type: Public Function
Lines: 44
Parameters: MyRs As ADODB.Recordset, TableNme As String
Returns: Boolean

Calls: Val, Nz, GetKeyFld, DMax, VALUES, GetAutoFld, Str, ResetAutoKeyRS, WHERE

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements - ⚠️ High branching (8 If statements)

GetAutoFld

Type: Public Function
Lines: 10
Parameters: Rs As ADODB.Recordset
Returns: String

Calls: GetAutoFld

GetKeyFld

Type: Public Function
Lines: 10
Parameters: Rs As ADODB.Recordset
Returns: String

Calls: GetKeyFld

CleanTmpQuerys

Type: Public Function
Lines: 14
Parameters: Optional sPrefix As String = "~"

Calls: CleanTmpQuerys

CleanTbl

Type: Public Function
Lines: 11
Parameters: sTblNme As String, Optional sWhere As String = ""
Returns: Boolean

Calls: CleanTbl, IsTable, WHERE

IsTable

Type: Public Function
Lines: 16
Parameters: sTablenme As String
Returns: Boolean

Calls: IsTable

DelObj

Type: Public Function
Lines: 5
Parameters: sObjNme As String, ObjTpe As AcObjectType
Returns: Boolean

Calls: DelObj

Complexity Notes: - ⚠️ Uses On Error Resume Next

Tst

Type: Public Function
Lines: 4

Calls: Tst

TheFile

Type: Public Function
Lines: 3
Returns: String

Calls: TheFile

TheUsr

Type: Public Function
Lines: 4
Returns: String

Calls: TheUsr

ClnNumb

Type: Public Function
Lines: 9
Parameters: sDirty As String
Returns: String

Calls: InStr, ClnNumb

ClnDate

Type: Public Function
Lines: 3
Parameters: sDirty As String
Returns: Date

Calls: CDate, ClnDate

IsFormOpen

Type: Public Function
Lines: 3
Parameters: sFrmNme As String
Returns: Boolean

Calls: IsFormOpen, AllForms

ADOrs2MDBupd

Type: Public Function
Lines: 45
Parameters: ByRef ADOrs As ADODB.Recordset, MDBTable As String, sKeyFld As String
Returns: Boolean

Calls: OpenRecordset, ADOrs2MDBupd, IsTable, IsFieldValidDAO, Lrs, Fields

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements - ⚠️ High branching (6 If statements)

ADOrs2ADOrs

Type: Public Function
Lines: 40
Parameters: ByRef frmADOrs As ADODB.Recordset, toADOrs As ADODB.Recordset, Optional sFlds As String = ""
Returns: Boolean

Calls: InStr, ADOrs2ADOrs, IsFieldValidADO, toADOrs, Fields, LocalError

Complexity Notes: - ⚠️ Contains GoTo statements - ⚠️ High branching (8 If statements)

ADOrs2MDBtbl

Type: Public Function
Lines: 89
Parameters: ByRef ADOrs As ADODB.Recordset, MDBTable As String, Optional Clean As Boolean = True, Optional Action As enumUpdateTypes = uptAdd
Returns: Boolean

Calls: OpenRecordset, ADOrs, IsTable, LoadADO, In, IsFieldValidDAO, GetAutoFld, ADOrs2MDBtbl, Lrs, Fields (+2 more)

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements - ⚠️ High branching (18 If statements)

IsFieldValidDAO

Type: Public Function
Lines: 10
Parameters: ByRef Rs As DAO.Recordset, FldNme As String
Returns: Boolean

Calls: IsFieldValidDAO, Fields

IsFieldValidADO

Type: Public Function
Lines: 10
Parameters: ByRef Rs As ADODB.Recordset, FldNme As String
Returns: Boolean

Calls: IsFieldValidADO, Fields

IsIntRng

Type: Public Function
Lines: 17
Parameters: gNumb As Long, gStrt As Long, gEnd As Long, Optional sPassTxt As String = "", Optional sFailTxt As String = "Number {#} Failed"
Returns: String

Calls: Str, IsIntRng, Replace, InStr

IsStrLen

Type: Public Function
Lines: 17
Parameters: sText As String, gStrt As Long, gEnd As Long, Optional sPassTxt As String = "", Optional sFailTxt As String = "String Validation Failed {#}"
Returns: String

Calls: IsStrLen, InStr, Replace

IsDteValid

Type: Public Function
Lines: 21
Parameters: dDate As Date, Optional gStrt As Long = 70, Optional gEnd As Long = 70, Optional sPassTxt As String = "", Optional sFailTxt As String = "Date"
Returns: String

Calls: IsDteValid, InStr, Replace, Int

Complexity Notes: - ⚠️ High branching (6 If statements)

LoadBlob2File

Type: Public Function
Lines: 40
Parameters: sFile As String, RecId As Long
Returns: Long

Calls: LoadBlob2File, LOF, Rs, abytData, LocalError, WHERE

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements

LoadFile2Blob

Type: Public Function
Lines: 49
Parameters: sFile As String, RecId As Long
Returns: Boolean

Calls: LoadFile2Blob, Rs, Fields, Dir, LocalError, WHERE

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements

EvalFunctions

Type: Public Function
Lines: 28
Parameters: MyStr As String
Returns: String

Calls: Eval, InStr, Replace, EvalFunctions

GetRsFromMDB

Type: Public Function
Lines: 28
Parameters: ByRef TheRs As ADODB.Recordset, sSql As String
Returns: Boolean

Calls: LocalError, GetRsFromMDB

Complexity Notes: - ⚠️ Uses On Error Resume Next

GetDefault

Type: Public Function
Lines: 14
Parameters: Grp As Long, Optional OptWhere As String
Returns: Long

Calls: DLookup, Val, GetDefault, Nz

Complexity Notes: - ⚠️ High branching (6 If statements)

GetLastLookupId

Type: Public Function
Lines: 9
Parameters: Optional Grp As Long = 0
Returns: Long

Calls: Nz, Val, DMax, GetLastLookupId

GetParm

Type: Public Function
Lines: 42
Parameters: String2Split As String, Optional Pos As Integer = 1, Optional sPar As String = "", Optional sDelim As String = "#", Optional sParDelim As String = ":="
Returns: String

Calls: yPar, Split, LBound, zPar, InStr, UBound, GetParm

Complexity Notes: - ⚠️ High branching (8 If statements)

SQLinsertT2T

Type: Public Function
Lines: 31
Parameters: sTableFrom As String, sTableTo As String, Optional sWhere As String = "", Optional sExcludeFields As String = ""
Returns: String

Calls: OpenRecordset, IsFieldValidDAO, InStr, SQLinsertT2T, LocalError

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements

NmeReplaceDate

Type: Public Function
Lines: 15
Parameters: Nme As String
Returns: String

Calls: NmeReplaceDate, InStr, InStrRev, Replace

OpnExplorer

Type: Public Function
Lines: 4
Parameters: Optional sFolder As String = ""
Returns: Boolean

Calls: OpnExplorer

GetPass

Type: Public Function
Lines: 13
Parameters: Optional MessHead As String = "PROGRAMMER", Optional MessQues As String = "Password ?", Optional gChars As Long = 0
Returns: Boolean

Calls: Year, Val, Minute, Hour, Second, GetPass

SetProtect

Type: Public Function
Lines: 25

Calls: SetProtect, Minute, Hour, Second, GetPass

SetProperties

Type: Public Function
Lines: 22
Parameters: strPropName As String, varPropType As Variant, varPropValue As Variant
Returns: Integer

Calls: Properties, CreateProperty, SetProperties

Complexity Notes: - ⚠️ Contains GoTo statements

SetProp

Type: Public Sub
Lines: 54
Parameters: sPropNme As String, Prop As Variant, DTpe As DataTypeEnum

Calls: Properties, CreateProperty, SetProp

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements

GetDBProp

Type: Public Function
Lines: 55

Calls: OpenRecordset, GetDBProp, LocalError

Complexity Notes: - ⚠️ Uses On Error Resume Next - ⚠️ Contains GoTo statements

Conv

Type: Public Function
Lines: 11
Parameters: sFrm As String, sTo As String, cValue As Currency
Returns: Currency

Calls: Abs, Conv

SystemInfo

Type: Public Sub
Lines: 10
Parameters: ByVal sMess As String, Optional ByVal bRemoveMeter As Boolean = False

Calls: SysCmd, Properties, SystemInfo

GetUserName

Type: Public Function
Lines: 25
Returns: String

Calls: InStr, GetUserName, Chr

DateToString

Type: Public Function
Lines: 7
Parameters: ByVal vvntIn As Variant
Returns: String

Calls: DateToString

SQLDouble

Type: Public Function
Lines: 13
Parameters: dblValue As Double
Returns: String

Calls: CStr, Replace, SQLDouble

GetDecimalSeparator

Type: Public Function
Lines: 6
Returns: String

Calls: GetDecimalSeparator

GetDesktop

Type: Public Function
Lines: 3
Returns: String

Calls: Environ, GetDesktop

ReportExists

Type: Public Function
Lines: 4
Parameters: strReportName As String
Returns: Boolean

Calls: ReportExists, AllReports

Complexity Notes: - ⚠️ Uses On Error Resume Next

FormExists

Type: Public Function
Lines: 12
Parameters: ByVal strTempFormName As String
Returns: Boolean

Calls: FormExists

PassCde

Type: Public Function
Lines: 13
Parameters: Pw As String
Returns: String

Calls: Asc, PassCde, Str