Änderungen über VBA im Unterformular ergibt Laufzeitfehler 7878

[w.weitzel]

Hallo,
ich möchte über eine VBA Funktion den Inhalt eines Feldes im UFO aktualisieren.
Der Code hierzu sieht in den betreffenden Zeilen wie folgt aus:
...Set rsdb1 = db.OpenRecordset(StrSQL1)
...v_Anz_Sec = ""
...Forms!HFo!UFo!Selection = v_Anz_Sec
In dieser Zeile erhalte ich die Fehlermeldung
Laufzeitfehler 7878:
Die Daten wurden geändert.
Wähle ich Debuggen aus und schalte Schrittweise weiter, wird die Änderung ordnungsgemäß vorgenommen.

Wieso kommt dennoch die Fehlermeldung?

Ich verwende Windows 7 prof. mit Access 2013

Mit freundlichen Grüßen
W. Weitzel

[Karl Donaubauer]

Hallo!

W.weitzel schrieb:

> ich möchte über eine VBA Funktion den Inhalt eines Feldes im UFO aktualisieren.
> Der Code hierzu sieht in den betreffenden Zeilen wie folgt aus:
> ...Set rsdb1 = db.OpenRecordset(StrSQL1)
> ...v_Anz_Sec = ""
> ...Forms!HFo!UFo!Selection = v_Anz_Sec
> In dieser Zeile erhalte ich die Fehlermeldung
> Laufzeitfehler 7878:
> Die Daten wurden geändert.
> Wähle ich Debuggen aus und schalte Schrittweise weiter, wird die Änderung ordnungsgemäß vorgenommen.
>
> Wieso kommt dennoch die Fehlermeldung?

> ...
Ein Recordset ist diesbez. immer verdächtig.
Leider sieht man nicht, worauf du das RS machst und was du damit tust.
Wenn es auf eine Datenquelle des UFos geht, dann ist es wahrscheinlich
der andere Benutzer, der blabla...

Lass es mal testweise weg und schau, ob das Schreiben ins Ufo geht.
Je nachdem, was das RS tut, reicht es, es vorher zu schließen, und/oder
es muss das UFo aktualisiert werden, oder statt des RS überhaupt eine
ganz andere Lösung stattfinden.

--
Ciao
Karl
*********
Access FAQ: http://www.donkarl.com/it
Access Lobby: http://www.AccessDevelopers.org

[w.weitzel]

Hallo Karl,

vielen Dank für die Info.
Folgendes Verhalten konnte ich feststellen.
...v_Anz_Sec = ""
...Set rsdb1 = db.OpenRecordset(StrSQL1)
rsdb1.Close: Set rsdb1 = Nothing
...Forms!HFo!UFo!Selection = v_Anz_Sec
Der Fehler tritt wieder auf.
Verwende ich nach dem öffnen des RS Sprungbefehle
...v_Anz_Sec = ""
...Set rsdb1 = db.OpenRecordset(StrSQL1)
Goto SchliessenRS
...
...SchliessenRS:
...rsdb1.Close: Set rsdb1 = Nothing
...
...EndeSelectionVDP:
...v_Form1!Selection = v_Anz_Sec
Mit diesem Ablauf tritt der Fehler nicht auf.
Dieses Verhalten kann ich mir nicht erklären.

MfG
Wolfgang

[w.weitzel]

Hallo Karl,

ich denke ich habe den Fehler gefunden.
Wenn ich dass UFo vor der Änderung des Feldes aktualisiere und nochmals nach der Änderung tritt der Fehler nicht mehr auf und der Feldinhalt inst korrekt.
Dann kann ich auch den zusätzlichen Sprungbefehl wieder entfernen.

Danke für die Hilfe.

MfG
Wolfgang