这样只需要对窗体的Recordset进行循环即可:

    Dim strID As String
    Dim rst As Object
    Set rst = Me.sfrList.Form.Recordset
    rst.MoveFirst
    Do Until rst.EOF
        strID = strID  & rst![ID] & ","
        rst.MoveNext
    Loop
    strID=Left(strID,Len(strID)-1)
    Set rst = Nothing

strID中就是当前sfrList中所有的ID