[Resolvido]Actualizar tabelas

Boas tardes,

Tenho uma BD com diversas tabelas, onde tem cerca de 200.000 registos os quais preciso de actualizar um campo com base em outros campos dessa mesma tabela, mas estou a ter um problema, a base de dados crash. Será que estou a fazer algo de errado?

O código que estou a fazer é o seguinte:

Public Function ActualizarGuias()

Dim rst As Recordset
Set rst = Application.CurrentDb.OpenRecordset("Select * from Tb_Guias")
DAO.DBEngine.SetOption dbMaxLocksPerFile, 150000
rst.MoveLast
contador = rst.RecordCount
rst.MoveFirst
For a = 1 To contador
rst.Edit
If rst.Fields("CLIENTE") = 404 And rst.Fields("ZONA") = "3" Then
rst.Fields("OBS") = "ZONA3"
ElseIf rst.Fields("CLIENTE") = 404 And rst.Fields("ZONA") = "4" Then
rst.Fields("OBS") = "ZONA4"
ElseIf rst.Fields("CLIENTE") = 404 And rst.Fields("ZONA") = "5" Then
rst.Fields("OBS") = "ZONA5"
ElseIf rst.Fields("CLIENTE") = 404 And rst.Fields("ZONA") = "6" Then
rst.Fields("OBS") = "ZONA6"
ElseIf rst.Fields("CLIENTE") = 713 And rst.Fields("ARMAZEM") = "AZB" Then
rst.Fields("OBS") = "AZB"
ElseIf rst.Fields("CLIENTE") = 713 And rst.Fields("ARMAZEM") <> "AZB" Then
rst.Fields("OBS") = "BAR"
End If
rst.Update
rst.MoveNext
Next
rst.Close
End Function

Obrigado pela ajuda...

ok o mais facil é criares no form um botão configurado para quando clicares actualizar, tipo:

Private Sub Comando283_Click()
On Error GoTo Err_Comando283_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Comando283_Click:
Exit Sub

Err_Comando283_Click:
MsgBox Err.Description
Resume Exit_Comando283_Click
End Sub

Desculpa, mas não percebi...

O meu código está errado? O que aconselha é para fazer o que?

Peço desculpa, mas estou a iniciar nestas andanças...

o que estou a dizer é que podes criar um botão de comando que ao clicar atualiza os dados inseridos e nesse botão configuras como no exemplo:

Private Sub Comando283_Click()
On Error GoTo Err_Comando283_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Exit_Comando283_Click:
Exit Sub

Err_Comando283_Click:
MsgBox Err.Description
Resume Exit_Comando283_Click
End Sub

Não querendo ser "chata", então e como é que vai actualizar de acordo com as critérios do meu código? não me interprete mal, mas não estou mesmo a perceber... ou como é que o código que me forneceu vai actualizar?

Sorry, leiga que eu sou...

ok está aqui um exemplo no qual estou a trabalhar, tem um botão de actualizar, ve como fiz, se não for isto, ...........

http://maximoaccess.forumeiros.com/download.forum?id=2266

Boa tarde, chinchila
Leia as regras do fórum. Não deve utilizar urgente, socorro...
Utilize

Public Function ActualizarGuias()
Currentdb.execute "UPDATE Guias SET Obs='Zona3' WHERE Cliente=404 and Zona=3;"
Currentdb.execute "UPDATE Guias SET Obs='Zona4' WHERE Cliente=404 and Zona=4;"
Currentdb.execute "UPDATE Guias SET Obs='Zona5' WHERE Cliente=404 and Zona=5;"
Currentdb.execute "UPDATE Guias SET Obs='Zona6' WHERE Cliente=404 and Zona=6;"
Currentdb.execute "UPDATE Guias SET Obs='AZB' WHERE Cliente=713 and Armazem='AZB';"
Currentdb.execute "UPDATE Guias SET Obs='BAR' WHERE Cliente=713 and Armazem<>'AZB';"
End Function

Por falta de retorno, o tema passa a resolvido