[Resolvido]Desmarcar campos em tabela por VBA.

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

Bom dia,

Para uma ajuda, seria conveniente postar a sua BD ou parte dela onde se localiza o problema.

Abraço...

Olá
Está no  link acima https://www.dropbox.com/s/rmn4nded1ab5qqm/Banco%20de%20Dados2.accdb?dl=0

Boa tarde,

Falta tabelas..... tblProntuarioRegOSBaixadas

Se poder exemplificar o que pretende seria mais rapido a sua resolução...

Abraço....

Eu queria que no evento ao clicar o código percorresse a tblCedocPront e desmarcasse o campo Sim/Não (Selecionar)
Para efeito de teste pode comentar o INSERT e desativar temporariamente.

'DoCmd.RunSQL "INSERT INTO tblProntuarioRegOSBaixadas SELECT IDOS, ID, AtendimentoPac, NomePaciente, NumProntuárioPaciente, DataAtendimento, Convenio, NumeroParc, Parcial, DataInicioParc, DataFinalParc, txtCorredor, txtEstante, txtCaixaCont, txtCaixaLoc, cxObservacao, txtUser, txtData, DataCad, Selecionar, SelecaoUrg, SelecaoNaoUrg, Ate24, Ate48, Maior48, Saida, DevSim, DevNao, DevPror, SolConsulta, SolEmprestimo, DataDev,DtProvRet  FROM tblProntuarioRegOS Where IDOS = " & Me.IDOS & ""

Tentei baixar o aplicativo desse link https://www.dropbox.com/s/rmn4nded1ab5qqm/Banco%20de%20Dados2.accdb?dl=0
mas já foi excluído. Poste novamente e dados uma olhada...

Ola Marcelo,

Segue link atualizado: https://www.dropbox.com/s/u7fdsvwfdc0675l/Banco%20de%20Dados2.rar?dl=0

Poderia nos explicar como funciona o form?

Sim amigo,
Trata-se de um formulário para controle de ordem de serviço.
E neste exemplo que postei, tem uma os com três registros.
Gostaria que no momento que o usuário clicar em Finalizar, fosse desmarcar o campo Selecionar (na tblCedocPront) dos três registros da os.

Como podemos ver hoje eu consigo desmarcar por código somente o primeiro registro da ordem de serviço.
O ID do form é o mesmo Id da tblCedocPront.

XPTOS

Teste

O campo Selecionar agora está Visível para teste pode depois ocultar.

Caro Assis,

O exemplo até desmarca o campo Selecionar da tabela (tblCedocPront), porém ele desmarca todos os registros da tabela. A tabela tem umas 3.000 linhas cujo campo Selecionar estão marcados e o codigo limpa tudo

Precisava que o código desmarcasse somente os que estão no form.

Obrigado por sua atenção.

Amigo Gomes

Tem de ter um campo que esteja relacionado que seja igual na tabela e no formulário. O Campo ID a que se refere no exemplo que postou tem 3 números diferentes.

Amigos,
obrigado pelas dicas.

Vou dar o tópico como finalizado e repensar as relações entre os campos das tabelas envolvidas.