Office: (Office 2013) Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Helfe beim Thema Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Code: Private Sub Ausgabe_Click() Dim strSQL As String Dim db As DAO.Database Dim rs As DAO.Recordset Dim strPapercode As String Dim intMessage As... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von Silli68, 29. Oktober 2020.

Seite 2 von 3

FREDFRED

fredfred

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Code:

Private Sub Ausgabe_Click()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strPapercode As String

Dim intMessage As Integer
Dim strPublicationdate As String
strPublicationdate = Format(Forms!Kayak_Beilagenimport!ET, "#\yyyy\-mm\-dd\#")

strPapercode = Forms!Kayak_Beilagenimport!Papercode
Set db = CurrentDb

strSQL = "SELECT B.insert_id, B.insert_name, B.insert_type, B.publicationdate, U.Papercode, B.weight_real, U.EditionNo, B.edition_complete, B.units_transport, IIf(![insert_type]='INSERT' And (![insert_name] Like '*VP*' or ![insert_name] Like '*Verlag*' ),'02',IIf(![insert_type]='STICK','07','03')) AS brochure_type " & _
"FROM dbo_view_beilagensteuerung B INNER JOIN Umschlüsselungstabelle_Edition_Papercode U ON (B.product = U.Product) AND (B.edition = U.EditionName) " & _
"WHERE (((B.publicationdate)= " & strPublicationdate & ") AND ((U.Papercode)= '" & strPapercode & "') AND ((B.weight_real) = 0)); "

Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

DoCmd.SetWarnings = False
If rs.RecordCount = 0 Then
DoCmd.OpenQuery "qrykayak_import_report", acViewNormal 'Wozu wird die Query geöffnet ???

DoCmd.TransferText acExportDelim, "kayak_export", "qrykayak_import", "ddv-kayak-d-01transferprodDatenimportBeilagenimport" & Papercode & "_ET_ " & strPublicationdate & ".csv", True
MsgBox("Beilagen wurden für Kayak Import exportiert", vbOKOnly)
Else
intMessage = MsgBox("Es sind Beilagen ohne Gewicht disponiert" & vbCrLf & _
"Sollen Beilagen ohne Gewicht im nachfolgendem Bericht angezeigt werden?", vbYesNo)
If intMessage = vbYes Then
DoCmd.OpenReport "repkayak_import_ohne_gewicht", acViewPreview
End If

End If
rs.Close
Set rs = Nothing
Set db = Nothing

DoCmd.Hourglass False
DoCmd.SetWarnings True

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

fredfred, 31. Oktober 2020

#16
SILLI68

Silli68

Vielen Dank für die Hilfe --- Habe das jetzt umgesetzt und bekomme nun den Laufzeitfehler 3464 Datentypenkonflikt in Kriterienausdruck

Code:

Option Compare Database
Option Explicit
Private Sub txtDate_Click()
RunCommand acCmdShowDatePicker
End Sub
Private Sub txtDate_Enter()
RunCommand acCmdShowDatePicker
End Sub

Private Sub Ausgabe_Click()
Dim strSQL As String
Dim db As dao.Database
Dim rs As dao.Recordset
Dim Papercode As String
Papercode = Forms!Kayak_Beilagenimport!Papercode
Dim Message As String
Dim publicationdate As String
'publicationdate = Format(publicationdate, "#yyyymmdd#")
publicationdate = Format(Forms!Kayak_Beilagenimport!ET, "#yyyymmdd#")

Set db = CurrentDb

strSQL = "SELECT dbo_view_beilagensteuerung.insert_id, dbo_view_beilagensteuerung.insert_name, dbo_view_beilagensteuerung.insert_type, dbo_view_beilagensteuerung.publicationdate, Umschlüsselungstabelle_Edition_Papercode.Papercode, dbo_view_beilagensteuerung.weight_real, Umschlüsselungstabelle_Edition_Papercode.EditionNo, dbo_view_beilagensteuerung.edition_complete, dbo_view_beilagensteuerung.units_transport, IIf([dbo_view_beilagensteuerung]![insert_type]='INSERT' And ([dbo_view_beilagensteuerung]![insert_name] Like '*VP*' or [dbo_view_beilagensteuerung]![insert_name] Like '*Verlag*' ),'02',IIf([dbo_view_beilagensteuerung]![insert_type]='STICK','07','03')) AS brochure_type " & _
"FROM dbo_view_beilagensteuerung INNER JOIN Umschlüsselungstabelle_Edition_Papercode ON (dbo_view_beilagensteuerung.product = Umschlüsselungstabelle_Edition_Papercode.Product) AND (dbo_view_beilagensteuerung.edition = Umschlüsselungstabelle_Edition_Papercode.EditionName) " & _
"WHERE (((dbo_view_beilagensteuerung.publicationdate)= ' & publicationdate &') AND ((Umschlüsselungstabelle_Edition_Papercode.Papercode)= ' & Papercode & ') AND ((dbo_view_beilagensteuerung.weight_real) = 0)); "

Set rs = db.OpenRecordset(strSQL) -- Hier steigt er aus

If rs.RecordCount = 0 Then
DoCmd.OpenQuery "qrykayak_import_report", acViewNormal
DoCmd.TransferText acExportDelim, "kayak_export", "qrykayak_import", "\ddv-kayak-d-01transferprodDatenimportBeilagenimport" & Papercode & "_ET_ " & publicationdate & ".csv", True
Message = MsgBox("Beilagen wurden für Kayak Import exportiert", vbOKOnly)
Else
Message = MsgBox("Es sind Beilagen ohne Gewicht disponiert", vbOKOnly)
Message = MsgBox("Beilagen ohne Gewicht werden im nachfolgendem Bericht angezeigt", vbOKOnly)
Message = vbOK
DoCmd.OpenReport "repkayak_import_ohne_gewicht", acViewPreview

End If
rs.Close
Set rs = Nothing
Set db = Nothing

DoCmd.Hourglass False
DoCmd.SetWarnings True

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

Silli68, 31. Oktober 2020

#17
FREDFRED

fredfred

Ich sehe keine Korrekturen !

Keine Korrektur der Message Variablen.

vbOk und ähnliches steht für numerische Konstanten, nicht für String...

sorry, ich steige aus, ich habe dir meinen Vorschlag gepostet, ohne dass davon überhaupt was im jetztigen Code überarbeitet wurde, außer die ".
Die Hochkomma-Syntax wurde sogar noch verschlimmbessert.

Mach doch einfach mal einen Copy&Paste mit meinem Code und schau was passiert (da der Foren-Parser die "\" weg"rationalisiert", müssen die bei der Formatierung des Datums ergänzt werden).

Code:

Message = vbOK
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das macht natürlich so keinen Sinn.
Mein Einwand war, wenn du in der Messagebox vbOkOnly vorgibst, worüber willst du dann im If -- then .. prüfen, wenn es nur eine Option gibt. Die Messagebox lässt sich doch nur über Drücken des OK-Button schließen, d.h. die Prüfung mit IF ist sinnfrei.

If.. macht Sinn z.b. bei vbYesNo, wie in meinem Codevorschlag.

Wo in deinem Code setzt du denn die SetWarnings außer Kraft, wenn du sie am Ende wieder aktivierst ?
Gleiches gilt für das Hourglass

fredfred, 31. Oktober 2020

#18
SILLI68

Silli68

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Das hatte ich auch so verstanden und die IF Anweisung in der Message Box ist ja auch raus

Silli68, 31. Oktober 2020

#19
SILLI68

Silli68

sorry fredfred, aber ich habe in dem Chat übersehen, dass du einen vollständigen von dir angepassten Code eingestellt hast. Ich habe diesen übersehen.

Silli68, 31. Oktober 2020

#20
FREDFRED

fredfred

sorry für den Rüffel*Smilie

fredfred, 31. Oktober 2020

#21
SILLI68

Silli68

ich weiß, dass ich mich gerade nicht ganz schlau angestellt habe...

Also ich habe deinen Code übernommen. Soweit so gut, aber das setting der Warnings = False in deinem Code mag er gar nicht. Und ich bekomme keine Datei vom Programm rausgeschrieben. Die Ansicht benötige ich vorher, damit der Anwender sieht, was exportiert wurde. Es besteht ja immer die Gefahr die '.csv datei mit Excel zu öffnen und dann sind alle zaheln, welche unbedingt Text sein müssen Zahl.

Silli68, 31. Oktober 2020

#22
FREDFRED

fredfred

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Dann entferne, das "=" beim False

Fehlermeldung ist weg ?

Geht die Query auf, werden DS angezeigt ?

Mach ein Debugging mit F8, um zu sehen wie der Code reagiert.
Setze einen Haltepunkt und gehe zeilenweise mit F8 durch.

Ehm, du prüfst auf Recordcount = 0, ist das so korrekt ?
Wie korrespondiert das mit der Exportabfrage ?
Ich sehe im Pfad tauchen die Variabelen nochmal auf, habe ich übersehen.

fredfred, 31. Oktober 2020

#23
SILLI68

Silli68

Die DB geht auf und das Query wird angezeigt. = ist entfernt und F8 wird gemacht

Silli68, 31. Oktober 2020

#24
SILLI68

Silli68

Also bis zum öffnen des Query in der Vorschau läuft er durch, doch DoCmd.TransferText führ er nicht aus und hat auch keine Daten erzeugt. ich ahbe den Export Manuell mit der Export_Spezifikation gemacht, da lädt er die Daten in die gewünschte csv.

Silli68, 31. Oktober 2020

#25
SILLI68

Silli68

Ja der Export soll nur stattfinden, wenn das recordset aus der Abfrage strSQL = 0 ist. Muss ich es doch genau anders herum prüfen?

Silli68, 31. Oktober 2020

#26
SILLI68

Silli68

Fehlermeldung ist weg

Silli68, 31. Oktober 2020

#27
FREDFRED

fredfred

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Im Dateipfad ist kein Laufwerk angegeben, oder ist das wieder die Forensoftware ?

"???ddv-kayak-d-01transferprodDatenimportBeilagenimport" & strPapercode & "_ET_ " & strPublicationdate & ".csv", True
MsgBox("Beilagen wurden für Kayak Import exportiert", vbOKOnly)
Else
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Muss ich es doch genau anders herum prüfen?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das mußt du wissen, ich kenn die Zusammenhänge nicht.

fredfred, 31. Oktober 2020

#28
SILLI68

Silli68

Du hast natürlich vollkommen Recht, das muss ich wissen und rein logisch macht es ja auch sinn das Recordset true zu prüfen und dann in den Outpu zu gehen. Das habe ich jetzt mal so umgesetzt:
Code:

Option Compare Database
Option Explicit
Private Sub txtDate_Click()
RunCommand acCmdShowDatePicker
End Sub
Private Sub txtDate_Enter()
RunCommand acCmdShowDatePicker
End Sub

Private Sub Ausgabe_Click()
Dim strSQL As String
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strPapercode As String

Dim intMessage As Integer
Dim strPublicationdate As String
strPublicationdate = Format(Forms!Kayak_Beilagenimport!ET, "yyyymmdd")

strPapercode = Forms!Kayak_Beilagenimport!Papercode
Set db = CurrentDb

strSQL = "SELECT B.insert_id, B.insert_name, B.insert_type, B.publicationdate, U.Papercode, B.weight_real, U.EditionNo, B.edition_complete, B.units_transport, IIf(![insert_type]='INSERT' And (![insert_name] Like '*VP*' or ![insert_name] Like '*Verlag*' ),'02',IIf(![insert_type]='STICK','07','03')) AS brochure_type " & _
"FROM dbo_view_beilagensteuerung B INNER JOIN Umschluesselungstabelle_Edition_Papercode U ON (B.product = U.Product) AND (B.edition = U.EditionName) " & _
"WHERE (((B.publicationdate)= " & strPublicationdate & ") AND ((U.Papercode)= '" & strPapercode & "') AND ((B.weight_real) = 0)); "

Set rs = db.OpenRecordset(strSQL, dbOpenSnapshot)

DoCmd.SetWarnings False
If rs.RecordCount > 0 Then

intMessage = MsgBox("Es sind Beilagen ohne Gewicht disponiert" & vbCrLf & _
"Sollen Beilagen ohne Gewicht im nachfolgendem Bericht angezeigt werden?", vbYesNo)
If intMessage = vbYes Then
DoCmd.OpenReport "repkayak_import_ohne_gewicht", acViewPreview
End If

Else
DoCmd.OpenQuery "qrykayak_import_report", acViewNormal
intMessage = MsgBox("Beilagen wurden für Kayak Import exportiert", vbOKOnly)
DoCmd.TransferText acExportDelim, "kayak_export", "qrykayak_import", "\ddv-kayak-d-01transferprodDatenimportBeilagenimport" & Papercode & "_ET_ " & strPublicationdate & ".csv", True

End If
rs.Close
Set rs = Nothing
Set db = Nothing

DoCmd.Hourglass False
DoCmd.SetWarnings True

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

Leider im Output nicht die gewählten Sätze auf publicationdate sondern alle vorhandenen Sätze des Papercodes? Noch eine Idee? Danke, Danke

Silli68, 31. Oktober 2020

#29
FREDFRED

fredfred

Was heißt im Output ?
Deine Query im Transfer ??

fredfred, 31. Oktober 2020

#30

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 2 von 3

Thema:

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt

Die Seite wird geladen...

Laufzeitfehler 91 Objektvarable oder WithBlock Variable nicht festgelegt - Similar Threads - Laufzeitfehler Objektvarable WithBlock
Laufzeitfehler 9 VBA
in Microsoft Excel Hilfe
Laufzeitfehler 9 VBA: Nschdem ich die Office Version von 2010 auf 2019 aktualisiert habe wird mir der Laufzeitfehler 9 ausgegeben. Das ist der Code Sub FiberCollect() Dim NumRows As Long 'letzte celle Dim Counter As...
VBA Laufzeitfehler 9
in Microsoft Excel Hilfe
VBA Laufzeitfehler 9: Guten Abende an alle VBA Profi, Ich lerne gerade Programmierung mit VBA und habe fast null Ahnung von Fehlern ich habe folgenden Probleme. ich einen xlsm Datei versuche eine Tabelle mit codename...
[VBA] .Documents.Open -> Laufzeitfehler 91
in Microsoft Excel Hilfe
[VBA] .Documents.Open -> Laufzeitfehler 91: Hallo zusammen, bekomme aktuell den Laufzeitfehler 91 an der Codestelle, wo ich versuche ein Word Dokument zu öffnen (Set wdDoc = wdApp.Documents.Open(wbBook.Path & "\" & stWordDocument)), das...
MS Access Lauftzeitfehler "2501"
in Microsoft Access Hilfe
MS Access Lauftzeitfehler "2501": Hallo Liebe Office Gemeinde, Ich habe ein Problem mit meinem MS Access, wir haben unsere MA Liste in einer Access DB. Wenn man in unserem Formular auf "Drucken MA" klickt dann wird eine PDF...
Excel VBA Laufzeitfehler 424 Objekt erforderlich
in Microsoft Excel Hilfe
Excel VBA Laufzeitfehler 424 Objekt erforderlich: Hallo zusammen, ich habe schon verschiedene Antworten zum Laufzeitfehler 424 gefunden, komme aber leider damit doch irgendwie nicht weiter (bin absoluter VBA-Neuling). Folgendes Makro habe ich...
Laufzeitfehler "424" Objekt erforderlich Selenium VBA
in Microsoft Excel Hilfe
Laufzeitfehler "424" Objekt erforderlich Selenium VBA: Hallo Zusammen, ich möchte mithilfe von Selenium in VBA eine Tabelle auf einer Webseite in eine Excel Tabelle kopieren. Allerdings bekomme ich den Fehler "Laufzeitfehler "424" Objekt...
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".
in Microsoft Excel Hilfe
Laufzeitfehler 1004 "Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen".: Hallo Leute,*:)* nachdem ich in die "addIn 1.2.4" ein Sheet RKL eine Dropdownliste und ein Togglebutton hinzugefügt habe bekomme ich beim aufruf der UF die Fehlermeldung "Laufzeitfehler 1004 "Die...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden