Extreme Veteran
  Beiträge: 304
     Ort: München | Ich hab's jetzt mal mit RefreshLink versucht. http://access.mvps.org/access/tables/tbl0009.htm
  Das gleiche Problem. Hier der Code-Auszug:
  Set tdfLocal = dbCurr.TableDefs(strTbl) With tdfLocal    .Connect = "ODBC;Driver={PostgreSQL Unicode};Server=srvxxx;Port=5432;Database=dbtest;Uid=db;Pwd=geheim;"    .RefreshLink    collTbls.Remove (strTbl) End With
 
  '-- Fehlerbehandlung Variante 1 Dim e As Error For Each e In DBEngine.Errors		' <-- Laufzeitfehler "13": Typen unverträglich     Debug.Print e.Number, e.Description Next e
 
  '-- Fehlerbehandlung Variante 2 Dim e As dao.Error For Each e In DBEngine.Errors    Debug.Print e.Number, e.Description Next e ' Fehler: ' 1            Error while executing the query ' 3146         ODBC-Aufruf fehlgeschlagen.   Warum kommt da beim neuen Server ein Fehler in der Variante 1?    ----- Grüße aus München  
Stefan |