[Resolvido]Preenchendo todos registros na tabela

Bom dia Pessoal,

Estou precisando preencher todos os campos de uma tabela, para isso utilizei o código abaixo:

RS2.MoveFirst
Do Until RS2.EOF
With RS2
.Edit
!TXTXML = "TXT"
End With
RS2.Update
RS2.MoveNext
Loop

Porém o access da um erro que o arquivo está corrompido (acredito que esse erro seja devido ao tamanho da base - ela acaba ultrapassando 2 gb).

Alguém poderia me ajudar com alguma alternativa?

Obrigado

O limite do Access é mesmo 2 Gigas.

Tente Compactar/Reparar para ver quanto diminui de tamanho.

Pode fazer Update via SQL;
Abra uma consulta nova em modo SQL, cole esta instrução e corra;

UPDATE SuaTabela SET TXTXML = "TXT"

Sem retorno, passa a resolvido.