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