急!为什么我的rs.filter筛选不了,请帮帮忙?

gjm996

在"宿舍资料"窗体那里,按钮"减少床数",就要用到一个  "rs.Filter = "(rs![宿舍编号] = '" & Forms![宿舍资料]![宿舍编号] & "')"    把rs筛选出来后,用rs做其它的处理就不是想像中那样!.

    它会把整个rs表里的内容进行处理,而不是单独处理筛选出来的那部份,请问这是什么回事?

高手请指点一下小弟,这是小弟第一个自已开发的程式!多多支持吧!

gjm996

rs.Filter = "rs![宿舍编号] = '" & Forms![宿舍资料]![宿舍编号] & "'"Do While d < M

rs.MoveFirst

   d = d + 1

    Do While rs.EOF = False

     If d = rs![床号] Then

     

            If rs![工号] > 0 Then

              MsgBox d & "号床位有员工住宿不能删除床位,请先把员工调离再删除"

              Me.床位数 = M

               Exit Sub

               End If

      End If

      rs.MoveNext

Loop

Loop

gjm996

顶!