Office: (Office 2010) Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen

Seyfert · 29. November 2010

Hallo allerseits,
meine DB lief bislang im Netzwerk bzw. lokal. Da es aber seitens der Performance und zwischenzeitlich Mehrbenutzersystem geworden ist, habe ich die DB auf einen SQL-Server (Backend) und Access2010 (frontend) umgemodelt. Soweit so gut. In dieser DB lese ich parameter über einen Button automatisch aus ein/mehreren txt-files in eine Tabelle ein (Code siehe unten). Vor der Umstellung hat das ganze funktioniert, nach der Umstellung erscheint der Fehlercode 3155 - Einfügen in einer verknüpften Tabelle fehlgeschlagen. Habe bereits im Forum gestöbert, aber nichts gefunden. Im www habe ich einen Hinweis gefunden, dass es ggf. mit NULL-Werten zu tun haben könnte. Ich habe in der Tabelle ein Feld l_fk (Fremdschlüssel) welcher beim Import definitiv NULL ist und in einem weiteren Schritt über einen weiteren VBA-Code gefüllt wird. Im SQL-Manager in den Definitionen der Tabelle und des Feldes steht drin, dass NULL-Werte zugelassen sind.

Code:

Private Sub BefLufu_imp_Click()
On Error GoTo FehlerBefLufu_imp

Dim RS As DAO.Recordset
'Dim RS As ADODB.Recordset
Dim varr As Variant
Dim sPfad As String
Dim sName As String
Dim varsql As String

sPfad = "I:\02 Active Projects\01 Clinical Projects\01 Organisation_Forms\10 Patient data base\03 LuFu_Import\"
sName = Dir(sPfad & "*.txt") ' Ersten Eintrag abrufen.

' Daten einspielen
Set RS = CurrentDb.OpenRecordset("tbl_lufu_import", dbOpenDynaset, dbSeeChanges)

Do While sName > "" ' Schleife beginnen.
varr = Split(fReadFile(sPfad & sName), vbCrLf)
RS.AddNew
RS!pat_id = varr(0)
RS!ldate = varr(1)
RS!ltime = varr(2)
RS!fev1a = Val(varr(3))
RS!fev1b = Val(varr(4))
RS!fvca = Val(varr(5))
RS!fvcb = Val(varr(6))
RS!fev1fvc = Val(varr(7))
'RS!limpdate = Now()
'RS!lyse = 3
'RS!l_fk = 0
RS!lfile = sName
' ...
RS.Update

' Datei löschen
'Kill sPfad & sName
' Datei verschieben
Name sPfad & sName As sPfad & "Archiv\" & sName
sName = Dir ' Nächsten Eintrag abrufen.
Loop

MsgBox "Einlesen erfolgreich!"
'DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

RS.Close
Set RS = Nothing

EndeBefLufu_imp:
Exit Sub
FehlerBefLufu_imp:
MsgBox Err.Number & " " & Err.Description
Resume EndeBefLufu_imp

End Sub
Public Function fReadFile(ByRef Path As String) As String
' gesamte Textdatei wird in einen String eingelesen

Dim FileNr As Long

'Falls nicht vorhanden, nichts zurückgeben:
On Error Resume Next
If FileLen(Path) = 0 Then Exit Function
On Error GoTo 0

'Datei einlesen:
FileNr = FreeFile
Open Path For Binary As #FileNr
fReadFile = Space$(LOF(FileNr))
Get #FileNr, , fReadFile
Close #FileNr
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hat irgendjemand Erfahrungen oder eine Hilfestellung was falsch läuft. Bin über alles dankbar.

Vielen Dank im voraus und viele Grüße
Tanja

:)

KaSchu · 1. Dezember 2010

Hallo Tanja,

hat Deine Tabelle tbl_lufu_import einen Primärschlüssel?
Gibt es in tbl_lufu_import einFeld vom Typ timestamp?

Beides sollte vorhanden sein.

Gruß
Karsten

Lanz Rudolf · 1. Dezember 2010

Hallo
zum Fehler Suchen könntest Du Folgendes versuchen:
Code:

Do While sName > "" ' Schleife beginnen.
Debug.print fReadFile(sPfad & sName)
varr = Split(fReadFile(sPfad & sName), vbCrLf)
Debug.print varr(0)
:
:
:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

lies evtl. auch meinen Anhang

Seyfert · 1. Dezember 2010

Hallo Karsten,
zu Deinen Fragen:

ja, tbl_lufu_import hat einen Primärschlüssel: id (autowert)

Wobei im SQL-Manager diese Variable als "int" definiert ist. Im Access2010 steht "AutoWert". Könnte das Probleme bereiten?

Tanja

KaSchu · 1. Dezember 2010

Hallo Tanja,

ja, tbl_lufu_import hat einen Primärschlüssel: id (autowert)

Wobei im SQL-Manager diese Variable als "int" definiert ist. Im Access2010 steht "AutoWert". Könnte das Probleme bereiten?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich glaube, dass das keine Probleme macht.

Wie stellst Du die Verbindung zwischen ACCESS und dem SQL-Server her? ODBC?

Set RS = CurrentDb.OpenRecordset("tbl_lufu_import", dbOpenDynaset, dbSeeChanges)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Du solltest mal in der OH zu OpenRecordset nachschlagen und mit dem Typ und den Optionen verschiedene Kombinationen ausprobieren.

Gruß

Karsten

Office: (Office 2010) Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen

Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen

Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen

Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen

Fehler 3155 Einfügen in einer verknüpften Tabelle fehlgeschlagen - Similar Threads - Fehler 3155 Einfügen

Problem mit Formel bzw. Formatierung

Fehler beim speichern von Daten über ein Formular

Fehler (0x800CCC78) beim Ausführen der Aufgabe "xx.yyyy@kabelmail.de - Nachrichten werden gesendet"

Fehler beim SVERWEIS Vermeidbar?

Installation schlägt fehl - Fehler in OfficeClickToRun.exe

Bei meinem Outlook (new) fehlen wichtige Funktionen!

Ständige Passwortabfrage und Kalendersyncronisations Fehler