[Resolvido]Excluir Formulário com VBA (Access 2010)

Olá amigos,
Como faço para excluir um Formulário, usando VBA, de dentro do mesmo banco de dados?

Obrigado, Luz e Paz!

Boa tarde,

Faço algo assim em um botão ou procedimento

'Procurar o Nome do formulário na tabela MSysObjects

If DCount("Name", "MSysObjects", "Name = 'FrmTeste'") > 0 Then

'Se o formuláo existe mando deletar

DoCmd.DeleteObject acForm, "FrmTeste"

End If

Sds,

Obrigado chsestrem, mas não funfou!

Luz e Paz!

Paulo

Funfou perfeitamente.

Atente para:

Você não pode apagar o mesmo formulário onde está o botão.

No código, você tem que substituir em dois lugares onde está escrito
FrmTeste pelo nome do Formulário que quer excluir.

Abraços

Noob

Olá Noobezinho,
O código será executado por uma macro logo após o fechamento deste Form.
Coloquei o código no módulo (como está descrito abaixo), mas não funfa!
===== MÓDULO =====

Option Compare Database
Option Explicit

Public Function DeleteForm()
If DCount("Name", "MSysObjects", "Name = 'ocultar'") > 0 Then
'Se o formuláo existe mando deletar
DoCmd.DeleteObject acForm, "ocultar"
End If
End Function

================

===== MACRO =====

ExecutarCódigo
Nome da função: DeleteForm

===============

Obrigado, Luz e Paz!

Paulo


Na macro, coloque assim:

Nome da função: DeleteForm()


Noob

Ainda não funfou...
Tá falando que o Form tá aberto, mas a macro o fecha antes, assim:

===== MACRO Ocultar =====
FecharJanela
Tipo de objeto: Formulário
Nome do objeto: Ocultar
(...)
ExecutarCódigo
Nome da função: DeleteForm()
===============

Funcionando pefeitamente.

Confira o nome do formulário, na macro e no código.

Noob

Noobenzinho estava correto.... Havia resíduo de comando na macro que impedia o funcionamento correto... retirei e resolveu!.