下载进度条(知道的朋友进来一下啊!)

lixun005

1,我想用VBA循环读取一个表中的所有记录,知道的朋友回一下,谢谢!(完成 请看二楼程序)
2.我现在做出一个下载图片的程序,不知道怎么进度条啊,知道的朋友发一下程序,谢谢!

[ 本帖最后由 lixun005 于 2008-3-21 17:48 编辑 ]

roseika

Dim myrsLend1    As DAO.recordSet
Dim db  As DAO.Database
Set db = CurrentDb
Set myrsLend1 = db.OpenRecordset(sql文)
If Not rs.EOF Or rs.BOF Then
rs.MoveFirst
Do Until rs.EOF
。。。。。（rs!域名）
rs.MoveNext
Loop
End If

lixun005

第二个没有人知道吗?郁闷啊!