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


3 participantes

    [Resolvido]Fechar formulario...

    Vanessapfp
    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011
    • Mensagem nº1

    [Resolvido]Fechar formulario... Empty Fechar formulario...

    Mensagem  Vanessapfp 18/6/2013, 13:33

    Bom dia!

    Preciso de ajuda de novo....tenho um form que qdo se coloca um determinado numero ele abre um outro form para solicitar a senha, este segundo form tem um condição, ex.: se for tal coisa faz isso senão faz isso, a questão e q qdo a condição for verdadeira ele não fecha o segundo form e sim o primeiro.

    Como posso arrumar isso...

    If Me.Password <> "123456" Then

    MsgBox "Você não tem permissão para fazer extorno"

    'Me.Usuário.SetFocus

    Else

    [Form_F - AutentificaI3].TpPagamento.SetFocus
    [Form_F - AutentificaI3].TpPagamento.Enabled = True
    [Form_F - AutentificaI3].DtVencimento.Enabled = True
    [Form_F - AutentificaI3].Credito.Enabled = True
    [Form_F - AutentificaI3].Debito.Enabled = True
    [Form_F - AutentificaI3].Obs.Enabled = True
    [Form_F - AutentificaI3].DiasAtraso.Enabled = True
    [Form_F - AutentificaI3].NM.Enabled = True
    [Form_F - AutentificaI3].CdAuxiliar.Enabled = True
    [Form_F - AutentificaI3].Caixa.Enabled = True
    [Form_F - AutentificaI3].Juros.Enabled = True
    [Form_F - AutentificaI3].juros_mora.Enabled = True
    [Form_F - AutentificaI3].TpPagamento.Enabled = True


    End If
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009
    • Mensagem nº2

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  JPaulo 18/6/2013, 14:41

    Ola Vanessa, eu não vejo nenhuma instrução de fecho de form ae.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar formulario... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar formulario... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar formulario... Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Vanessapfp
    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011
    • Mensagem nº3

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  Vanessapfp 18/6/2013, 15:32

    pq eu tirei ficava no final 

    docmd.close

    mas ele fecha o primeiro form e não o segundo como deveria...
    • Ir para o topo
    anderson_cgms
    anderson_cgms
    anderson_cgms
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 248
    Registrado : 26/03/2012
    • Mensagem nº4

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  anderson_cgms 18/6/2013, 15:46

    Bom dia, então terá que colocar assim:

    If Me.Password <> "123456" Then

    MsgBox "Você não tem permissão para fazer extorno"

    'Me.Usuário.SetFocus

    Else

    [Form_F - AutentificaI3].TpPagamento.SetFocus
    [Form_F - AutentificaI3].TpPagamento.Enabled = True
    [Form_F - AutentificaI3].DtVencimento.Enabled = True
    [Form_F - AutentificaI3].Credito.Enabled = True
    [Form_F - AutentificaI3].Debito.Enabled = True
    [Form_F - AutentificaI3].Obs.Enabled = True
    [Form_F - AutentificaI3].DiasAtraso.Enabled = True
    [Form_F - AutentificaI3].NM.Enabled = True
    [Form_F - AutentificaI3].CdAuxiliar.Enabled = True
    [Form_F - AutentificaI3].Caixa.Enabled = True
    [Form_F - AutentificaI3].Juros.Enabled = True
    [Form_F - AutentificaI3].juros_mora.Enabled = True
    [Form_F - AutentificaI3].TpPagamento.Enabled = True
    DoCmd.Close acForm, "nomedoform"


    End If
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009
    • Mensagem nº5

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  JPaulo 18/6/2013, 15:47

    DoCmd.Close acForm, "SeuForm", acSaveYes


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar formulario... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar formulario... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar formulario... Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Vanessapfp
    avatar
    Vanessapfp
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 108
    Registrado : 23/05/2011
    • Mensagem nº6

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  Vanessapfp 18/6/2013, 17:12

    obrigada.....dos dois jeito deu certo...
    • Ir para o topo
    JPaulo
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009
    • Mensagem nº7

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  JPaulo 18/6/2013, 17:57

    Obrigado pelo retorno o forum agradece.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Fechar formulario... Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Fechar formulario... Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Fechar formulario... Folder_announce_new Instruções SQL como utilizar...
    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº8

    [Resolvido]Fechar formulario... Empty Re: [Resolvido]Fechar formulario...

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 19/5/2024, 13:05