[Resolvido]Replicar ( copiar ) campo data em um formulário continuo

Prezados bom dia.

Tenho um formulário continuo e nesse formulário um campo data !
Preciso replicar, copiar esse campo data, para os registros marcados em uma caixa sim/não

Ou seja, o utilizador seleciona os registros e coloca a data e um botão a rotina vai replicar a data nos registros marcados.

Pensei em algo simples em um botão, evento clique...
If me.caixa sim/nao = -1 them
me.data= me.data
end if

mas sem sucesso.

Se alguém puder me dar uma luz...agradeço.

Abraços.

Faça por SQL direto na tabela... Pois é mais rapido do que se deslocar pelos registros do Formulario...


Currentdb.Execute "UPDATE tabelaxxx set CampoData = " & Me.data & " WHERE CampoSimNao=-1"

Fábio, boa tarde.

Grato por sempre me responder. Mas, tua instrução dava erro em UpDate.

Batendo a cabeça aqui, e reescrevendo algumas rotinas, fiz um " frank" ou P.O.G. ( Programa Ostensivo de Gambiarra ).

Segue abaixo a mesma.

Código:

Private Sub atualizar()
If Me.AEnvioEnviado = True Then
If MsgBox("Aplicar a data de: " & Me.DataAeEnviado & vbCrLf & _
          "em todos os registros selecionados ?", vbYesNo, Me.Caption) = vbNo Then
          Exit Sub
          Else
'rotina para copiar a data para os demais campos assinalados com -1
Dim rs As DAO.Recordset
Dim Contador As Long
Dim ContaOProgresso As Long
Set rs = CurrentDb.OpenRecordset("SELECT * FROM QryMudaStatusAEnvioEnviado WHERE AEnvioEnviado  = true")

If rs.RecordCount > 0 Then
rs.MoveLast
Contador = rs.RecordCount
rs.MoveFirst
End If

For ContaOProgresso = 1 To Contador
rs.Edit
rs("DataAeEnviado") = Me.DataAeEnviado
rs.Update
rs.MoveNext
Next ContaOProgresso
DoCmd.RunCommand acCmdSaveRecord
'fim da rotina de cópia

MsgBox "OK, Total de: " & Contador & " registros atualizados.", vbInformation, Me.Caption
DoCmd.RunCommand acCmdSave
Me.Requery
End If

Bacana! Com DAO é bem mais facil!!!

Até a próxima se Deus quiser!!!