Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Erro em exit userform
Erro em exit userform
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
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
Re: Erro em exit userform
Reinaldo,
Não consegui entender!
Sou meio Nub. kkk....
Como posso solucionar esse erro.
Não consegui entender!
Sou meio Nub. kkk....
Como posso solucionar esse erro.
Re: Erro em exit userform
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
Re: Erro em exit userform
Else
Unload Me
O erro está aqui, como você vai abrir o menu, se ele ja esta aberto? MENU.Show
End If
End Sub
Unload Me
O erro está aqui, como você vai abrir o menu, se ele ja esta aberto? MENU.Show
End If
End Sub