Hallo,

wir wollen das Backend updaten ... leider will Access da nicht so mitspielen.

Der Testcode:
Dim dbs As DAO.Database
Dim tdf As DAO.TableDef
Dim dbsODBC As DAO.Database
Dim tdfODBC As DAO.TableDef
Dim strLocalName As String
Const ODBCConnect = "ODBC;Driver={PostgreSQL Unicode};Server=srvxxx;Port=5432;Database=dbtest;Uid=db;Pwd=geheim;"

' Lokale Datenbank
Set dbs = CurrentDb()
' ODBC-Datenbank in Jet öffnen
Set dbsODBC = DBEngine.OpenDatabase("DSNNAME", dbDriverNoPrompt, True, ODBCConnect)

dbsODBC.TableDefs.Refresh
' Alle Tabellen verknüpfen
For Each tdfODBC In dbsODBC.TableDefs
   strLocalName = Mid(tdfODBC.Name, InStr(1, tdfODBC.Name, "." ) + 1)
   If strLocalName = "tbl_anschreiben" Then
      Set tdf = dbs.CreateTableDef(strLocalName & "__", 0&, tdfODBC.Name, dbsODBC.Connect)
      dbs.TableDefs.Append tdf ' <--- Fehler
   End If
Next tdfODBC
dbs.TableDefs.Refresh

Fehlermeldung:

3146  ODBC-Aufruf fehlgeschlagen.

 1     Error while executing the query

Mit der produktiven DB funktioniert das (PG9.6). Auf dem Testserver ist PG14.

Access 2016, PostgeSQL

Die Verbindung wird hergestellt, aber bei dbs.TableDefs.Append tdf kommt der Fehler.

Hat jemand eine Idee was das Problem ist?