Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Warum funktioniert diese Abfrage nicht ?
zurück: Kombinationsfeldinhalt von Abfrage abhängig weiter: Kriterienabfrage mit variablen Kriterien 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
Mirage
Es wird !!!


Verfasst am:
04. Jun 2007, 16:23
Rufname:
Wohnort: Mainz

Warum funktioniert diese Abfrage nicht ? - Warum funktioniert diese Abfrage nicht ?

Nach oben
       Version: Office 2003

Hallo,

warum funzt denn dieser Code nicht
Code:
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim Ausschnitt As String
   
    Set conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    rst.Open "SELECT Informationen " & _
               "FROM ServiceBerichtBänder " & _
              "WHERE (Grund= 'PU - nicht erledigt' " & _
                "AND Info = '" & Ausschnitt & "'", conn, adOpenKeyset, _
             adLockOptimistic
    Do Until rst.EOF
        If Ausschnitt = Right(Me!ServiceberichtBänderAlleUFO!Info, 20) = _
                                                   "nicht fertig -   +++" Then
            rst.Fields("Informationen") = "Kein RS Schein"
            rst.Update
            rst.MoveNext
        End If
    Loop
    rst.Close
    Set rst = Nothing
    Set conn = Nothing
    Me!ServiceberichtBänderAlleUFO.Requery
Das Feld Informationen bleibt immer leer.... Crying or Very sad
Willi Wipp
Moderator


Verfasst am:
04. Jun 2007, 16:45
Rufname:
Wohnort: Raum Wiesbaden


Re: Warum funktioniert diese Abfrage nicht ? - Re: Warum funktioniert diese Abfrage nicht ?

Nach oben
       Version: Office 2003

Hi Mirage,

eigentlich wollte ich ja schon antworten: Der Code funzt bestimmt, er macht halt nur nicht was Du willst! Wink

Aber Scherz beiseite: 2 Fehler die ich sehe:
1. Eine Klammer zuviel bzw. zu wenig im SQL-Code
2. Auschnitt wird zumindest in dem gezeigten Code kein Wert zugewiesen ==> auch das Problem im If
Code:
    Dim conn As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim Ausschnitt As String
   
    Set conn = CurrentProject.Connection
    Set rst = New ADODB.Recordset
    Ausschnitt = Right(Me!ServiceberichtBänderAlleUFO!Info, 20)
    rst.Open "SELECT Informationen " & _
               "FROM ServiceBerichtBänder " & _
              "WHERE Grund= 'PU - nicht erledigt' " & _
                "AND Info = '" & Ausschnitt & "'", conn, adOpenKeyset, _
             adLockOptimistic
    Do Until rst.EOF
        If Ausschnitt = "nicht fertig -   +++" Then
            rst.Fields("Informationen") = "Kein RS Schein"
            rst.Update
        End If
        rst.MoveNext 'Muss auch noch in jedem Fall verschoben werden!
    Loop
    rst.Close
    Set rst = Nothing
    Set conn = Nothing
    Me!ServiceberichtBänderAlleUFO.Requery

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)


Zuletzt bearbeitet von Willi Wipp am 04. Jun 2007, 17:48, insgesamt einmal bearbeitet
Gast



Verfasst am:
04. Jun 2007, 17:03
Rufname:

AW: Warum funktioniert diese Abfrage nicht ? - AW: Warum funktioniert diese Abfrage nicht ?

Nach oben
       Version: Office 2003

Hallo Willi,

leider gehts immernoch nit....

jetzt stimmt die Variable "Ausschnitt" mit der Vorgabe "nicht fertig +++ " genau überein, aber das Feld Informationen bleibt weiterhin leer...

Crying or Very sad
Willi Wipp
Moderator


Verfasst am:
04. Jun 2007, 17:47
Rufname:
Wohnort: Raum Wiesbaden

Re: Warum funktioniert diese Abfrage nicht ? (II) - Re: Warum funktioniert diese Abfrage nicht ? (II)

Nach oben
       Version: Office 2003

Hi Mirage,
einmal verwendest Du Info und einmal Informationen, ist das richtig?
Was willst Du eigentlich genau erreichen?
Was soll die If-Abfrage in der Do Until bewirken?
Die ist ja entweder immer True oder False, unabhaengig von den Datensaetzen.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Mirage
Es wird !!!


Verfasst am:
05. Jun 2007, 06:58
Rufname:
Wohnort: Mainz

AW: Warum funktioniert diese Abfrage nicht ? - AW: Warum funktioniert diese Abfrage nicht ?

Nach oben
       Version: Office 2003

Hallo Willi,

also in der Tabelle gibt es einmal das Feld Info, wo folgendes drin stehen könnte:
Code:
Info
1030  +++  Expreß  +++  Security Check  +++    +++ 
1030  +++  Expreß  +++  Sonstiges  +++    +++ 
1030  +++  Expreß  +++  Sonstiges  +++    +++ 
1030  +++  Expreß  +++  Sonstiges  +++    +++ 
0  +++  Standard  +++    +++    +++ 
Area: 1030 ; Time DIAD: 1115  +++  Privat  +++  UNTSCHR.ERH.  +++    +++ 
Area: 1030 ; Time DIAD: 1113  +++  Privat  +++  EING. UNGUEL  +++    +++ 
0  +++  NR.13  +++    +++    +++  B.KD HINTERL
Time close: 0 - sched. Time: 2300 - Time Stop: 1249  +++   Tel: 06105938ext237, _  +++    +++  Status: nicht fertig -   +++ 
0  +++  Standard  +++  GESCHL. 1     +++    +++
Ich will nun erreichen das überall da wo in der Spalte "Grund" = 'PU - nicht erledigt' und bei Info '+++ +++ Status: nicht fertig - +++ ' steht, in die Spalte Informationen, der Eintrag "Kein RS Schein" eingetragen wird......

Gruß Mirage
Nachtrag: Mirage am 05. Jun 2007 um 11:45 hat folgendes geschrieben:
Hallo,

weiß keiner einen Rat ???? Crying or Very sad
Willi Wipp
Moderator


Verfasst am:
05. Jun 2007, 12:01
Rufname:
Wohnort: Raum Wiesbaden

Re: Warum funktioniert diese Abfrage nicht ? (III) - Re: Warum funktioniert diese Abfrage nicht ? (III)

Nach oben
       Version: Office 2003

Hi Mirage,

OK versuchen wir es erstmal mit einer Auswahlabfrage und einem berechneten Feld.
Speichern sollte man ja nur was man nicht jederzeit wieder berechnen kann
Code:
SELECT Grund, Info, "Kein RS Schein" AS Information
FROM   ServiceBerichtBänder
WHERE  Grund = 'PU - nicht erledigt'
AND    Info Like "*+++  Status: nicht fertig -   +++*"
Das waeren dann nur die entsprechenden Eintraege
==> Man koennte dann iene Aktualisierungsabfrage daraus machen.
Oder man verwendet wirklich nur eine Auswahlabfrage und ergaenzt das entsprechende Feld
Code:
SELECT Grund, Info,
       IIf(Grund = 'PU - nicht erledigt'
       AND Info Like "*+++  Status: nicht fertig -   +++*",
           "Kein RS Schein", Null) AS Information
FROM   ServiceBerichtBänder

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Mirage
Es wird !!!


Verfasst am:
05. Jun 2007, 12:14
Rufname:
Wohnort: Mainz


AW: Warum funktioniert diese Abfrage nicht ? - AW: Warum funktioniert diese Abfrage nicht ?

Nach oben
       Version: Office 2003

Hallo Willi,

danke das du mir hilfst....

Also die erste Abfrage sieht schonmal sehr gut aus....funzt einwandfrei....

wie bekomm ich sie nun in meinen Code integriert ? Embarassed

Jetzt passts.....
Code:
    Dim strSQL As String
   
    strSQL = "UPDATE ServiceBerichtBänder " & _
                "SET Informationen = 'kein RS Schein' " & _
              "WHERE Grund = 'PU - nicht erledigt' " & _
                "AND Info Like '*+++  Status: nicht fertig -   +++ *'"
    DoCmd.RunSQL strSQL
Danke nochmals für den Denkanstoß Wink
_________________
________________________________
Ich freu mich immer über Feedback....
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: Daten aus Abfrage in Tabelle kopieren 7 Prummel 2569 04. März 2004, 10:36
Willi Wipp Daten aus Abfrage in Tabelle kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: Access Abfrage Uhrzeit (von bis) 1 new 2078 02. März 2004, 11:12
new Access Abfrage Uhrzeit (von bis)
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Parameter Abfrage 3 shorty 2270 29. Feb 2004, 15:07
Willi Wipp Parameter Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage nach Berufssparten 3 Fabian_bkk 1537 20. Feb 2004, 10:25
Willi Wipp Abfrage nach Berufssparten
Keine neuen Beiträge Access Tabellen & Abfragen: Problem im Abfrage Generator mit Wenn() und Zwischen() 1 snowman 4094 13. Feb 2004, 10:42
Willi Wipp Problem im Abfrage Generator mit Wenn() und Zwischen()
Keine neuen Beiträge Access Tabellen & Abfragen: Wie kann ich mehr als 255Felder in eine Abfrage legen? 1 D.R. 2235 12. Feb 2004, 09:05
faßnacht(IT); Wie kann ich mehr als 255Felder in eine Abfrage legen?
Keine neuen Beiträge Access Tabellen & Abfragen: Diese Abfrage geht nicht. Kann ir jemand helfen 4 Oliver 1438 02. Feb 2004, 13:21
Willi Wipp Diese Abfrage geht nicht. Kann  ir jemand helfen
Keine neuen Beiträge Access Tabellen & Abfragen: In Abfrage nach Monat sortiert ausgeben 3 Torsten 2150 29. Jan 2004, 19:52
Torsten In Abfrage nach Monat sortiert ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: Unterscheid zwischen 2 Daten berechnen in Abfrage 2 itarus 1441 26. Jan 2004, 17:01
i_tarus Unterscheid zwischen 2 Daten berechnen in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Verschachtelte Abfrage? 3 Fragesteller 2581 22. Jan 2004, 08:46
ffdabei Verschachtelte Abfrage?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Kombifeld 3 Gast 1255 06. Jan 2004, 19:21
Krokette Abfrage in Kombifeld
Keine neuen Beiträge Access Tabellen & Abfragen: kommentare im sql code einer abfrage? 1 Caladan 1744 22. Dez 2003, 20:15
Ludger kommentare im sql code einer abfrage?
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps