[Resolvido]Erro ao atualizar form

Após executar o código a seguir no VBA, que atualiza o campo CUSTO na tabela tblTradicional, o referido campo não é atualizado no form que tem origem na tabela mencionada. O que está faltando no código?

Private Sub Convidados_AfterUpdate()
xx = DLookup("CustoPorConvidado", "tblTradicional", "Descricao='Pacote'")
yy = Me.Convidados
SQLstr = "UPDATE tblTradicional SET Custo=" & xx * yy & " WHERE Descricao='Pacote'"
DoCmd.RunSQL SQLstr
End Sub

Tentei adicionar o comando me.requery após o DoCmd mas ao rodar o código via form recebi o erro em anexo.

Onde está o erro no código?

Olá AugustoB

Tente colocar um "DoCmd.Save" Antes do End Sub

Olá, Cristian

Obrigado por responder. Já havia tentado isso e não funcionou. Acabei substituindo o código por este:

Private Sub Convidados_AfterUpdate()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Set db = CurrentDb()
Set rst = db.OpenRecordset("tblTradicional")
With rst
.FindFirst "[Descricao] = 'Pacote'"
If .NoMatch Then
MsgBox "Não foi encontrado o registro!"
Else
.Edit
![Custo] = !CustoPorConvidado * Me.Convidados
.Update
End If
End With
rst.Close
Set rst = Nothing
Set db = Nothing
Me.Requery
End Sub

Está funcionando.

Resolvido