Objektvariable Oder With Block Variable Nicht Festgelegt In 1

Discussion: Laufzeitfehler 91: Objektvariable nicht festgelegt (zu alt für eine Antwort) Hallo zusammen, nach der Konvertierung einer DB von A97 auf A00 kommt beimt Laden eines Formulars folgender Fehler: Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt. Beim Debuggen wird die Marke bei diesem Ausdruck gesetzt. Set rstLief = Recordset(strSQL) Komme leider nicht weiter. Objektvariable oder with block variable nicht festgelegt von. Hat jemand eine Antwort dazu? Danke im Voraus Gruß Dieter Hallo Dieter, Post by Dieter Wahl Hallo zusammen, nach der Konvertierung einer DB von A97 auf A00 kommt Laufzeitfehler 91 - Objektvariable oder With-Blockvariable nicht festgelegt. Hat jemand eine Antwort dazu? hast Du ein "Set dbs=CurrentDB" oder ähnliches in Deinem Code davor? wenn Dir das nicht hilft poste bitte etwas mehr Code (der komplette Anfang der Function) -- Gruß Gunter _________________________________________________ Access - FAQ: home: Hallo Gunter, danke erst mal für die schnelle Antwort. noch mehr Code: Option Compare Database Option Explicit Dim rstLief As Recordset Dim strSQL As String Dim tb As Recordset Private Sub Form_Open(Cancel As Integer) strSQL = "SELECT * FROM Lieferanten" Set rstLief = Recordset(strSQL) Funktion = " " Call ButtonLeiste_einstellen ximize tFocus End Sub Gruß Dieter -----Originalnachricht----- Hallo Dieter, Post by Dieter Wahl Hallo zusammen, nach der Konvertierung einer DB von A97 auf A00 kommt Laufzeitfehler 91 - Objektvariable oder With- Blockvariable Post by Dieter Wahl nicht festgelegt.

Guten Tag zusammen, mal wieder ich, mal wieder am verzweifeln. Mein Code, mein Problem ist unterm Quelltext. Set Gruppennummer =. Objektvariable oder WIth-Blockvariable nicht festgelegt. Columns(5)(Range("B2"), LookIn:=xlValues, LookAt:=xlWhole) If Not Gruppennummer Is Nothing Then firstAddress = dress Do If IsNumeric((, "A")) Then kontostand = (, "N") finanzpartnername = (, "J") betriebsnummer = (, "A") Betriebsname = (, "B") 'Suchkriterium innerhalb des Auswertungsblatts festlegen ' Zeile = Range("E3:EE3")(What:=finanzpartnername, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False). Activate Set Rng = ("E3:EEE3")(finanzpartnername) If Rng Is Nothing Then MsgBox "Wert nicht gefunden! " Else finanzpartnerinauswertungsblatt = finanzpartnername End If 'Wenn der gefundene finanzpartnername gleich dem Finanzpartnernamen des Auswertungsblatts ist If Cells(3, finanzpartnerspalte) = finanzpartnername Then 'zwischenspeicherfinanzpartnername = Cells(3, finanzpartnerspalte) 'Soll in die Spalte des Finanzpartners eingetragen werden Cells(5, kontostanddesfinanzpartners) = kontostand Set Gruppennummer =.