MaximoAccess

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

Obrigado

Administração do MaximoAccess

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]Fechar formulário Via VBA

    tiagofeitosa
    tiagofeitosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Fechar formulário Via VBA Empty Fechar formulário Via VBA

    Mensagem  tiagofeitosa em 1/2/2013, 04:14

    Amigos,

    Alguém pode me ajudar?

    Criei um fomrulário de pesquisa para um formulário de cadastro, até ai tudo bem, mas quero que depois que sair do ultimo campo ele feche o proprio formulario. Coloquei o código seguinte, mas está depurando bem no DoCmd.

    Nome do Formulário "FrmHelp"



    Private Sub ConfirmaEnderecoHelp_LostFocus()

    If Me.ConfirmaEnderecoHelp = "Sim" Then
    Forms![FrmCadastroALunos]![TXTcep] = Forms![FrmCadastroALunos]![CEPAluno]
    Forms![FrmCadastroALunos]![txtnumero] = Forms![FrmCadastroALunos]![txtNumeroAluno]
    Forms![FrmCadastroALunos]![txtcomplemento] = Forms![FrmCadastroALunos]![txtcomplementoAluno]
    End If

    DoCmd.Close acForm, FrmHelp, acSaveYes

    Desde já obrigado
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1599
    Registrado : 12/11/2009

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  Leandro em 1/2/2013, 10:43

    Não esqueça as aspas no nome do form:

    DoCmd.Close acForm, "FrmHelp", acSaveYes

    tiagofeitosa
    tiagofeitosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  tiagofeitosa em 1/2/2013, 13:30

    Leandro,

    OBrigado por me ajudar com uma coisa tão simples...


    Acho que ainda assim estou "comendo bola" em alguma coisa aqui...


    Private Sub Texto6_GotFocus()

    DoCmd.Close acForm, "FrmHelp", acSaveYes

    End Sub

    Esse código ta depurando, consegue enxergar algo errado ai?


    O que eu preciso é que esse formulario feche automaticamente apos eu selecionar os campos, tem alguma sugestão melhor?

    Obrigado
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1599
    Registrado : 12/11/2009

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  Leandro em 1/2/2013, 15:02

    Coloque no evento ao Sair do campo somente isso:

    DoCmd.Close acForm, "FrmHelp"

    tiagofeitosa
    tiagofeitosa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 49
    Registrado : 31/01/2013

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  tiagofeitosa em 1/2/2013, 16:13

    Mamão!

    Eu tava comento bola aqui com o comando...

    Cara, muito obrigado mesmo!!!!
    Leandro
    Leandro
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1599
    Registrado : 12/11/2009

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  Leandro em 1/2/2013, 16:20

    Que bom que conseguiu!! Obrigado pelo retorno, continue assim.

    klaytontome
    klaytontome
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 19/03/2017

    [Resolvido]Fechar formulário Via VBA Empty Re: [Resolvido]Fechar formulário Via VBA

    Mensagem  klaytontome em 30/7/2019, 00:08

    valew ajudou aqui!rs.. vlw

      Data/hora atual: 2/7/2020, 06:13