title image


Smiley TIPP: Privilegierten Workspace öffnen um Tabelle zu verknüpfen


Public Function CreateLinkPrivileged(Optional SrcDBName = "C:\test\test.mdb", Optional DestTblName = "tblTestLink", _

Optional DestDBName = "C:\test\nochne.mdb", Optional SourceTblName = "MeineTabelle", _

Optional User = "Admin", Optional PWD = "")



Dim DB As DAO.Database, Tbl As DAO.TableDef, WS As DAO.Workspace

Set WS = DBEngine.CreateWorkspace("tmp", User, PWD)

Set DB = WS.OpenDatabase(SrcDBName)

On Error Resume Next

DB.TableDefs.Delete DestTblName

On Error GoTo 0

Set Tbl = DB.CreateTableDef(DestTblName)

Tbl.SourceTableName = SourceTblName

Tbl.Connect = ";DATABASE=" & DestDBName

DB.TableDefs.Append Tbl

DB.Close

WS.Close

End Function



Verweis auf die DAO-Objektbibliothek nicht vergessen!

Gruß aus dem Norden

Reinhard


Bitte immer die Access-Version angeben


 



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: