Skip to content

audit - Implementation Details

VBA Modules

Form_Add and Edit Audit Check List (Form)

File: ms_access_files\audit\Forms\Frm Add and Edit Audit Check List.txt Lines: 35

Procedures

Private Sub CloseForm_Click() - ⚠️ Contains GoTo statements

Private Sub NewRecord_Click() - ⚠️ Contains GoTo statements

Form_Change Password (Form)

File: ms_access_files\audit\Forms\Frm Change Password.txt Lines: 138

Procedures

Private Sub CancelButton_Click()

Private Sub CurrentPassword_AfterUpdate()

Private Sub Form_Open(Cancel As Integer)

Private Sub NewPassword_AfterUpdate()

Private Sub OKButton_Click()

Form_Configure Entrepreneur Company VA Pack Audit Detail (Form)

File: ms_access_files\audit\Forms\Frm Configure Entrepreneur Company VA Pack Audit Detail.txt Lines: 63

Procedures

Private Sub AddToList_Click()

Private Sub CloseForm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_Close()

Private Sub Form_Open(Cancel As Integer)

Private Sub InTheList_KeyDown(KeyCode As Integer, Shift As Integer)

Form_Edit VA Pack Audit Status (Form)

File: ms_access_files\audit\Forms\Frm Edit VA Pack Audit Status.txt Lines: 153

Procedures

Public Sub SaveTheChanges()

Private Sub CloseForm_Click() - ⚠️ Contains GoTo statements

Private Sub Form_Close()

Private Sub Form_Open(Cancel As Integer)

Private Sub New_Status_Note_AfterUpdate()

Private Sub SaveIt_Click()

Private Sub SubFrm_VA_Pack_Audit_Score_Detail_Enter()

Private Sub VA_Pack_Audit_Status_ID_AfterUpdate()

Form_Entrepreneur Company Principal Project List (Form)

File: ms_access_files\audit\Forms\Frm Entrepreneur Company Principal Project List.txt Lines: 176

Procedures

Private Sub UpdateList() - ⚠️ High branching (9 If statements)

Private Sub InitialiseNewAudit()

Private Sub AddNewAudit_Click()

Private Sub ClearFilters_Click()

Private Sub CloseForm_Click()

Private Sub CompanyPrincipalProjectList_DblClick(Cancel As Integer)

Private Sub Filter1_AfterUpdate()

Private Sub Form_Open(Cancel As Integer)

Private Sub MaintenanceMenu_Click()

Private Sub StrCriteria1_AfterUpdate()

Private Sub VAPackAuditStatus_AfterUpdate()

Form_Maintenance Menu (Form)

File: ms_access_files\audit\Forms\Frm Maintenance Menu.txt Lines: 24

Procedures

Private Sub AuditCheckList_Click()

Private Sub CloseForm_Click() - ⚠️ Contains GoTo statements

Form_Opening Dialog (Form)

File: ms_access_files\audit\Forms\Frm Opening Dialog.txt Lines: 97

Procedures

Private Sub CancelButton_Click()

Private Sub Form_Open(Cancel As Integer)

Private Sub Password_AfterUpdate()

Private Sub Username_AfterUpdate()

Form_SubFrm VA Pack Audit Score Detail (Form)

File: ms_access_files\audit\Forms\SubFrm VA Pack Audit Score Detail.txt Lines: 12

Procedures

Private Sub VA_Pack_Audit_Actual_Score_BeforeUpdate(Cancel As Integer) - ⚠️ Uses SendKeys

File: ms_access_files\audit\Modules\basRelink.bas Lines: 562

Procedures

Public Function RelinkODBC() As Boolean - ⚠️ Contains GoTo statements; High branching (8 If statements); Large procedure (148 lines)

Public Function Update_zstblODBC() As Boolean - ⚠️ Contains GoTo statements

Public Function RelinkTablesLocal() As Boolean - ⚠️ Contains GoTo statements

Public Function CompactTablesMain() As Boolean - ⚠️ Contains GoTo statements

Public Function CompactTablesLocal() As Boolean - ⚠️ Contains GoTo statements

Public Function TableExists(ByVal pstrTableName As String) As Boolean - ⚠️ Uses On Error Resume Next

Mod Export Excel (Standard)

File: ms_access_files\audit\Modules\Mod Export Excel.bas Lines: 261

Procedures

Public Sub ExportActionLogToExcel(FromAuto As Boolean, Optional TheFileName As String) - ⚠️ Contains GoTo statements; High branching (13 If statements); Large procedure (259 lines)

Mod Send Outlook Message (Standard)

File: ms_access_files\audit\Modules\Mod Send Outlook Message.bas Lines: 53

Procedures

Public Sub SendOutlookMessage(Recip As String, Optional fileName As String, Optional SubText As String, Optional BodyText As String, Optional CCText As String)

Mod Utilities (Standard)

File: ms_access_files\audit\Modules\Mod Utilities.bas Lines: 140

Procedures

Public Function GetXofY(f As Form) - ⚠️ Uses On Error Resume Next

Public Function IsLoaded(ByVal strFormName As String) As Boolean

Public Function StringsSameCase(x As String, y As String) As Boolean

Public Function CheckForUpper(CheckString As String)

Public Function CheckForSpecial(CheckString As String)

Public Function CheckForNumber(CheckString As String)

Public Sub DeleteImportErrorTables()

Public Sub ObjectCounts()

SQL Queries

Qry Company Principal Project List

Type: Select

SELECT vwPurpleAuditCompanyPrincipalProjectList.[Entrepreneur Company Principal Project, vwPurpleAuditCompanyPrincipalProjectList.[Company Name], vwPurpleAuditCompanyPrincipalProjectList.[Principal Project], vwPurpleAuditCompanyPrincipalProjectList.[Date Contract Signed], vwPurpleAuditCompanyPrincipalProjectList.[VA Pack Audit Status ID], VAPackAuditStatus.[VA Pack Audit Status], vwPurpleAuditCompanyPrincipalProjectList.[Date Status Changed], vwPurpleAuditCompanyPrincipalProjectList.[Status Changed By], vwPurpleAuditCompanyPrincipalProjectList.[Audit Score] FROM [VAPackAuditStatus], [vwPurpleAuditCompanyPrincipalProjectList]

Qry Entrepreneur Company VA Pack Audit Detail Config List

Type: Select

SELECT [Entrepreneur Company VA Pack Audit Detail].[Entrepreneur Company VA Pack Audit , [Entrepreneur Company VA Pack Audit Detail].[Entrepreneur Company Principal Proj, [Entrepreneur Company VA Pack Audit Detail].[VA Pack Audit Score Template ID], [Entrepreneur Company VA Pack Audit Detail].[VA Pack Audit Score Item], [Entrepreneur Company VA Pack Audit Detail].[VA Pack Audit Possible Score], [Entrepreneur Company VA Pack Audit Detail].[VA Pack Audit Actual Score], [Entrepreneur Company VA Pack Audit Detail].[VA Pack Audit Score Sort Order] FROM [Entrepreneur Company VA Pack Audit Detail] WHERE ((([Entrepreneur Company VA Pack Audit Detail].[Entrepreneur Company Principal P

Qry Entrepreneur Company VA Pack Audit Detail Not in Config List

Type: Select

SELECT [VA Pack Audit Score Template].[VA Pack Audit Score Template ID], [VA Pack Audit Score Template].[VA Pack Audit Score Item], [VA Pack Audit Score Template].[VA Pack Audit Possible Score], [VA Pack Audit Score Template].[VA Pack Audit Score Sort Order] FROM [Qry Entrepreneur Company VA Pack Audit Detail Config List], [VA Pack Audit Score Template] WHERE ((([Qry Entrepreneur Company VA Pack Audit Detail Config List].[VA Pack Audit Sc

qryLinkODBC

Type: Select

SELECT zstblODBC_db.Driver, zstblODBC_db.ServerName, zstblODBC_db.DBName, zstblODBC_db.Authentication, zstblODBC_db.UID, zstblODBC_db.PWD, zstblODBC_tables.Hidden, zstblODBC_tables.TableName, zstblODBC_tables.SourceTableName, zstblODBC_tables.AfterDDL FROM [zstblODBC_db], [zstblODBC_tables] WHERE (((zstblODBC_db.SelectDB)=True) AND ((zstblODBC_tables.Link)=True))