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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Comando Exluir
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Comando Exluir
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.
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.
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Comando Exluir
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:
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:
Com essas alterações, funcionou perfeitamente a exclusão.
Teste e nos retorne, caso continue apresentando problemas.
Abraços e excelente final de semana.
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."
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
Teste e nos retorne, caso continue apresentando problemas.
Abraços e excelente final de semana.