aduguid

Public Function DateFormat()As String
'------------------------------------------------------------------------------------------------
' Purpose:  To standardize the date format in a report
' Example:  Format = Code.DateFormat()
'------------------------------------------------------------------------------------------------
	Return "dd-MMM-yyyy  hh:mm"

End Function

aduguid

Private Alt As Boolean

Public Function CandyStripe( _
Optional ByVal NewRow As Boolean = False _
, Optional ByVal OddColor as String = "Beige" _
, Optional ByVal EvenColor as String = "White") As String
'------------------------------------------------------------------------------------------------
' Purpose:  To candy stripe the detail rows of a report
' Example: BackgroundColor = Code.CandyStripe()