作者mddc62 (milo chen)
看板Visual_Basic
标题[VBA ] docmd.sendobject 不会跑第二个回圈
时间Mon Nov 19 20:17:35 2007
各位先进，VBA内容如下
前面有判断式
最後面其实还有一些QUERY、OUTPUTTO、MSGBOX等
都会跑，但是回圈就只有跑一次，明明有三、四个回圈要跑
看发信纪录也只有一个......
烦请各位提供指导
谢谢
Dim rstName As Variant
If DCount("[dept]","query1") = 0 Then
MsgBox "目前无人员", VBONONLY, "无人员"
Exit Sub
End If
Set rstName = CurrentDb.OpenRecordset( _
"select distinct [dept],[head],[position],主旨,内容,[TOEmail],[CCEmail] from AAA")
DoCmd.OpenForm "FORM1", acFormDS
Do While Not rstName.EOF
Forms("FORM1").RecordSource = _
"select * from BBB where [dept]='" & _
rstName![dept] & "'"
Forms("FORM1").Form.Requery
DoCmd.SendObject acSendForm, "FORM1", acFormatXLS, rstName![TOEmail],_
rstName![CCEmail], , rstName![主旨], rstName![内容], True
rstName.MoveNext
Loop
DoCmd.Close acForm, "FORM1"
DoCmd.OutputTo acOutputQuery.....
MsgBox ......
end sub
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 203.77.57.24