title image


Smiley so geht's....


Public Function OtherMDW()

Dim jet As New DAO.DBEngine, ws As DAO.Workspace, db As DAO.Database

jet.SystemDB = "C:\WoDenn\Deine.MDW"

Set ws = jet.CreateWorkspace("myMDW", "Username", "geheimesPasswort", dbUseJet)

Set db = ws.OpenDatabase("C:\Sonstwo\Deine.MDB")

'

' Hier dein Code

' .....

Set db = Nothing

Set ws = Nothing

Set jet = Nothing

End Function



HTH erwin...

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: