Laufzeitfehler 2001 in Access 2003
Sie haben die vorherige Operation abgebrochen!
Hallo alle zusammen!
Bin dabei mir für mein Haushaltsbuch eine Access Datenbank (2003) zu erstellen. Will jede Rechung einzelt erfassen und hab auch schon ein Formular mit Unterformular für die Artikelerfassung erstellt. Nun macht mir die Summe für den gesamten Beleg Probleme. Summe der einzelen Aritkel funktioniert ohne Probleme aber bei der Berechung der einzelnen Gesamtsummen zur BelegSumme kommt folgende Fehlermeldung:
"Laufzeitfehler '2001':
Sie haben vorherige Operation abgebrochen"
Hier der Code denn ich für die Summe verwende:
Private Sub BelegSumme_Enter()
dim variable as variant
EinkaufBestellNr.SetFocus
variable = EinkaufBestellNr
BelegSumme = DSum("Gesamtpreis", "Lagerbestandsbewegungen", ("EinkaufBestellNr = variable"))
End Sub
Wenn ich statt variable im Code die EinkaufsBestellNr manuell hinterlege funktioniert es auch.
Bitte um Info bin schon am Verzweifeln.
Danke
Honey
Bin dabei mir für mein Haushaltsbuch eine Access Datenbank (2003) zu erstellen. Will jede Rechung einzelt erfassen und hab auch schon ein Formular mit Unterformular für die Artikelerfassung erstellt. Nun macht mir die Summe für den gesamten Beleg Probleme. Summe der einzelen Aritkel funktioniert ohne Probleme aber bei der Berechung der einzelnen Gesamtsummen zur BelegSumme kommt folgende Fehlermeldung:
"Laufzeitfehler '2001':
Sie haben vorherige Operation abgebrochen"
Hier der Code denn ich für die Summe verwende:
Private Sub BelegSumme_Enter()
dim variable as variant
EinkaufBestellNr.SetFocus
variable = EinkaufBestellNr
BelegSumme = DSum("Gesamtpreis", "Lagerbestandsbewegungen", ("EinkaufBestellNr = variable"))
End Sub
Wenn ich statt variable im Code die EinkaufsBestellNr manuell hinterlege funktioniert es auch.
Bitte um Info bin schon am Verzweifeln.
Danke
Honey
Please also mark the comments that contributed to the solution of the article
Content-Key: 33985
Url: https://administrator.de/contentid/33985
Printed on: April 25, 2024 at 11:04 o'clock
2 Comments
Latest comment
Moin Honey,
ändere bitte den DSum()-Parameter "Criteria" wie folgt:
BelegSumme = DSum("Gesamtpreis", "Lagerbestandsbewegungen", _
("EinkaufBestellNr = " & variable &" "))
Dann tut es.
Gruß
Biber
Anmerkung
Die Eierei über eine Zwischenvariable, die dann auch noch "variable" heißt und vom Typ Variant ist, halte ich für
a) vollständig überflüssig
b) die Wartung des Code immens erschwerend
Wenn Du es an dieser Stelle überhaupt über die äußerst träge DSum()-Funktion machst statt über die Eigenschaft RunningSum, dann reicht:
ändere bitte den DSum()-Parameter "Criteria" wie folgt:
BelegSumme = DSum("Gesamtpreis", "Lagerbestandsbewegungen", _
("EinkaufBestellNr = " & variable &" "))
Dann tut es.
Gruß
Biber
Anmerkung
Die Eierei über eine Zwischenvariable, die dann auch noch "variable" heißt und vom Typ Variant ist, halte ich für
a) vollständig überflüssig
b) die Wartung des Code immens erschwerend
Wenn Du es an dieser Stelle überhaupt über die äußerst träge DSum()-Funktion machst statt über die Eigenschaft RunningSum, dann reicht:
Private Sub BelegSumme_Enter()
' [auskommentiert] EinkaufBestellNr.SetFocus ------->wozu? wo steht denn der Focus Deiner Meinung nach????
' ....hier lässt VBA immer Platz für Kommentare
BelegSumme = DSum("Gesamtpreis", "Lagerbestandsbewegungen", ("[EinkaufBestellNr] = " & EinkaufBestellNr & " "))
' ....und auch hier lässt VBA immer Platz für Kommentare....
End Sub