[VBA ] docmd.sendobject 不會跑第二個迴圈

[mddc62 (milo chen)]

各位先進，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