[Resolvido]Atualização de um campo checkbox com loop

http://imageshack.us/content_round.php?page=done&l=img18/8812/clj1.png

Boa noite a todos,

Pessoal, estou com um problema que não consigo resolver.

No link acima tenho um print da tela que estou trabalhando.

Tenho que atualizar automaticamente quanto teclo no botão "PROCESSAR TUDO" o campo "Baixa Ativo S/N" se clicado é SIM se não clicado é NÃO e também informar a data completa de baixa do ativo no campo "Data da Saída".

Eu utilizei a seguinte rotina:

Private Sub ProcessaTudo_Click()
   Dim valida As String
   valida = Len(Tudo & vbNullString)
   If valida = 0 Then
       MsgBox "Selecione a Opção De Processamento Geral!"
       projeto.SetFocus
   ElseIf Len(projeto & vbNullString) = 0 Then
       MsgBox "Selecione Um Projeto Para Processamento!"
       BaixaAtivoProjeto = Null
       DataDaRetirada = Null
       projeto.SetFocus
    ElseIf Len(TpAtivo & vbNullString) = 0 Then
       MsgBox "Selecione Um Tipo De Ativo Para Processamento!"
       BaixaAtivoProjeto = Null
       DataDaRetirada = Null
       BaixaAtivoProjeto = Null
    ElseIf Len(SoTIVITSai & vbNullString) = 0 Then
       MsgBox "Selecione Um SO Para Processamento!"
       BaixaAtivoProjeto = Null
       DataDaRetirada = Null
       projeto.SetFocus
    ElseIf Len(projeto & vbNullString) = 0 And Len(TpAtivo & vbNullString) = 0 And Len(SoTIVITSai & vbNullString) = 0 Then
       BaixaAtivoProjeto = True
       DataDaRetirada = Now
       RunCommand acCmdSaveRecord
       DoCmd.RunCommand acCmdRefresh
       projeto.SetFocus
    ElseIf valida_click = 0 Then
        With Form.RecordsetClone  ************************************************ERRO*****************************
           .MoveFirst
           Do Until .EOF
             .Edit
             .Fields("BaixaAtivoProjeto") = True
             .Fields("DataDaRetirada") = Now
             .Update
             .MoveNext
           Loop
           RunCommand acCmdSaveRecord
           Me.FilterOn = True
           Me.Filter = "Projeto =" & projeto
           DoCmd.Requery
        End With
   End If
End Sub

Onde coloquei o diversos ***** é onde ocorre o erro.

O sistema não processa no formato loop atualizando os dois campos que necessito.

No processo vou marcando o CHECKBOX e passando uma data para o campo data.

No final eu gravo e faço um refresh para atualizar os dados.

Este refresh também não consegui passar o parâmetro para fazer rodar.

Vou necessitar de ajuda aqui também.

Em anexo esta o banco para me ajudar.

Conto com Vocês.

Jair

Só mais um comentário,

O processo tem que permitir atualizar as informações do checkbox e da data em um botão chamado processa e também tem que fazer o processo inverso que desfazer o check box e colocar nulo no campo data.

A idéia de fazer o refresh no botão de atualização é permitir que após tudo OK o usuário tecle este botão e o formulário das atualizações volte vazio sem nenhum registro pois gostaria que no processo de requery o filtro obedecesse os critérios de CHECKBOX teclado e data de saída NOT NULL (com conteudo) não retornasse na tela.

Isto também não consegui fazer, "Passar o filtro para o formulario de baixo" com o CHECKBOX teclado e data de saída NOT NULL.

Outra feature da tela é permitir que um ou outro ativo seja baixado isto esta funcionando legal ele faz mas no botão de requery o problema é o mesmo, a requery deveria filtrar os registros atualizados e mostrar somente os demais.

Exemplo:

tenho na primeira lista 40 registros
atualizo todos na requery vem zero registros

se atualizar 2 registros dos 40 registros
atualizado os dois e na requery teria que voltar 38 registros

me ajudem por favor,

grande abraço,
Jair

Boa tarde pessoal,

para o caso em questão arrumei a seguinte solução:

Dim rstcopia As Recordset
Forms!ProcessoDeBaixaAtivosProjetos.SetFocus
Set rstcopia = Me.SubFormularioAtivoSaidaTIVIT.Form.RecordsetClone
With rstcopia
.MoveFirst
Do Until .EOF
.Edit
.Fields("BaixaAtivoProjeto") = False
.Fields("DataDaRetirada") = Null
.Update
.MoveNext
Loop
RunCommand acCmdSaveRecord
End With
projeto.SetFocus

Funcionou muito bem.

Espero que possa ajudar a outros.

Grande abraço e até a próxima.

Jair

Hum,

Me esqueci de dizer,

veja o que o código era muito semelhando ao que postei no inicio.

Mas esqueci de fazer o DIM do recordset.

Como disse não tenho tanta experiência assim, mas vamos fazendo algo.

Abraço,

Jair

Grato a todos.

jair