ODBC koppeling in Access 2002

• 

  GRP

  11-03-2005 14:32

  Goemiddag,

  Ik heb het volgende probleempje met een access 2002 Database. Het volgende is er aan de hand, de database heeft wat tabellen die op een externe sql server staan. Nu heb ik een odbc koppeling gemaakt naar de database en die werkt goed. Tenminste als je de tabellen opnieuw koppelt via koppelings beheer gaat het goed zolang je Access open laat staan. Zodra je access sluit en de database weer opent geeft hij de volgende melding

  ODBC: de verbinding met is niet tot stand gebracht. (Fout 3151)

  oftewel hij refresht de link niet automatisch bij het starten van de database.

  Heeft iemand hier toevallig een oplossing voor?

  Gr Bas
• 

  Nico den Tuinder

  18-03-2005 13:18

  1. Maak een query op een gekoppelde tabel, en noem deze ‘qryOpstarten’

  2. Zet een functie (eigenlijk een sub) als deze in een module:

  ——————————————————————————————–

  Public Function pfConnectMetODBC()

  On Error GoTo Err_pfConnectMetODBC

  Dim strConnect As String

  Dim qdf As QueryDef

  strConnect = “ODBC;DSN=Database-Prod;Database=Productie;UID=sa;PWD=master”

  Set qdf = CurrentDb.QueryDefs(“qryOpstarten”)

  qdf.Connect = strConnect

  qdf.OpenRecordset

  Exit_pfConnectMetODBC:

  Exit Function

  Err_pfConnectMetODBC:

  MsgBox Err.Description

  Resume Exit_pfConnectMetODBC

  End Function

  —————————————————————————————————-

  Het gaat hier om de strConnect. Hierin geef je de waardes op die je normaliter ook gebruikt bij het instellen van een ODBC-koppeling

  3. Roep deze functie aan in de macro autoexec

  4. Laat de database opstarten, bingo!