Access Formular, Laufzeitfehler 3009

Hallo Moritz,

Bitte kopiere Deine Anfrage und erstelle einen neuen Thread im MSDN Forum, da dies der geeignertere Ort für
Deine Sachlage ist. Dort sind auch Spezialisten und User aktiv die mit Dir über eventuelle Workarounds und Alternativen diskutieren können. Wenn Du auf
diesen Link
klickst, kommst Du direkt ins deutsche MSDN Forum. Zusätzlich, vielleicht könnte Dir auch

dieser Support-Artikel etwas weiterhelfen. Auch wenn Du schon sehr erfahren scheinst, kann er Dir vielleicht doch noch Anregungen geben, insbesondere durch die anderen Links die Du im Artikel findest.

Auch wenn hier Sachlagen wie Deine sehr eingeschränkt behandelt werden können, gibt es jedoch ein paar Community-Moderatoren und aktive User mit dementsprechenden Hintergrund ähnlich wie bei MSDN, die hier eventuel doch helfen können. Deshalb bitte
lösche diesen Thread nicht, denn diese können hier plötzlich antworten.

Liebe Grüße,

Agnethe

Hallo Franz,

mit "Formular" meinst du ein Access-Formular? Ich nehme an, dass du als Hauptdokument für den Seriendruck kein Word-Formular verwendest. Allerdings kann man als Datenquelle auch kein Access-Formular verwenden.

Du erwähnst in deiner Frage, dass als Datenquelle eine Access-Abfrage verwendet wird. Also vermute ich, dass sich das berechnete Feld in der Abfrage befindet. Und dessen Ergebnis wird im fertigen Serienbrief nicht korrekt angezeigt?

Viele Grüße

Lisa

Mahlzeit Andreas,

super danke jetzt funktioniert es. Allerdings habe ich nun ein weiteren Problem:

Und zwar handelt es sich bei meinem Dokument ja um ein ausfüllbares Formular (also mit bestimmten Feldern zum schreiben und Kontrollkästchen zum ankreuzen). Wenn ich jetzt jedoch den Dokumentschutz wieder aktiviere kommt bei mir die Fehlermeldung:

Laufzeitfehler "4605":

Diese Methode oder Eigenschaft ist nicht verfügbar, weil das Dokument für Bearbeitung gesperrt ist.

Hast du evtl hierfür auch eine Lösung oder gibt es einen anderen Weg dass die Benutzer die dieses Formular verwenden keine Texte aus dem Formular löschen dürfen außer denen die sie eingetragen haben in die Felder?

Danke für deine Hilfe.

Noch einen schönen Sonntag.

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 />