ERRO NO MAXLOCKSPERFILE

JORGESALES 13/05/2015 21:39:00
#446614
estou usando o código abaixo para inserir datas em 2 campos, alguém sabe
como corrigir o erro acima?
ConnectDB
    rs.Open [Ô]Select *from tblcad[Ô], db, 3, 3
        Do Until rs.EOF
            rs!Dt_agendada = DateValue(Now)
            rs!Prev_Comp = DateValue(Now) + 7
            rs.Update
            rs.MoveNext
        Loop
    rs.Close: Set rs = Nothing
    db.Close: Set db = Nothing
JORGESALES 13/05/2015 21:45:31
#446615
O banco de dados é Access
OMAR2011 14/05/2015 09:05:46
#446620 Resposta escolhida
Não vejo necessidade de fazer um Loop para inserir dados na tabela.

Do Until rs.EOF
rs!Dt_agendada = DateValue(Now) [ô] Não sei que bicho é este.
rs!Prev_Comp = DateValue(Now) + 7 Nem este.
rs.Update
rs.MoveNext
Loop
Tenho a impressão que está faltando o rs.AddNew.
Tópico encerrado , respostas não são mais permitidas
Voltar