LittleMan22
Technical User
Hi what's wrong with my code:
Dim rst As Recordset
Dim strComment As String
Set rst = CurrentDb.OpenRecordset("CurrentClientApplicationDataPolicies"
With rst
Do Until .EOF
strcomment = strcomment & !Carrier & " " & !PolicyNumber & " " & Format(!Amount, "$#,###" & "; "
.MoveNext
Loop
.Close
End With
Me.Remarks1 = Left(strcomment, Len(strcomment) - 3).
I keep getting the erorr Invalid Procedure Call or Argument and I can trap it to the line: Me.Remarks1 = ....
Any help would be greatly appreciated,
Ryan.
Dim rst As Recordset
Dim strComment As String
Set rst = CurrentDb.OpenRecordset("CurrentClientApplicationDataPolicies"
With rst
Do Until .EOF
strcomment = strcomment & !Carrier & " " & !PolicyNumber & " " & Format(!Amount, "$#,###" & "; "
.MoveNext
Loop
.Close
End With
Me.Remarks1 = Left(strcomment, Len(strcomment) - 3).
I keep getting the erorr Invalid Procedure Call or Argument and I can trap it to the line: Me.Remarks1 = ....
Any help would be greatly appreciated,
Ryan.