Office: Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen

Joo42 · 16. April 2011

Hallo Leutz,

welche Möglichkeit habe ich folgenden Laufzeitfehler 3021 - Kein aktueller Datensatz" abzufangen?

Ich bitte um eure Unterstützung!

Vielen dank im Voraus

Gruss Jörg

:)

Micha_DU · 17. April 2011

Hi,

Und wir bitten um Code, damit man sieht wodurch der Fehler verursacht wird.

Arne Dieckmann · 17. April 2011

6.5.6 Abfangen von Fehlern (klick mich) sollte das Prinzip verdeutlichen.

Micha_DU · 17. April 2011

Arnes Link und mein Web Gateway ergeben folgende Meldung beim Versuch den Link zu klicken:

Die URL wurde in die Kategorie(n) Humor/Comics, Personal Pages eingestuft
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Heißt das jetzt man sollte den Link nicht ernstnehmen? *grins

Joo42 · 17. April 2011

Hallo Micha, Hallo Arne,

Zunächst wird durch klicken auf die Schaltfläche Hilfe folgnder Code ausgeführt:

Code:

DoCmd.OpenForm "frm_Template_Help_PopupDialog", , , , , , strFormName
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danach liest das Folgeformular, welches d.o. a. Code geöffnet wurde per OpenArgs den Formularnamen ein und führt gem. folgenden Code einen Selectbefehl auf einer Datenbanktbelle durch.

Code:

Private Sub Form_Open(Cancel As Integer)
Dim rst As DAO.Recordset

Dim strCallingForm As String
Dim strForm As String
Dim strHlpFildPath As String
Dim strHlpFileName As String

strCallingForm = Forms!frm_Template_Help_PopupDialog.OpenArgs

Set rst = CurrentDb.OpenRecordset("SELECT * FROM _FastHlp_Helpfile WHERE FormName = '" & strCallingForm & "'")
With rst
strForm = !FormName
strHlpFilePath = !HlpFilePath
strHlpFile = !HlpFileName
End With

If Not rst.NoMatch Then

rst.Close
Set rst = Nothing

Me.wndHlpBrowser.Navigate strHlpFilePath & strHlpFile

Else

MsgBox "Es steht momentan keine Hilfe für diesen Assistenten zur Verfügung!", vbInformation + vbOKOnly, "Hilfefunktion nicht verfügbar!"

DoCmd.Close acForm, Me.Name

End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Fehler tritt immer dann auf, wenn der Formularname nicht in der Tabelle auftritt.
Ich weiss aber nicht wie ich verhindern kann das das Formular überhaupt aufgerufen wird. Wo muss dann den Code wie modifizieren?

Ich bitte um Hilfestellung
Vielen Dank im Voraus

Gruss Jörg

Micha_DU · 18. April 2011

Damit ist der Fehler ja klar...
Das Recordset hat keine Daten, aber du willst darauf zugreifen.
mit
Code:

If rst.Bof=True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

kannst du prüfen, ob überhaupt Daten vorhanden sind... wenn True, dann sind keine Daten vorhanden und du kannst entsprechend reagieren.

Vielleicht hattest du ähnliches ja mit Code:

If Not rst.NoMatch Then
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

vor...

Office: Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen

Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen

Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen

Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen

Laufzeit Fehler 3021 = Kein aktueller Datensatz abfangen - Similar Threads - Laufzeit Fehler 3021

Power Query - Rücklaufkontrolle und Laufzeit berechnen

Maschinen laufzeit erechnen

Mit in Laufzeit erzeugten dynamischen Texboxen Werte vergleichen und einfärben

lange Laufzeit beim Formatieren

USysRibbons verursacht Laufzeit-Fehler

USysRibbons verursacht Laufzeit-Fehler

Laufzeiten-Fehler