Message Box

[dr223]

Hi,

I have a message box result which is displayed as;

 Dim rs As DAO.Recordset, strMessage
Set rs = CurrentDb.OpenRecordset("QryWSMScores")
If Not rs.EOF Then
strMessage = Chr(13) & Chr(10)
rs.MoveFirst
Do Until rs.EOF
strMessage = strMessage & Space(20) & rs.Fields(0) & Chr(13) & Chr(10)
rs.MoveNext
Loop
'MsgBox " Business Options Based on WSM Score " & strMessage
 
End If

Result Looks like;

Business Options Based on WSM Score
Pharmacy
MPESA
SALOON




Now, I have another message box result which I want to display when the same button is clicked, therefore, one click executes one message with two set of data...

 ' Read QryAHP Scores to determine the businesses based on the selection
' The business with higher points is given top priority
 
Dim rs As DAO.Recordset, strMessage
Set rs = CurrentDb.OpenRecordset("QryAHPScores")
If Not rs.EOF Then
 strMessage = Chr(13) & Chr(10)
 rs.MoveFirst
 Do Until rs.EOF
  strMessage = strMessage & Space(20) & rs.Fields(0) & Chr(13) & Chr(10)
  rs.MoveNext
 Loop
    MsgBox " Business Options Based on AHP Score " & strMessage
 
End If

What is the best approach of showing both results on the same message box under one button click..

Maybe something like;

Business Options Based on WSM Score
Pharmacy
MPESA
SALOON

Business Options Based on AHP Score
Pharmacy
MPESA
SALOON



Thank you

 

[pbaldy]

Just keep building a single strMessage variable with both results, with extra line feeds between the two.