MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Access365
    Access365
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

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

    Mensagem  Access365 2/7/2014, 16:56

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

    Obrigado, Luz e Paz!
    chsestrem
    chsestrem
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 463
    Registrado : 01/03/2010

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

    Mensagem  chsestrem 2/7/2014, 17:36

    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,


    .................................................................................
    Charles Sestrem
    http://www.vbabit.com.br
    Access365
    Access365
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

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

    Mensagem  Access365 3/7/2014, 14:19

    Obrigado chsestrem, mas não funfou!

    Luz e Paz!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 3/7/2014, 14:47

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

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

    Mensagem  Access365 3/7/2014, 16:07

    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!
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 3/7/2014, 17:28

    Paulo


    Na macro, coloque assim:

    Nome da função: DeleteForm()


    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

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

    Mensagem  Access365 3/7/2014, 18:56

    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()
    ===============

    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4122
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 3/7/2014, 19:18

    Funcionando pefeitamente.

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

    Noob


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Access365
    Access365
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 288
    Registrado : 09/07/2012

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

    Mensagem  Access365 2/8/2020, 18:42

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

      Data/hora atual: 17/6/2021, 18:36