Concatenate several strings

[loydlr]

I am trying to concatenate several strings into one in a report. It seems fairly simple and works well. The problem is that my code concatenates the necessary strings in the first record and supplies this same string to every record.

Private Sub Report_Activate()

Dim strSize, strType as String
Dim strPaint, strStripes As String

strSize = Me.txtSize
strType = Me.txtType
strPaint = Me.txtPaint
strStripes = Me.txtPinStripe

Me.txtModel = strSize & " " & " " & strType
Me.txtPnt = strPaint & " " & "w/ " & strStripes

End Sub

I placed the unbound text boxes "txtModel" and "txtPnt" in the detail section. I am trying to concatenate the text boxes for every record so that each instance of txtModel and txtPnt are unique to it's record. Any suggestions would be greatly appreciated.

Thanks,
Loyd

 

[randysmid]

Hi,
These belong in the On Format event in the Detail section of your report.
HTH,
Randy Smith
California Teachers Association

 

[loydlr]

Works like a charm. Thanks a bunch Randy. You have saved me countless hours of digging to find that answer.