Invalid Procedure or Call Argument 2

[LittleMan22]

Hi what's wrong with my code:
Dim rst As Recordset
Dim strComment As String

Set rst = CurrentDb.OpenRecordset("CurrentClientApplicationDataPolicies&quot

With rst
Do Until .EOF
strcomment = strcomment & !Carrier & " " & !PolicyNumber & " " & Format(!Amount, "$#,###&quot & "; "
.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.

 

[JimHorton]

Ryan,
Me.Remarks1 = Left(strcomment, Len(strcomment) - 3
If len(strcomment) less than 3 to begin with, then you'll get this error, since you can't use negative in Left().
--Jim

 

[LittleMan22]

The problem occurs when the recordset is empty.

How can I fix this?

 

[nickjar2]

How about:

Do Until .EOF
strcomment = strcomment & !Carrier & " " & !PolicyNumber & " " & Format(!Amount, "$#,###&quot & "; "
.MoveNext
Loop
.Close
End With

if strComment=&quot;&quot; or len(strcomment) < 3 then
else
Me.Remarks1 = Left(strcomment, Len(strcomment) - 3).
end if Hope this is ok. If not, just let me know.

Nick (Everton Rool OK!)

 

[JimHorton]

Ryan,
I wouldn't put any 'Do Until Rst...' statement until you check .Eof and .Bof first:

If rst.eof and rst.bof then 'then it's empty
'drop to exit, warn user, whatever...
Else
Rst.MoveFirst
Do Until Rst.Eof
blah, blah,

End if
--Jim