Prezados,
Estou usando o código abaixo para ir até a tabela tblCedocPront, e desmarcar os registros do campo sim/não filtrados por número de ordem de serviço, porém, estou utilizando um form continuo e observei que ao realizar o filtro no formulário para usar o botão Finalizar Os, somente está sendo desmarcado o primeiro registro da OS.
Alguém poderia me dá uma luz?
Segue link: https://www.dropbox.com/s/rmn4nded1ab5qqm/Banco%20de%20Dados2.accdb?dl=0
'Desmarca os registros para deixa-los disponivel para proxima ordem de servico
Set rs = CurrentDb.OpenRecordset("Select * from tblCedocPront where ID =" & Me.txtID, dbOpenDynaset)
rs.MoveFirst
Do Until rs.EOF
If Not rs Then
rs.Edit
rs.Fields("Selecionar") = 0
rs.Update
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Estou usando o código abaixo para ir até a tabela tblCedocPront, e desmarcar os registros do campo sim/não filtrados por número de ordem de serviço, porém, estou utilizando um form continuo e observei que ao realizar o filtro no formulário para usar o botão Finalizar Os, somente está sendo desmarcado o primeiro registro da OS.
Alguém poderia me dá uma luz?
Segue link: https://www.dropbox.com/s/rmn4nded1ab5qqm/Banco%20de%20Dados2.accdb?dl=0
'Desmarca os registros para deixa-los disponivel para proxima ordem de servico
Set rs = CurrentDb.OpenRecordset("Select * from tblCedocPront where ID =" & Me.txtID, dbOpenDynaset)
rs.MoveFirst
Do Until rs.EOF
If Not rs Then
rs.Edit
rs.Fields("Selecionar") = 0
rs.Update
End If
rs.MoveNext
Loop
rs.Close
Set rs = Nothing