[Resolvido]O objeto é obrigatório erro 424

Salve a todos,

criei um formulário para atualização e complemento de informações, a principio criei um botão dentro do formulário para atualizar e este funciona,
mas como meu programa é montado com Ribbon, resolvi criar o botão na ribbon porem o mesmo código da erro.
Pelo que pesquisei tenho que fazer alguma declaração, mas não consegui sozinho.


Case "btAtualizarDados"

strSql = "Update TabelaConvenio Set Data = '" & Data & "', NºComanda = '" & NºComanda & "',Cliente = '" & Cliente & "', Contato = '" & Contato & "', Telefone = '" & Telefone & "', CentrodeCusto = '" & Centrodecusto & "', Motoqueiro = '" & Motoqueiro & "', EndereçoColeta = '" & EndereçoColeta & "', NºColeta = '" & NºColeta & "', BairroColeta='" & BairroColeta & "', EndereçoEntrega = '" & EndereçoEntrega & "', NºEntrega = '" & NºEntrega & "', BairroEntrega = '" & BairroEntrega & "', Valor1 = '" & Valor1 & "', EndereçoEntrega2 = '" & EndereçoEntrega2 & "', NºEntrega2 = '" & NºEntrega2 & "', BairroEntrega2 = '" & BairroEntrega2 & "', Valor2 = '" & Valor2 & "', Valor3 = '" & Valor3 & "', Valor4 = '" & Valor4 & "', Total = '" & Total & "' Where TabelaConvenio.CodigoEvento = " & Lista130.Column(0) & " "
CurrentDb.Execute (strSql)

MsgBox "Atualizado com sucesso!", vbInformation, "Atualizar"


Obrigado

Acredito que seja falta da declaração da Variavel strSql

Mude para:

Case "btAtualizarDados"
Dim strSql As String
strSql = "Update TabelaConvenio Set Data = '" & Data & "', NºComanda = '" & NºComanda & "',Cliente = '" & Cliente & "', Contato = '" & Contato & "', Telefone = '" & Telefone & "', CentrodeCusto = '" & Centrodecusto & "', Motoqueiro = '" & Motoqueiro & "', EndereçoColeta = '" & EndereçoColeta & "', NºColeta = '" & NºColeta & "', BairroColeta='" & BairroColeta & "', EndereçoEntrega = '" & EndereçoEntrega & "', NºEntrega = '" & NºEntrega & "', BairroEntrega = '" & BairroEntrega & "', Valor1 = '" & Valor1 & "', EndereçoEntrega2 = '" & EndereçoEntrega2 & "', NºEntrega2 = '" & NºEntrega2 & "', BairroEntrega2 = '" & BairroEntrega2 & "', Valor2 = '" & Valor2 & "', Valor3 = '" & Valor3 & "', Valor4 = '" & Valor4 & "', Total = '" & Total & "' Where TabelaConvenio.CodigoEvento = " & Lista130.Column(0) & " "
CurrentDb.Execute (strSql)

MsgBox "Atualizado com sucesso!", vbInformation, "Atualizar"

Paes,

resolvi com a ajuda do Avelino desta forma...

Case "btAtualizarDados" '

Dim frm As Form
Dim strSql As String

If CurrentProject.AllForms("formulárioconvenioincompletos").IsLoaded Then 'verifica se o formulário está aberto
Set frm = forms!formulárioconvenioincompletos


strSql = "Update TabelaConvenio Set Data = '" & frm!txtData & "', endereçocoleta = '" & frm!TxtEndereçoColeta & "' Where TabelaConvenio.CodigoEvento = " & frm!Lista130.Column(0) & " "
CurrentDb.Execute (strSql)

End If

Agradeço muito a atenção


Fabio Pradella