Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Run time error 91
zurück: Shell(cmd) weiter: SQL Klausel für Kombinationsfeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
NeoKortex
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 13:50
Rufname:

Run time error 91 - Run time error 91

Nach oben
       Version: Office 97

Er wirft mir in der Zeile
Code:
    Set rs = db.OpenRecordset("SELECT * FROM RESDATA")
immer den Fehler
Zitat:
Run-time error '91': Object variable or With block variable not set
Ich benutze den code schon weiter oben erfolgreich und die Tabelle RESDATA
ist auch vorhanden. Ich möchte einen kleinen Teil der importierten Excel-Tabelle in eine zweite Access-Tabelle überschreiben.
Code:
Public Function ResDataEinlesen()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim ggSQL As String
    Dim TestString As String
   
    If tableExists("RESDATA") Then
        DoCmd.RunSQL "DROP TABLE RESDATA;"
    End If
    DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel97, "RESDATA" _
                            , "\\xyz\CSVintoExcel\RESDATA", True
    Set rs = db.OpenRecordset("SELECT * FROM RESDATA")
    If Not (rs.EOF And rs.BOF) Then
        rs.MoveFirst
        While Not rs.EOF
            If (rs.Fields(0) = "[ Parameter2 ]") Then
                rs.MoveNext
                While Not rs.Fields(0) = " "
                    TestString = rs.Fields(0)
                    ggSQL = "INSERT INTO Parameter2Fix" _
                                & " (ProgrammID, Valuex)" _
                         & " VALUES ( " & rs!Id & ", '" & TestString & "')"
                    CurrentDb.Execute ggSQL, 128 'dbFailOnError
                    rs.MoveNext
                Wend
            End If
            rs.MoveNext
        Wend
    End If
    rs.Close
    Set db = Nothing
    Set rs = Nothing
End Function
Blackpit
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 14:00
Rufname:

AW: Run time error 91 - AW: Run time error 91

Nach oben
       Version: Office 97

"db" ist nicht gesetzt!
Code:
    Set db = CurrentDB
fehlt vor dem eröffnen des Recordset.
Unten arbeitest Du mit CurrentDB mach das doch oben auch und spar Dir das Objekt oder verwende es durchgehend.

HTH

BP
MissPh!
Office-VBA-Programmiererin


Verfasst am:
25. Apr 2014, 14:17
Rufname:
Wohnort: NRW

AW: Run time error 91 - AW: Run time error 91

Nach oben
       Version: Office 97

Hi,
Zitat:
spar Dir das Objekt oder verwende es durchgehend
ich würde letzteres empfehlen, insbesondere da das Objekt in einer Schleife benutzt wird.
_________________
Gruß MissPh!
NeoKortex
Im Profil kannst Du frei den Rang ändern


Verfasst am:
25. Apr 2014, 15:14
Rufname:

AW: Run time error 91 - AW: Run time error 91

Nach oben
       Version: Office 97

Ok, danke! Manchmal sieht man den Wald vor lauter Bäumen nicht.

Also einfach CurrentDB mit db austauschen? Code funktioniert jedenfalls so Razz
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: Date/Time und Text miteinander vergleichen 2 chris|toph 86 19. Feb 2013, 23:57
chris|toph Date/Time und Text miteinander vergleichen
Keine neuen Beiträge Access Formulare: Fehlermeldung "Syntax error (missing operator) in query 6 arwar 287 18. Jan 2012, 14:56
arwar Fehlermeldung "Syntax error (missing operator) in query
Keine neuen Beiträge Access Formulare: Umstieg auf XP jetzt kommt Fehler Runtime error 2147467259 5 cala24 2307 11. Feb 2009, 17:57
trekking Umstieg auf XP jetzt kommt Fehler Runtime error 2147467259
Keine neuen Beiträge Access Programmierung / VBA: Run-Time error 29068 5 Eric! 2216 20. Okt 2008, 13:31
Marmeladenglas Run-Time error 29068
Keine neuen Beiträge Access Programmierung / VBA: On Error in Schleife...Problem!! 3 Valor2002 3232 17. Mai 2008, 19:16
DarkTears On Error in Schleife...Problem!!
Keine neuen Beiträge Access Formulare: Kalender Time and Date Picker von Microsoft 2 Transputor 2722 02. Feb 2008, 19:15
Transputor Kalender Time and Date Picker von Microsoft
Keine neuen Beiträge Access Programmierung / VBA: Dlookup + Syntax Error (Missing Operator)... 9 andrehoyer 1209 16. Aug 2007, 00:34
KlausMz Dlookup + Syntax Error (Missing Operator)...
Keine neuen Beiträge Access Tabellen & Abfragen: DCount-Runtime error 2001 und DCount 1 Nightwish 2111 20. Jun 2007, 17:04
Nightwish DCount-Runtime error 2001 und DCount
Keine neuen Beiträge Access Programmierung / VBA: Tabelle neu verknuepfen - error message 1 goepf 599 02. März 2007, 03:51
Gschaftlhuaba Tabelle neu verknuepfen - error message
Keine neuen Beiträge Access Programmierung / VBA: Error Reporting 1 Gast 494 09. Feb 2007, 18:53
Nouba Error Reporting
Keine neuen Beiträge Access Programmierung / VBA: Syntax Error in SQL Statement 1 Stony 490 26. Jan 2007, 14:41
Stony Syntax Error in SQL Statement
Keine neuen Beiträge Access Formulare: syntax error, (missing operator)... 1 Dr.Hossa 692 16. Nov 2006, 20:15
steffen0815 syntax error, (missing operator)...
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web