Office: Laufzeitfehler 3167

Peter Hoefelmeyer · 24. Februar 2003

Hallo,
Also folgende Situation. Aus einem Modul werden bei mir verschiedene andere Module und Abfragen nacheinander aufgerufen. U.a. auch das unten abgebildete Modul Sub BerichtD(). Allerdings unterbricht er hier mit dem Fehler:
Laufzeitfehler 3167
Datensatz gelöscht.
an der unten rot markierten Stelle.

Der Witz ist, dass das Modul weiterläuft wenn ich auf fortführen klicke, obwohl ich nichts geändert habe. Und noch merkwürdiger ist, dass das Modul auch ohne Fehlermeldung komplett durchläuft, wenn ich es manuell, unabhängig von allen anderen ausführe.

Kennt jemand dieses Problem. Bin über jeden Hinweis dankbar.

Code:

Sub BerichtD()
'Erzeugt Daten für Bericht D.

Dim i As Byte
Dim qry1 As DAO.QueryDef
Dim qry2 As DAO.QueryDef
Set DB = CurrentDb
Set qry1 = DB.QueryDefs("abf006_1")
Set qry2 = DB.QueryDefs("abf006_1b")

'Anfügeabfrage "abf006_1" und "abf006_1b" wird aufgerufen und das LKZ (A/D/CH/S) als Parameter übergeben
For i = 1 To 4
qry1("xxLKZ") = LKZ(i): qry1.Execute
qry2("xxLKZ") = LKZ(i): qry2.Execute
Next i
'DK wurde nachträglich ergänzt, deswegen wird hier die Abfrage mit LKZ(6)=DK nochmal einzeln aufgerufen
qry1("xxLKZ") = LKZ(6): qry1.Execute
qry2("xxLKZ") = LKZ(6): qry2.Execute

'die folgende Anfügeabfrage wird aufgerufen, um alle anderen LKZ für "Sonstige" auszuwerten
DoCmd.OpenQuery ("abf006_1_1")
DoCmd.OpenQuery ("abf006_1_1b")
qry1.Close: qry2.Close: DB.Close: Set qry1 = Nothing: Set qry2 = Nothing: Set DB = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

:)

tom70 · 26. Februar 2003

Vielleicht ist dies ja die Lösung *Smilie

Aus der MSDN:

When you add a record to an SQL table using Visual Basic for Applications, if the table's unique index field has a default value, and you do not assign a value to that field, the new record appears deleted until you reopen the SQL table. If you try to obtain a value from the new record, you receive the following error message:

Run-time error '3167'
Record is deleted.

RESOLUTION
When you open the SQL table using Visual Basic code, include the dbSeeChanges option, as in the following example:

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

Gruß tom70

Peter Hoefelmeyer · 26. Februar 2003

Hi Tom,

danke für Deine Antwort, aber leider irgendwie noch nicht die Lösung.

Die Anfüge-Abfrage die definiert wird, fügt zwar Daten an eine Tabelle an, bei der ein Feld einen Standardwert enthielt. Diesen habe ich aber entfernt und der Fehler tritt immer noch auf.

*bawling
Peter

Peter Hoefelmeyer · 28. Februar 2003

Hab eine Lösung gefunden.

Und zwar scheint es ein "Timing"-Problem zu sein. Bevor ich diese SUB aufgerufen hatte, wurde eine Abfrage aufgerufen. Wenn ich jetzt eine Wartefunktion zwischen diesen beiden Aufrufen schalte, dann funktionierts!

Also hat Access anscheinend die vorherige Abfrage noch nicht ganz abgeschlossen gehabt und hat sich dadurch verschluckt. Gibt man ihm ein paar Sekunden dazwischen Zeit, dann läuft er ohne Probleme durch.

Peter (ist erleichert)

Office: Laufzeitfehler 3167

Laufzeitfehler 3167

Laufzeitfehler 3167

Laufzeitfehler 3167

Laufzeitfehler 3167 - Similar Threads - Laufzeitfehler 3167

Laufzeitfehler 9 VBA

VBA Laufzeitfehler 9

[VBA] .Documents.Open -> Laufzeitfehler 91

MS Access Lauftzeitfehler "2501"

Excel VBA Laufzeitfehler 424 Objekt erforderlich

Laufzeitfehler "424" Objekt erforderlich Selenium VBA

Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".