Access Laufzeitfehler 3823

Das erzeugte SQL-Statement lautet:
<br />UPDATE tbl_Kunde T1 INNER JOIN (SELECT K_Nr, Uber FROM [Excel 12.0;HDR=Yes;Database=C:\OneDrive\Dokumente\Test.xlsx].[Tabelle1$A1:B3]) T2 ON T2.K_Nr = T1.K_ID SET T1.K_Du = T2.Uber;
<br />in folgende VBA-Umgebung:
<br />Public Sub ImportFromWorksheet()
<br /> Dim strFile As String, strCon As String, strMsg As String
<br />
<br /> Dim ws As Worksheet
<br /> Dim wb As Workbook
<br />
<br /> Dim objExcel As Excel.Application
<br /> Set objExcel = New Excel.Application
<br /> objExcel.Visible = True
<br /> objExcel.Workbooks.Open "C:\OneDrive\Dokumente\Test.xlsx", ReadOnly:=True
<br /> objExcel.ActiveWorkbook.Sheets(1).Select
<br /> Set sht = ActiveSheet
<br /> Dim rng As String
<br />
<br /> Dim dbs As Database
<br /> Set dbs = CurrentDb
<br />
<br /> strFile = "C:\OneDrive\Dokumente\Test.xlsx"
<br /> strCon = "Excel 12.0;HDR=Yes;Database=" & strFile
<br />
<br /> Dim strSql As String, sqlTransferFromExcel As String
<br />
<br /> rng = "A1:B3"
<br />
<br /> sqlTransferFromExcel = "UPDATE tbl_Kunde T1 " & _
<br /> "INNER JOIN (SELECT K_Nr, Uber FROM [{{connString}}].[{{sheetName}}${{rng}}]) T2 " & _
<br /> "ON T2.K_Nr = T1.K_ID " & _
<br /> "SET " & _
<br /> "T1.K_Du = T2.Uber;"
<br />
<br /> sqlTransferFromExcel = Replace(sqlTransferFromExcel, "{{rng}}", rng)
<br /> sqlTransferFromExcel = Replace(sqlTransferFromExcel, "{{connString}}", strCon)
<br /> sqlTransferFromExcel = Replace(sqlTransferFromExcel, "{{sheetName}}", sht.Name)
<br />
<br /> dbs.Execute sqlTransferFromExcel
<br />
<br /> objExcel.Workbooks.Close
<br /> objExcel.Quit
<br /> Set objExcel = Nothing
<br />
<br />End Sub
<br />

Hallo!
<br />Dass man verknüpfte Excel-Tabellen nicht editieren kann, ist seit 20 Jahren so, also schon ein paar Versionen her. Seit damals gibt es einen Workaround, den ich FAQ 7.21 beschreibe. Werde nur gleich mal den nicht mehr aktuellen KB-Link dort ändern.
<br />Servus
<br />Karl
<br />

Hallo!
<br />Was seit langem gesperrt ist, ist an sich nur die Aktualisierbarkeit gelinkter Excel-Tabellen. Wenn hingegen die beteiligte Access-Tabelle nicht aktualisierbar ist, die Meldung aber Bezug auf die Excel-Tabelle nimmt, dann liegt es vielleicht an der Formulierung der Abfrage, sprich am SQL-Statement. Ohne das gesehen zu haben, kann man dazu nicht viel sagen.
<br />Servus
<br />Karl
<br />

Die Statements
<br />UPDATE tbl_Kunde T1 INNER JOIN (SELECT K_Nr, Uber FROM [Excel 12.0;HDR=Yes;Database=C:\Users\Heller\Test.xlsx].[Tabelle1$A1:B3]) T2 ON T2.K_Nr = T1.K_ID SET T1.K_Du = T2.Uber;
<br />oder auch
<br />UPDATE tbl_Kunde AS T1 INNER JOIN [Excel 12.0;HDR=Yes;Database=C:\Users\Heller\Test.xlsx].[Tabelle1$A1:B3] AS T2 ON T2.K_Nr = T1.K_ID SET T1.K_Du = T2.Uber;
<br />bringen im sql-Ausführen-Mode in ACCESS ausgeführt ebenfalls die Meldung "Sie können das Feld nicht bearbeiten ..." "verknüpfte EXCEL-Kalkulationstabelle ..."
<br />Ersetzt man hingegen
<br />[Excel 12.0;HDR=Yes;Database=C:\Users\Heller\Test.xlsx].[Tabelle1$A1:B3]
<br />durch eine definitionsgleiche und inhaltsgleiche Access-Tabelle laufen die Statements
<br />UPDATE tbl_Kunde T1 INNER JOIN (SELECT K_Nr, Uber FROM tbl_Test) T2 ON T2.K_Nr = T1.K_ID SET T1.K_Du = T2.Uber;
<br />oder
<br />UPDATE tbl_Kunde AS T1 INNER JOIN tbl_Test AS T2 ON T2.K_Nr = T1.K_ID SET T1.K_Du = T2.Uber;
<br />problemlos durch und updaten die richtigen Zeilen.
<br />Ich begrabe den Traum.
<br />Danke für die Hilfestellung.
<br />

Hallo!
<br />Wenn ich den Code richtig lese, ist das ganze Excel-Automatisieren darin überflüssig. Das würde ich auch weglassen, weil es höchstens zu unnötigen Sperrungen führen kann.
<br />Fragen:
<br />1. Wie lautete das SQL-Statement, das ursprünglich den Fehler 3823 verursacht hat?
<br />Und gab es den Fehler auch mit dem SQL-Statement als Abfrage, also außerhalb des Codes?
<br />Die Frage bezieht sich darauf, dass ich in mehreren Access-Versionen problemlos eine Aktualisierungsabfrage auf eine Access-Tabelle ausführen kann, auch wenn eine eingebundene Excel-Tabelle in der Abfrage drin ist.
<br />2. Ich grüble etwas über:
<br />> Lässt sich die Excel-Umgebung so definieren, dass sich eine Bearbeitung in Excel ausschließen lässt und sich das SQL-Statement doch ausführen lässt?
<br />Ich vermute, das bedeutet, dass der Fehler 3823 auch noch mit dem zuletzt hier geposteten Code passiert, also der aktualisierbaren Excel-Verwendung.
<br />Wenn dem so ist, dann wie geschrieben:
<br />Die Aktualisierbarkeit der Excel-Tabelle bringt hier wahrscheinlich eh nix. Das sollte auch mit einer eingebundenen Excel-Tabelle klappen. Aber ich würde das (ursprüngliche und neue) SQL-Statement erst mal in eine neue Abfrage kopieren und somit außerhalb des Codes und im reinen Access-Kontext testen.
<br />Servus
<br />Karl
<br />