Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Comando Exluir

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
Tati
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Out 15, 2016 5:02 pm

Comando Exluir

Mensagem por Tati »

Olá

O camando abaixo esta dando erro e a mensagem é que o objeto é obrigatorio. Alguem sabe o que deve corrigir?

Public Sub exluir_Email()
sql = "DELETE FROM TbContato"
sql = sql & " WHERE Código = " & Me.TextBox3.Value
Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.Conn
Set banco = Nothing
cx.Desconectar
lblMensagem.Caption = "Registro excluído com sucesso."

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Comando Exluir

Mensagem por Mikel Silveira Fraga »

Tati, boa tarde.

Teria como informar em que linha esta ocorrendo o erro?

Se tivesse como, ajudaria enviar um modelo, com dados fictícios, para que possamos realizar uma análise mais detalhada.

Abraços e excelente final de semana.


Tati
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Out 15, 2016 5:02 pm

Re: Comando Exluir

Mensagem por Tati »

Olá Mikel

Primeiramente agradeço sua atenção!!

Em anexo o arquivo
teste.rar
(87.77 KiB) Baixado 290 vezes


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Comando Exluir

Mensagem por Mikel Silveira Fraga »

Tati, bom dia.

Desculpa a demora, mas esses dias a coisa esta feia por aqui.

Bem, peguei o seu modelo e fiz alguns testes. A princípio, achei que o erro poderia estar relacionado ao uso de várias variáveis de conexão desnecessárias/duplicadas. Porém, quando vi que outras rotinas (parecidas) estavam funcionando, comecei a analisar com mais cuidado.

Rodei a rotina, passo a passo, analisando qual erro poderia ter ocorrido e, o único local em que ocorreu algum erro, foi na exibição da mensagem, na linha abaixo:

Código: Selecionar todos

lblMensagem.Caption = "Registro excluído com sucesso."
No Userform, não existe esse lblMensagem para exibição. Então, alterei esse comando, para utilizar uma instrução MsgBox. Dessa forma, o código ficou assim:

Código: Selecionar todos

Public Sub exluir_Email()
sql = "DELETE FROM TbContato"
sql = sql & " WHERE Código = " & Me.TextBox3.Value
Set banco = New ADODB.Recordset
cx.Conectar
banco.Open sql, cx.Conn
Set banco = Nothing
cx.Desconectar
MsgBox "Registro excluído com sucesso."
End Sub
Com essas alterações, funcionou perfeitamente a exclusão.

Teste e nos retorne, caso continue apresentando problemas.

Abraços e excelente final de semana.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder