Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Laufzeitfehler 3021 BOF oder EOF ist true
zurück: CSV Export: unerwünschte Trennlinie & Zeichenlänge weiter: Suchformular in 10 Minuten erstellt Nachgefragt Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
cirillo2014
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 07:12
Rufname:

Laufzeitfehler 3021  BOF oder EOF ist true - Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Hallo,

seit kurzer Zeit bekomme ich in meiner Datenbank diese Fehlermeldung. Leider weiss ich nicht woran das liegen kann. Hatte nichts verändert und davor ist die Datenbank seit vier Jahren ohne Probleme gelaufen

Hier mal der Code, vielleicht kann mir jemand helfen!

Function K2001A()
K2001_Aktualisieren
End Function
Sub K2001_Aktualisieren()

Dim LngI As Long, strWochen As String, strSummen As String

Dim objcon As ADODB.Connection
Dim rsDatum As ADODB.Recordset
Dim rsSumme As ADODB.Recordset

Set objcon = Application.CodeProject.Connection
Set rsDatum = New ADODB.Recordset
rsDatum.CursorType = adOpenDynamic
rsDatum.LockType = adLockOptimistic
rsDatum.CursorLocation = adUseClient

Set rsDatum2 = New ADODB.Recordset
rsDatum2.CursorType = adOpenDynamic
rsDatum2.LockType = adLockOptimistic
rsDatum2.CursorLocation = adUseClient

Set rsDatum3 = New ADODB.Recordset
rsDatum3.CursorType = adOpenDynamic
rsDatum3.LockType = adLockOptimistic
rsDatum3.CursorLocation = adUseClient

Const spalten = "Stand,KW1,KW2,KW3,KW4,KW5,KW6,KW7,KW8,KW9,KW10,KW11,KW12,KW13,KW14,KW15,KW16,KW17,KW18,KW19,KW20,KW21,KW22,KW23,KW24,KW25,KW26,KW27,KW28,KW29,KW30,KW31,KW32,KW33,KW34,KW35,KW36,KW37,KW38,KW39,KW40"


sqlDelete = "DELETE K2001_Wochen_Rollierend.* FROM K2001_Wochen_Rollierend; "
objcon.Execute (sqlDelete)


aktDatum = "SELECT Kalender.Wo2003f FROM [A_Datum+30] INNER JOIN Kalender ON [A_Datum+30].[Datum Aktuell] = Kalender.Datum_lang;"
rsDatum.Open aktDatum, objcon, , , adCmdText
aktJahrWoche = rsDatum.Fields("Wo2003f")
Set rsDatum = Nothing


kalender = "SELECT Kalender.Wo2003f,Kalender.Woche FROM Kalender"
rsDatum2.Open kalender, objcon, , , adCmdText

lastDay = "Select [A_Datum+30].[Datum Aktuell] FROM [A_Datum+30]"
rsDatum3.Open lastDay, objcon, , , adCmdText
aktDay = rsDatum3.Fields("Datum Aktuell")
Set rsDatum3 = Nothing

strWochen = "'" & aktDay & "'" & ","


For LngI = 1 To 40
rsDatum2.Find "Wo2003f =" & aktJahrWoche
aktWoche = rsDatum2.Fields("Woche") "Hier tritt der Fehler auf"!!!

If LngI = 1 Then strWochen = strWochen & "'"

If (LngI < 40) Then
strWochen = strWochen & aktWoche & "','"
Else
strWochen = strWochen & aktWoche & "'"
End If

rsDatum2.MoveFirst
aktJahrWoche = aktJahrWoche + 1
Next

sql1 = "INSERT INTO K2001_Wochen_Rollierend (" & spalten & ") VALUES (" & strWochen & "); "
objcon.Execute (sql1)

Set rsDatum2 = Nothing

End Sub


Danke im voraus für eure Hilfe
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2014, 12:51
Rufname:
Wohnort: NRW

AW: Laufzeitfehler 3021  BOF oder EOF ist true - AW: Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Hi,

nach dem Find solltest du prüfen, ob etwas gefunden wurde. Und dann schau dir die Daten an und überprüfe die Werte, nach denen gesucht wird.

_________________
Gruß MissPh!
cirillo2014
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 14:30
Rufname:

AW: Laufzeitfehler 3021  BOF oder EOF ist true - AW: Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Hi,

danke für deinen Tipp.

Das Programm läuft die Schleife von 1 bis 37 durch dann bricht er ab und bringt den Laufzeitfehler!
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2014, 14:34
Rufname:
Wohnort: NRW

AW: Laufzeitfehler 3021  BOF oder EOF ist true - AW: Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Dann schau halt nach, welchen Inhalt "aktJahrWoche" bei LngI=37 hat und ob sich dieser Wert in der Tabelle befindet.
Und wenn Nein, warum nicht. Wink

_________________
Gruß MissPh!
cirillo2014
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Apr 2014, 15:38
Rufname:

AW: Laufzeitfehler 3021  BOF oder EOF ist true - AW: Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Hi, aber wie kann es sein dass es vorher funktioniert und jetzt ohne eine Änderung gemacht zu haben nicht mehr funktioniert??
MissPh!
Office-VBA-Programmiererin


Verfasst am:
30. Apr 2014, 16:08
Rufname:
Wohnort: NRW

AW: Laufzeitfehler 3021  BOF oder EOF ist true - AW: Laufzeitfehler 3021 BOF oder EOF ist true

Nach oben
       Version: Office 2007

Was heißt "vorher"? Möglicherweise haben sich die Daten in der Zwischenzeit geändert?

Wir können nicht deine Tabellen ansehen und wissen auch nicht was in den Recordsets steht, die du da öffnest.
Was also könnte man dazu anderes sagen als "schau mal genau hin".

Oder lade eine Beispiel-DB hoch.

_________________
Gruß MissPh!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3211 9 diimex 298 19. Jun 2013, 22:27
derArb Laufzeitfehler 3211
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3071 7 Ramon2012 197 30. Jan 2012, 19:51
KlausMz Laufzeitfehler 3071
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3134 - Syntaxfehler INSERT INTO-Anweisung 4 jugendsani 796 07. Dez 2011, 18:04
KlausMz Laufzeitfehler 3134 - Syntaxfehler INSERT INTO-Anweisung
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3085 - Undef. Funktion CONVERT 4 noob80 997 19. Feb 2010, 18:38
noob80 Laufzeitfehler 3085 - Undef. Funktion CONVERT
Keine neuen Beiträge Access Formulare: Laufzeitfehler 2585 - beim Schließversuch eines Formulares 8 Werner3456 2515 22. Aug 2007, 07:36
Werner3456 Laufzeitfehler 2585 - beim Schließversuch eines Formulares
Keine neuen Beiträge Access Formulare: Laufzeitfehler 1 Horst Schulte 890 19. Jun 2007, 18:56
JörgG Laufzeitfehler
Keine neuen Beiträge Access Formulare: Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunden 1 Arno Lesmeister 1309 15. Mai 2007, 17:31
rita2008 Access 2003 Laufzeitfehler 438 Objekt wird nicht gefunden
Keine neuen Beiträge Access Tabellen & Abfragen: Laufzeitfehler 3001 1 luckypunch 591 23. Jan 2007, 12:19
JörgG Laufzeitfehler 3001
Keine neuen Beiträge Access Formulare: Laufzeitfehler 3001 Ungültiges Argument 2 blicki 6156 26. Okt 2006, 18:31
blicki Laufzeitfehler 3001 Ungültiges Argument
Keine neuen Beiträge Access Formulare: Laufzeitfehler "7878" bei Formularaktualisierung 1 Martens 3520 12. Okt 2006, 09:04
lothi Laufzeitfehler "7878" bei Formularaktualisierung
Keine neuen Beiträge Access Formulare: Laufzeitfehler 429 3 Rollo 21613 18. März 2006, 20:14
Gast Laufzeitfehler 429
Keine neuen Beiträge Access Tabellen & Abfragen: Access Laufzeitfehler 3061 5 Gast Andreea 11706 19. Jan 2006, 19:54
Willi Wipp Access Laufzeitfehler 3061
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver