Return Data in Multiple Rows

shahiq

Registered User.
Local time
Today, 14:04
Joined
Mar 31, 2007
Messages
29
Hello I want the msgbox to return each data in a separate row!! How am I doing to do that?

Code:
    Dim strUrl  As String
    Dim StrMsg As String
    Dim StrTask As String
    Dim StrAccount As String
    Dim StrName As String
    Dim StrCustMob As String
    Dim StrAddress As String
    Dim StrStreet As String
    Dim StrBlock As String
    Dim StrType As String
    
   
 
 StrTask = Nz(DLookup("Task", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoTask")
 StrAccount = Nz(DLookup("Account", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoAccount")
  StrName = Nz(DLookup("Name", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoName")
  StrCustMob = Nz(DLookup("CustMob", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoMobNumber")
  StrAddress = Nz(DLookup("Address", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoAddress")
  StrStreet = Nz(DLookup("Street", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoStreet")
  StrBlock = Nz(DLookup("Block", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoBlock")
  StrType = Nz(DLookup("Type", "~~~~Qry_SMS_Outgoing_TaskInfo"), "NoFaultType")


 StrMsg = [StrTask] & "," & [StrAccount] & "," &  [StrName] & "," & [StrCustMob] & "," & [StrAddress]  & "," & [StrStreet] & "," & [StrBlock] & "," &  [StrType]
    
 MsgBox (StrMsg)
 
Look to use either vbcr (Visual Basic Carriage Return) or chr(13)

If you place in vbcr and then highlight it you can press F1 to get help on it

Here is a sample

MsgBox "Hello how are you" & vbCr & "Welcome"
 

Users who are viewing this thread

Back
Top Bottom