Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro em exit userform

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Dyegoo3
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Jul 28, 2018 7:25 am

Erro em exit userform

Mensagem por Dyegoo3 »

Prezados,

Conseguem me apoiar? Estou desenvolvendo um sistema utilizando somente
Userform's, e codifiquei os mesmos para quando finalizar a codificação
fechar e exibir o userform menu, porém quando estou no userform Menu e
click em um botão para abrir o userform anterior aparece o seguinte erro:

Erro em tempo de execução '400':
formulário já exibido; impossível exibir de forma modal

Código Userform CadMat:

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
Cancel = True
msg = MsgBox("DESEJA FECHAR O SISTEMA?", vbOK + vbQuestion, "
ROCONTEC - ATENÇÃO")
End If
If msg = vbOK Then

Unload Me

ActiveWorkbook.Saved = True

Workbooks("controle de estoque.xlsm").Close

Else
Unload Me
MENU.Show
End If
End Sub

Código Userform Menu:

Private Sub CommandButton2_Click()

Unload Me
CadMat.Show

End Sub

'Neste o código deplurou


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Erro em exit userform

Mensagem por Reinaldo »

Ao abrir cadmat menu e fechado ou "escondido"?


Dyegoo3
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Jul 28, 2018 7:25 am

Re: Erro em exit userform

Mensagem por Dyegoo3 »

Reinaldo,

Não consegui entender!
Sou meio Nub. kkk....
Como posso solucionar esse erro.


Dyegoo3
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Jul 28, 2018 7:25 am

Re: Erro em exit userform

Mensagem por Dyegoo3 »

Pessoal,

Conseguem nos apoiar???


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Dyegoo3
Acabou de chegar
Acabou de chegar
Mensagens: 4
Registrado em: Sáb Jul 28, 2018 7:25 am

Re: Erro em exit userform

Mensagem por Dyegoo3 »

Alguém, teria alguma solução para esse ERRO?


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Erro em exit userform

Mensagem por sandrojrs »

amigo é simples, você esta abrindo um form em cima do outro, isso não pode a não ser de forma modal como diz o erro


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Erro em exit userform

Mensagem por sandrojrs »

Else
Unload Me
O erro está aqui, como você vai abrir o menu, se ele ja esta aberto? MENU.Show
End If
End Sub


sandrojrs
Colaborador
Colaborador
Mensagens: 38
Registrado em: Seg Fev 19, 2018 5:32 pm

Re: Erro em exit userform

Mensagem por sandrojrs »

me manda a planilha que arrumo para você


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder