Veteran
Beiträge: 291
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 |