UPDATE por VBA

Pessoal,

Estou com um problema na execução do código abaixo que insiste em dar erro 3219. Alguém pode me dar uma ajuda?

Dim SQLs As String
Dim dbs As DAO.Database
Dim rs As DAO.Recordset

SQLs = "UPDATE DotaçãoCompleta SET DotaçãoCompleta.SITUAÇÃO = """ & Me.TxtSituacao & """ WHERE DotaçãoCompleta.CHAVE = '" & Me.Txt_Chave & "'"
Set rs = dbs.OpenRecordset(SQLs, dbOpenDynaset)

Olá Emerson,

Você está tentando abrir um recordset usando uma instrução UPDATE, e não vai funcionar.

Para atualizar os dados da sua tabela não é necessário abrir um recordset.
Utilize somente os recursos do database. Segue código:

Código:



Dim SQLs        As String
Dim dbs         As DAO.Database

'------ Instanciar a variavel de database para usar os eventos ----
Set dbs = CurrentDb
'-----------------------------------------------------------------

SQLs = "UPDATE DotaçãoCompleta SET DotaçãoCompleta.SITUAÇÃO = """ & Me.TxtSituacao & """ WHERE DotaçãoCompleta.CHAVE = '" & Me.Txt_Chave & "'"
dbs.Execute SQLs



Boa sorte

Olá Emerson...funcionou?

Valeu Alexandre, Funcionou. Desculpa a demora em responder.

Valeu Emerson,
O fórum agradece.

Por gentileza, mude o tópico para "Resolvido"

Grato