Olá pessoal,

Tenho um sério problema. Descobri que o meu sistema não é multi-tarefa. Ou seja enquanto uma tarefa não termina por ex: um do while, o usuário não pode passar para outra tela.

Trabalho com DAO e uso as declarações de banco de dados da seguinte forma:

em um módulo:

Public DdbEMPRE as Dao.DataBase

Public TtbEMPRE as RecordSet

 

'depois faço uma rotina:

Public Function AdbEMPRE

    Set DdbEMPRE = DBEngine.OpenDatabase(App.Path + "DADOSCEMPRESA.MDB",False, False,   ";pwd=XXXXXXXX")
    Set TtbEMPRE = DdbEMPRE.OpenRecordset("CEMPRESA")

End Function

 

 

Pois bem, quando vou usar o banco de dados em uma tela faço assim

AdbEMPRE

e uso as tabelas do banco normalmente.

 

Porém quando a tarefa é demora, por exemplo um do while e o usuário abre outra tela que irá usar o mesmo recordset, neste caso TtbEMPRE, ae já viu!!! dá um erro, pois ela é do tipo pública.

 

O que devo fazer?

 

Muito obrigado.

 

Eu não acho conveniente permitir a um mesmo usuário tentar manipular o banco de dois locais diferentes num mesmo programa já é bastante vc ter que cuidar de usuários simultaneos na rede alterando o mesmo banco o que é comum é vc abrir este form consulta do tipo vbModal ou seja só ele fica ativo o usuário não faz mais nada enquanto sua consulta não se completar, ai vc cria um aviso, pode ser uma Label piscando, o cursor vira uma ampulheta, ainda uma ProgressBar para mostrar pro usuário que seu prog esta trabalhando, pra ele não desesperar a usar CTRL+ALT+DEL.

e o mais sensato é checar todas lógicas em seus loops porque nem todos processos precisam ou devem ser demorados vá em www.macoratti.com lá tem muita dica de como agilizar suas consulta sem usar estes controles vale a pena ler!!!

 

Obrigado pela dica. Vou analisar isso. Valeu...

Olha, não sei se isso se aplica no teu caso mas dá uma olhada em DoEvents no help.

Eu uso em casos de loops.

 

Claudio.