Ve se isso Resolve o problema:
Dim UsrAtivos as Integer
strPathArqLdb = "C:Teste.Ldb" ' Ldb é o arq. de proteção do access(mesmo nome do banco porem de extensão .ldb ex.: Para o arq. "Teste.Mdb" vc usa o "Teste.ldb")
Open strPathArqLdb For Input As #1
Do Until EOF(1) 'Lê o arquivo até o final
Line Input #1, strCntArq
Loop
Close #1
UsrAtivos = Len(strCntArq) 36
MsgBox "Usuários Ativos:" & cstr(UsrAtivos)
Agora um detalhe que me deixou muito nervoso:
Teóricamente deveria funcionar 100% mas...
O arquivo ldb vai incluindo usuários a medida que você abre mas não a medida que você fecha a menos que todos tenham fechado ou seja:
Voce abre:ela irá mostrar =1
outro abre:ela irá mostrar = 2
Você fecha: Continuará em = 2 pois o outro não fechou preservando sempre o maior valor...
Ela só será de novo = 1 se todos fecharem incluindo voce e além disso vc abrir o .mdb Sozinho(uma vez)
Espero ter ajudado
Abraços, Sidnei
