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

Hallo ich bin neu hier und habe für mein Problem keine Lösung in den vorhandenen Beiträgen in diesem Foren gefunden. Auch muss ich zugeben, dass ich in VBA neu unterwegs bin. Nichts destotrotz muss ich nun ein kleines Programm schreiben.
Ziel: Daten aus ein SQL Server View Tabelle in unter bestimmten Bedingungen in eine csv Datei auszugeben. Im Formular wird Objekt und Tag eingegeben und damit soll dann weiter gearbeitet werden.

Hier mal mein bisheriger Code:

Private Sub Ausgabe_Click()
Dim SQL_Select 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("" & Forms!Kayak_Beilagenimport!ET & "", "yyyymmdd")
'publicationdate = Format(Forms!Kayak_Beilagenimport!ET, "yyyymmdd")

Set db = CurrentDb
Set rs = rs.OpenRecordset("qrykayak_import_ohne_gewicht", dbOpenDynaset) --> an dieser Stelle steigt mein Formular 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)
If Message = vbOK 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

ich bedanke mich schon mal für eure Unterstützung.

:)

 

Code:

 

Wie kann ich Ihre Antwort verstehen? Genau an dieser Stelle set rs= rs.OpenRecordset ( ... ist mein Problem und wie kann ich es lösen?

 

Hier noch der beginn meines Aufrufes:

Option Compare Database
Option Explicit

Auswahl Datum im Formular:
Private Sub txtDate_Click()
RunCommand acCmdShowDatePicker
End Sub
Private Sub txtDate_Enter()
RunCommand acCmdShowDatePicker
End Sub

 

Code:

Ein Recordset wäre ein Objekt des bereits initialisierten db-Objektes, nicht eines von einem noch nicht initialisierten und gleichnamigen Recordset.

 

Vielen Dank für die schnelle Unterstützung. Das habe ich jetzt in meinem Code umgesetzt, bekomme Jetzt Laufzeitfehler 3078 an der Stelle:

Set rs = db.OpenRecordset(SQL_Select, dbOpenSnapshot)

vor dem Recordset habe ich dann nun das tatsächliche SQL_Statement eingesetzt:

SQL_Select = SQL_Select = "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)); "

 

Code bitte in Tags setzen, sonst bekommt man Augenkrebs.

Wenn man mit Alisen arbeiten würde, wäre der String wesentlich übersichtlicher.

Die VErdoppelung an Anfang des String mit
Code:

ist ein Übertragungsfehler oder hast du das tatsächlich so stehen ?

 

sorry war ein Kopier Fehler. Habe ich bereinigt und den String in strSQL umbenannt

 

Bin neu hier, wie setze ich den Code in Tags?

 

Code:

Über dem Editierfenster hast du Symbole oben rechts für Code, PHP, Key
Die IIF mit dem Stick sollte man nicht hartcodieren, sondern über Referenztabelle "joinen".

Wenn ich einen mir unbekannten Fehler habe, ist mein erster Weg die Suche übers Internet.
In deinem Fall ist die Fehlermeldung bereits deutlich hinweisgebend woran es liegt.
(Bei Fehler bitte auch den Text dazu angeben)

Deutsche Umlaute in Tabellennamen sind zu vermeiden (Umschlüsselung.... )!

->

 

eine Referenztabelle kann ich hierfür nicht verwenden, da ich keinen eindeutigen Wert für die Umschlüsselung des brochure_types habe. Ich weiß dass dies nicht ganz sauber ist, aber in diesem Fall sitzen Anwender vor dem anderen Programm, welche jeden Text eingeben können. ich ziehe hier nur die Daten für den Import in ein anderes Programm

 

Im String hast du zumindest eine eindeutige "Umschlüsselung" 07 oder 03. *wink.gif* *tongue.gif*
Aber ok...

 

Ja die ist gegeben. Für die insert_types gibt es eine Umschlüsselung.

 

ich bekomme nach den Anpassungen aus dem Forum und euren Vorschlägen jetzt den Laufzeitfehler 3464 Datentypenkonflikt in Kriterienausdruck und ich weiß nicht an welcher Stelle dieser Konflikt konkret auftreten Sollt. Habe doch alles als String deklariert?

Mein angepasster Code:
Code:

ich hoffe sehr hier kann mir jemand helfen.

 

Warum die Hochkomma mit Leerzeichen ?
Warum den Forms Verweis mit doppelten Anführungszeichen ? -> unnötig

Ob die Formatierung des Datums so hinhaut ??
Code:

Kriterium -> der Teil nach dem Where
Code:

Wenn du im Klassenmodul des Formulars bist, reicht auch ein Me. als Referenz auf das Formular.

Code:

Bzw. publicationdate ist obe schon als Datum formatiert, dann fallen die Hochkommas ganz weg.

Bei deiner Messagebox hast du nur VbOk, wozu die if then ...