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
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