Periodically I sweep the database looking for aberrations - catalogued tracks that no longer exist, tracks that are not catalogued (that is, new files), and tracks, if any, with a zero-length duration.
For the short reports of various events, a ticker-tape-like caption is maintained across the top of the application.
Code: Select all
Public Const lngcCaptionLimit As Long = 220
'
Function CaptionLogger(strText As String)
Dim strNewCaption As String
strNewCaption = Application.Caption & "; " & strText
strNewCaption = Right(strNewCaption, lngcCaptionLimit)
Application.Caption = strNewCaption
'Sub TESTCaptionLogger()
' Call CaptionLogger("first event")
' Call CaptionLogger("second event")
' Call CaptionLogger("third event")
' Call CaptionLogger("fourth event")
' Call CaptionLogger("fifth event")
' Call CaptionLogger("sixth event")
' Call CaptionLogger("seventh event")
' Call CaptionLogger("eighth event")
' Call CaptionLogger("ninth event")
' Call CaptionLogger("tenth event")
'End Sub
End Function
Cheers, Chris