[VBA ] docmd.sendobject 不會跑第二個迴圈
各位先進，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