Então dividiu a mdb access em back end e font end. Logo ficou com duas mdbs, sendo que uma só tem tabelas e outra programas, existindo uma cópia em cada PC desta mdb(a que só tem programas).
Para que possa obter são necessários, pelo menos, dois dados:
1. Qual o caminho (drive partilhada) para a base de dados BACK END?
2. As tabelas estão linkadas na base de dados FRONT END ?
Eu uso assim:
- Num PC que funciona como servidor renho instalada, numa drive partilhada o meu mdb que tem as tabelas
- Em cada PC cliente tenho instalada uma mdb que só tem programas mas que linka as tabelas do mdb das tabelas da seguinte forma:
No load do forms principal, chamo a seguinte função:
abdbase
Esta função faz o seguinte:
Public Function abdbase()
strdb = ";Database=" &meucaminhoparaoservidor& "minha.mdb;PWD=minhapassword"
'meucaminhoparaservidor=\NOMEDOSERVIDORDIRECTORIOPARTILHADO
Set dbs = CurrentDb
' Create new TableDef
Set tdf = dbs.CreateTableDef("tCLIENTES")
' Attach table in database
tdf.Connect = strdb
tdf.SourceTableName = "tCLIENTES"
dbs.TableDefs.Append tdf
etc. etc
até linkar todas as tabelas
End Function
Depois no close do mesmo, tenho a função:
fecdbase
Esta função faz o seguinte:
Public Function fecdbase()
Set dbs = CurrentDb()
dbs.TableDefs.Delete ("tCLIENTES")
etc.etc até "deslinkar" todas as tabelas
End Function
Com isto trabalho com o Front End, como se este fosse uma mdb normal de access(com tabelas e programas)
Não sei se fui suficientemente explícito, mas ....
