Quantcast
Channel: Excel Help Forum - Excel Programming / VBA / Macros
Viewing all articles
Browse latest Browse all 50085

How to show console messages during runtime in Excel VBA

$
0
0
Hi Everyone,

I am facing 2 issues while showing the console during run-time to display messages:

1. The console I have chosen is a text box (named OutputBox) which is overlapped with the UserForm (which I am using). On click of a command button on UserForm, I want the OutputBox to be active and the UserForm should be gone. And this OutputBox should display run-time messages. Now the issue is when I am clicking the command button in UserForm, it activates the OutputBox but the UserForm still remains visible which makes the console messages display very bad.

2. The second issue I am facing is that when the OutputBox displays run-time messages, it does not move to next line even though I have used vbCrLf in the code. It continues to print in the same line causing the messages to be unreadable.

Can anyone please help me resolving this issue. I have given the code snippet below for reference.

The code snippet which I am using is:

--------------------------------------------------------------------------------------
Private Sub OutputToScreen(strOutputScreen As String)

Dim WAIT As Double

OutputBox.Value = strOutputScreen & vbCrLf & OutputBox.Value
Form.Repaint
WAIT = Timer
While Timer < WAIT + 0.01
DoEvents 'do nothing
Wend

End Sub

---------------------------------------------------------------------------------------

Private Sub ExtractAgeData_Click()

Dim ret, age_date As Variant
Dim valDate_Start, valDate_End As Date
Dim strADDMAP As String
Dim valLoadDataToMainframe, valLoadToADABAS, valLoadToADABASIAM, valLoadToSysTest As Boolean
Dim PTCABSTranslate As Variant

On Error GoTo DAOEXISTS
Application.References.AddFromFile ("C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll")
Err.Clear
DAOEXISTS:
Resume Next

OutputBox.Value = ""
OutputBox.Visible = True
Form.Repaint

valLoadDataToMainframe = LoadDataToMainframe.Value
PTCABSTranslate = AddressMapCheck.Value
strADDMAP = AddressMapReference.Value

If valLoadDataToMainframe = True Then
If IsNull(mf_username.Value) Or Trim((mf_username.Value)) = "" Or IsNull(mf_password.Value) Then
ret = MsgBox("Error - username/password must be input", vbOKOnly)
OutputBox.Visible = False
Exit Sub
Else
OutputToScreen ("Data will be loaded to Mainframe.......")
End If
Else
OutputToScreen ("Data will NOT be loaded to Mainframe.......")
End If

If PTCABSTranslate = True Then
If Trim(strADDMAP) = "" Then
ret = MsgBox("Error - Address Map Reference must be input if the Use Address Maps is checked", vbOKOnly)
OutputBox.Visible = False
Exit Sub
End If
OutputToScreen ("PTCABS translation activated - using mapping " & strADDMAP & ".......")
Else
OutputToScreen ("PTCABS translation deactivated.......")
End If

age_date = BaseAgeDate.Value
If IsNull(age_date) Or Trim(age_date) = "" Then
age_date = Date
End If

OutputBox.SetFocus
OutputToScreen ("Using " & age_date & " as base date for ageing.......")

valLoadDataToMainframe = LoadDataToMainframe.Value

If IsNull(LoadToSystest) Then
valLoadToSysTest = False
Else
valLoadToSysTest = LoadToSystest.Value
End If

' ================================================================
' Determine if the addresses are to be translated using the address
' mapping and if so, what address mapping reference to use.
' ================================================================
If AddressMapCheck.Value = 0 Then
PTCABSTranslate = False
Else
PTCABSTranslate = True
End If

If IsNull(AddressMapReference.Value) Then
strADDMAP = ""
Else
strADDMAP = AddressMapReference.Value
End If

valDate_Start = Now()


OutputToScreen ("Extracting data from database - please wait.......")

'==================================================================
' Set output location for extracted data files and create directory
'==================================================================
OutputLocationName = ActiveWorkbook.Path & "DATALOAD-" & Replace(Replace(Replace(valDate_Start, "/", "-"), " ", "-"), ":", "-") & "\"
MkDir OutputLocationName

End Sub

-------------------------------------------------------------------------------------

Viewing all articles
Browse latest Browse all 50085

Trending Articles