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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: