Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Problemas com SQL e...
 
Notifications
Clear all

Problemas com SQL em UserForm

 
2024 - VBA & Macros
Post Recente por Trindade 10 anos atrás
4 Posts
3 Usuários
0 Reactions
1,120 Visualizações
RSS
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
Topic starter
 

Boa noite, a todos do Fórum.

Estou com um problema na aplicação que estou desenvolvendo, tenho o UserFormAnaliseIndividual, onde tem duas consultas SQL para preencher dois ComboBox, até o preenchimento dos combos com as informações esta tranquilo o problema esta quando fecho o UserForm e vou fechar a planilha no " X " do próprio Excel, ela fica processando e não mata a aplicação tenho que ir no Gerenciador de tarefas do Windows e encerrar o processo do Excel ou retornar no Visual Basic e pausar a execução que irar aparecer para eu salvar ou cancelar alterações.

Não sei o que deve ser, mas creio que é alguma conexão que estou abrindo e não estou fechando, já tentei colar .Close para fechar as conexões no final de cada SQL e Nothing para liberar memória mas não deu muito certo pois o problema persiste.

Gostaria de uma ajuda dos senhores mais uma vez !!!

Segue um exemplo da minha aplicação que esta apresentando problema.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 17/01/2015 7:14 pm
Lovera
 Lovera
(@lovera)
Posts: 90
Trusted Member
 

Confesso que não consegui localizar o problema.
Aconteceu o mesmo aqui.

Será que alguma das rotinas de tratamento de erro não tem algo a ver....

Fiquei curioso, ficarei atento nas respostas dos mestres....

 
Postado : 18/01/2015 8:22 am
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Acredito que o problema seja na rotina agregada ao Botão (Custon Control) Sair.
Altere conforme abaixo e teste:

Private Sub Sair(control As IRibbonControl)
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Sheets("CAPA").Activate
    Application.Quit
End Sub

Postagem similar em: http://www.tomasvasquez.com.br/forum/posting.php?mode=reply&f=20&t=3579#preview

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 21/01/2015 7:45 am
Trindade
 Trindade
(@trindade)
Posts: 278
Reputable Member
Topic starter
 

Bom dia, Reinaldo.

Testei o código conforme sua orientação mas não deu certo.
Pois eu chamo o UserForm agregado ao botão Individual, onde carrega normalmente porem quando eu fecho o form e tento fechar a planilha tanto no botão SAIR quanto no botão " X " do Excel isso não ocorre fica processando e nada de fechar o aplicativo.

Pra poder matar aplicação tenho que abrir o Gerenciador de Tarefas e finalizar o Excel.

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

 
Postado : 21/01/2015 9:09 am
Forum Jump:
  Tópico Anterior
Próximo Tópico