Julie Reardon-Taylor
prosoft6 at hotmail.com
Tue Jul 12 14:48:18 CDT 2005
Set db = CurrentDb()
Here is the code, if this helps!
Set rs = db.OpenRecordset("qryLocalAuthority", dbOpenDynaset)
i = 0
rs.MoveFirst
If Forms![frmmembersearch]![Index] = 0 Then
Do Until i = Forms![frmmembersearch]![ListCount]
MsgBox i
MsgBox rs!Field0
Reports![rptMemberSearch]![Text0] = rs![Field0]
rs.MoveNext
i = i + 1
Loop
Julie Reardon-Taylor
PRO-SOFT OF NY, INC.
44 Public Square Suite #5
Watertown, NY 13601
Phone/Fax: (315) 785-0319
www.pro-soft.net