Default VBA Code Comments

Posted on

Code Layout

Option Compare Database
Option Explicit
' Date: YYYY/MM/DD
' Author: First Middle Last 
' Current Version: 1.1.0 (Release.Build.Update)
' Notes:
'
' Public Variables
'
' Private Variables
'
' Public properties
'
' Public Functions
'
' Public Sub
'
' Private Functions
'
' Private Subs
'
'End Code

Class Module Default

Option Compare Database
Option Explicit
' Date: 08/08/2019
' Author: Gilbert Medel
' Current Version: 3.1.0
' Notes: 
'
' Public Variables
Public Local_ID As Variant
Public Network_PKEY As Variant
Public Parent As Object
Public Self As Object
Public [Unique Variables] ' Table Fields
'
' Private Variables
Private Data_Recset As Object
Private Const Object_Type As String = "NameOfClass" 'Identifies Class object Type listed in Factory
'Unique Variables
'
' Public properties
Public Property Get Name() As String
    Name = Object_Type
End Property
'
' Public Functions that return values
'
' Public Sub Routines
'
' Private Functions
'
' Private Subs Routines
Public Sub Zeroize()
    ID_Local = Null
    ID_Network = Null
    NOTES_= Null
    '[Unique Variables]  = Null/Nothing/Empty
    Set Parent = Nothing
 Exit Sub
End Sub
Private Sub Class_Initialize()
     Zeroize
End Sub
Private Sub Class_Terminate()
     Zeroize
End Sub
'
' End Code