How do I Log Multiple Values in One Message

[Midzie]

This question was split away from Deleting records from multiple tables as we don't allow multiple questions per thread - NeoPa.

I have a follow up question for Deleting records from multiple tables. I included a msgbox in every after the delete execution returning the number of records deleted in each table by inserting this code:

strRecordOrder = MsgBox(CStr(db.RecordsAffected) & " records from table ORDER were deleted by this SQL statement.")
 
strRecordSchedule = MsgBox(CStr(db.RecordsAffected) & " records from table SCHEDULE were deleted by this SQL statement.")
 
strRecordNote = MsgBox(CStr(db.RecordsAffected) & " records from table NOTE were deleted by this SQL statement.")
 
strRecordYearly = MsgBox(CStr(db.RecordsAffected) & " records from table YEARLY were deleted by this SQL statement.")
 
strRecordClosed = MsgBox(CStr(db.RecordsAffected) & " records from table CLOSED were deleted by this SQL statement.")

My concern now is how do I concatenate those messages so that it will be saved in my table tblLOG fieldname Remarks as like this: 2 records from table ORDER were deleted; 4 records from table SCHEDULE were deleted; 2 records from table NOTE were deleted; 100 records from table YEARLY were deleted; 150 records from table CLOSED were deleted;

Is this possible? Thanks in advance

[NeoPa]

At the time that you display these values you also need to save them in separate variables. When all are done and you're ready to log the details, simply formulate a message using all of the variables and log it.

[ADezii]

I assume you are still having problems with the Concatenation. The following Code should point you in the right direction:

Const conDELIMITER As String = "; "
Dim strRecordOrder As String
Dim strRecordSchedule As String
Dim strRecordYearly As String
Dim strRecordClosed As String
Dim strBuild As String
 
strRecordOrder = CStr(db.RecordsAffected) & " records from table ORDER were deleted by this SQL statement"
 
strRecordSchedule = CStr(db.RecordsAffected) & " records from table SCHEDULE were deleted by this SQL statement"
 
strRecordNote = CStr(db.RecordsAffected) & " records from table NOTE were deleted by this SQL statement"
 
strRecordYearly = CStr(db.RecordsAffected) & " records from table YEARLY were deleted by this SQL statement"
 
strRecordClosed = CStr(db.RecordsAffected) & " records from table CLOSED were deleted by this SQL statement"
 
strBuild = strRecordOrder & conDELIMITER & strRecordSchedule & conDELIMITER & strRecordNote & _
           conDELIMITER & strRecordYearly & conDELIMITER & strRecordClosed

[Midzie]

Hi Neopa/ADezii,

Earlier I made this code that's why it only returned and recorded 1; 1; 1; 1; 1; in my tblLog:

strRecord = strRecordOrder & strRecordSchedule & strRecordNote & strRecordYearly & strRecordClosed

I added the conDelimiter and it is working now:-) Thanks to both of you. I still added this code to return the number of records deleted in a message box:

MsgBox CStr(db.RecordsAffected) & " records from table Order were deleted by this SQL statement."