[Resolvido]Ao fechar um form como evitar esta informação

Bom dia

Como evitar este erro ao fechar um Formulário

Objecto inválido ou sem definição

No F1 dá esta ajuda mas não estou a ver aonde aplicar

propriedade Name, utilize o seguinte:
Dim dbsPublish As Database

Set dbsPublish = OpenDatabase("BIBLIO.mdb")

dbname = dbsPublish.Name


Obrigado

Talvez ao fechar, ou no formulário On error:

On Error Resume Next

Ou ainda numa MsgBox, mostrar o erro e a Descrição: No evento On erro do formulário:

MsgBox "Descrição do erro: " & Err.Description & "", vbCritical, "Erro " & Err.Number & ""

Assim poderiamos veriamos o erro e trata-lo de maneira mais adequada...

Olá Marcelo

Seguindo o sua dica

MsgBox "Descrição do erro: " & Err.Description & "", vbCritical, "Erro " & Err.Number & ""

Informa Erro 0

Nesse caso, tente:

If Err.Number = 0 then
Err.Clear
Resume Next
End if

Marcelo

Continua o erro

Tenho Office 2003 win 7

Obrigado

Pode postar o banco de dados?

No aguardo

Assis, existe algum evento a correr quando o form fechar ?

Já fez o Debug/Compile ?

Já fez o Compactar/Reparar ?

Boa tarde

Amigos

Este é o evento para fechar o Form, e eu acho que o erro está na linha a vermelho

Private Sub Cliente_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyEscape Then
DoCmd.SetWarnings False
If MsgBox("Sair do Registo de Vendas ? ", vbYesNo + vbQuestion, "Aviso") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Close
DoCmd.SetWarnings True
Else
DoCmd.CancelEvent
Exit Sub
End If
End If
End Sub

sera que nao e seu codigo que esta com 2 end if no final antes do end sub

wesley xavier
Também tem 2 If
Obrigado

try;

Private Sub Cliente_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
      DoCmd.SetWarnings False
         If MsgBox("Sair do Registo de Vendas ?", vbQuestion + vbYesNo + vbDefaultButton2, "Aviso?") = vbYes Then
            DoCmd.RunCommand acCmdSelectRecord
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
            DoCmd.Close
           Exit Sub
             Else
             DoCmd.CancelEvent
          Exit Sub
      End If
    End If
End Sub

to com um problema parecido, que quando eu to digitando e desisto de inserir o dado e apago o que tunha sido digitado e fecho o formulario ele travao sistema.

Boa tarde JPaulo

Isto é um Form de vendas com um SubForm de detalhes de vendas Ligado por ID

No form tem o campo do nome do cliente e a data

No sub form tem os detalhes

Ref ... Descrição.... preço...

mas o erro dá antes de entrar no subForm.


A primeira vez que se abre o Form não dá erro.....
Se voltar a abrir já da a informação.
Parece que fica qualquer coisa pendente em memória...

Olá

Chutando um bocado:

IDcliente está no subformulário?

Definido idCliente Pai e filho no subformulário?

Abraços