Rayharwood: Created page with "To log activities (especially during long-running tasks), create a text box and call "LogAction" to update with text. * Create Text Box: Make Multi-Line Drag to cover l..."

2013-02-12T13:50:26Z

Created page with "To log activities (especially during long-running tasks), create a text box and call "LogAction" to update with text. * Create Text Box: ** Make Multi-Line ** Drag to cover l..."

New page

To log activities (especially during long-running tasks), create a text box and call "LogAction" to update with text.

* Create Text Box:
** Make Multi-Line
** Drag to cover large area of form (expand form as necessary)
** Change Anchor to include bottom and right
** Change name to tbLogInfo
** Add Scrollbars
** Make Read-Only
** Make Word-Wrap = False

* Add this sub:

Sub LogAction(ByVal TheText As String)
tbLogInfo.Text &= Format(Now, "hh:mm:ss tt") & " " & TheText & vbCrLf
tbLogInfo.Select(tbLogInfo.TextLength, 1)
tbLogInfo.ScrollToCaret()
Application.DoEvents()
End Sub

This sub appends the text, add CR/LF, and scrolls to the end. The Application.DoEvents gives Windows a time to catch up on screen paints.

* Call with:

LogAction("Unknown: " & Acct_Rec.AccountName & " (" & Acct_Rec.RowState & ")")

Logging Activities to a Text Box - Revision history

Rayharwood: Created page with "To log activities (especially during long-running tasks), create a text box and call "LogAction" to update with text. * Create Text Box: ** Make Multi-Line ** Drag to cover l..."

Rayharwood: Created page with "To log activities (especially during long-running tasks), create a text box and call "LogAction" to update with text. * Create Text Box: Make Multi-Line Drag to cover l..."