Office: (Office 2016) ODBC Anbindung zur SQL Datenbank in Access Frontend einbauen

Hallo zusammen,

ich habe folgendes Setup:

Datenbank auf SQL
Frontend MSAccess
User ca. 50

Damit ich nun nicht bei jedem User lokal eine ODBC Anbindung am Rechner einrichten muss, suche ich eine Lösung, um die Anbindung im Frontend direkt zu platzieren. Soll dann bei einen OnOpen Event eingebaut werden. Habe folgdenden Code ausprobiert, der blockiert aber bei meinem SQL-Server-Namen.

Private Sub Form_Open(Cancel As Integer)
Set tdf = dbs.TableDefs("SomeTable")
tdf.Connect = "Driver={SQL Server};" & _
"Server=" & Me.ARLTQLDK050-I50 & ";" & _
"Database=" & Me.CE_PAT_1 & ";" & _
"Trusted_Connection=Yes;" & _
"Table=SomeTable"
tdf.RefreshLink
End Sub

Wobei der Servername "ARLTQLDK050-I50" ist. VBA zieht das sofort auseinander. (Wobei "-" im Namen ein Backslash sein muss, stellt das Forum hier aber nicht dar).
Skript bleibt immer beim Servernamen hängen. Auch wenn ich "I50" weglasse, klappt es nicht.

Wäre für Hilfe sehr dankbar.

Gruß

:)

 

Moin,

wozu steht "me." vor dem Servernamen?

 

Moin,

wozu steht "me." vor dem Servernamen? Und warum sind keine Hochkomma drum herum?

 

Vermutlich weil es Formular-Steuerlemente sind, auf die sich dort bezogen wird. Damit müssten eckige Klammern drumherum und keine Hochkommata. - Oder besser gleich einen Namen ohne Bindestrich vergeben.

 

Ich habe den Code aus einem anderen Forum. Warum dort Me steht, kann ich nicht sagen. Ich werde aber mal die vorgeschlagene Variante ausprobieren.

 

Private Sub Form_Open(Cancel As Integer)
Set tdf = dbs.TableDefs("SomeTable")
tdf.Connect = "Driver={SQL Server};" & _
"Server=" & Me.[ARLSQLDK062I62] & ";" & _
"Database=" & Me.[CE_PAT_TEST] & ";" & _
"Trusted_Connection=Yes;" & _
"Table=SomeTable"
tdf.RefreshLink
End Sub

Das klappt noch nicht.
Laufzeitfehler "424", Objekt erforderlich.

 

Moin,

wenn der Fehler kommt, ist eine Zeile gelb markiert, die müsstest Du schon angeben.

Vermutlich passiert das bei
Code:

Das kann zB daran liegen, dass es keine TableDef namens "SomeTable" gibt oder dass der Connect-String falsch ist.

 

Sorry, nur halbe Info.

Code wird schon hier gestoppt: Set tdf = dbs.TableDefs("SomeTable")

Ich dachte, Some Table steht als Platzhalter für alle Tabellen in der SQL DB.

 

Der Thread ist echt cabaretreif. *grins
Auch beim Kopieren sollte man versuchen zu verstehen, was die "Vorlage" bedeutet.

wenn Me.[ARLSQLDK062I62] verwendet wird, muss der Code in einem Formular stehen, dass ein Feld besitzt dass mit Namen ARLSQLDK062I62 angesprochen werden kann. Was sicher nicht der Fall ist.

Richtig schreibst du also statt
"Server=" & Me.[ARLSQLDK062I62] & ";" & _
"Server=ARLSQLDK062I62;" & _

Versuche den Grund zu verstehen, damit du das auch auf den Rest anwenden kannst.

Und SomeTable steht stellvertretend für eine reale Tabelle die du auch real angeben musst.

LG Markus

 

Code stoppt weiterhin hier:
Set tdf = dbs.TableDefs("dao.tbl_data_project")
Gleiche Fehlermeldung.

Tabellenname eingefügt.
Me. auch bei der Database entfernt.
Feld mit Bezug besteht nicht, korrekt.

Danke für Deine Bemühungen.


Private Sub Form_Open(Cancel As Integer)
Set tdf = dbs.TableDefs("tbl_data_project")
tdf.Connect = "Driver={SQL Server};" & _
"Server=ARLSQLDK062I62;" & _
"Database=CE_PAT_TEST;" & _
"Trusted_Connection=Yes;" & _
"Table=tbl_data_project"
tdf.RefreshLink
End Sub

 

Für RefreshLink müsste die Verknüpfung der jeweiligen Tabelle bereits im Frontend bestehen. Tut sie das denn?

 

Natürlich, die Daten können auch nicht stimmen.
Der Name der Tabelle lautet doch sicher nicht "dao.tbl_data_project". Ist auch nicht möglich.

LG Markus

 

dao war Schreibfehler.

Tabellenverknüpfung zur SQL liegt im Frontend vor.
Die Tabellen heißen im SQL = dbo.tbl_data_project
Die Verknüpfungen heißen im Frontend = tbl_data_project

Habe mit und ohne dbo versucht. Aber beide Varianten klappen nicht.

 

Ist dbs ein gültiges Objekt?
Wo und wie wird es initialisiert?
Kannst du den Code fehlerfrei compilieren?

LG Markus

 

Hallo!

Bitte prüfe, ob im Kopf des Codemoduls Option Explicit steht. (Falls nicht, bitte nachtragen.)

Ich bau deinen Code einmal auf einen prüfbaren Code um:
Code:

mfg
Josef