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)