Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
größer oder kleiner als funktioniert nicht
zurück: Aktualisierung Kombifeld, Datensatz wechseln macht Probleme weiter: berechnete Textfelder bleiben plötzlich leer Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Apr 2011, 18:24
Rufname:

größer oder kleiner als funktioniert nicht - größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hallo Zusammen,

ich habe mal wieder ein kleines Problem.
Ich habe in einer Abfrage eine Spalte U. Diese hat Werte aus einer Hilfsabfrage (Anzahl DS)
Nun möchte ich sortieren nach > 0.
Ich habe versucht im VBA txtsuchU > 0 nur hier verlangt Access ein Anweisungsende.
txtsuchU = 1 funktioniert.
Wie kann nach "größer als" suchen?

Danke.
KlausMz
Moderator Access


Verfasst am:
08. Apr 2011, 19:02
Rufname:
Wohnort: Irgendwo in der Pfalz


AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hallo,
bitte zeige mal den vollständigen SQL Code.

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Apr 2011, 19:10
Rufname:

AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Code:
Private Sub NewRowSourceForListe106(strOrderBy As String _
                                  , Optional blnAll As Boolean = False)
    Dim strSQL As String

' Definition der DQ der Liste
    strSQL = "SELECT ProjektID, Lfdnr, Projektname, Zusatzbezeichnung" _
                & ", AGName_Kurzform, AnSpPaAuftrGebName, Projektstatustext" _
                & ", Sparte, StatusAD, StatusInD, StatusAbr" _
                & ", U, UaMA, StaAD_7, StaAD_8" _
            & " FROM abf_Projekt_Uebersicht"
    If Not blnAll Then
        strSQL = strSQL _
           & " WHERE Projektname Like '*" & Me.txtsuchprojekt & "*'" _
             & " AND AGName_Kurzform Like '*" & Me.txtsuchAG & "*'" _
             & " AND AnSpPaAuftrGebName Like '*" & Me.txtsuchAnPa & "*'" _
             & " AND Projektstatustext Like '*" & Me.txtsuchProStatus & "*'" _
             & " AND LfdNr Like '*" & Me.txtsuchlfdnr & "*'" _
             & " AND Sparte Like '*" & Me.txtsuchsparte & "*'" _
             & " AND StatusAD Like '*" & Me.txtsuchstAD & "*'" _
             & " AND StatusInD Like '*" & Me.txtsuchstInD & "*'" _
             & " AND StatusAbr Like '*" & Me.txtsuchstAbr & "*'" _
             & " AND U Like '*" & Me.txtsuchU & "*'" _
             & " AND UaMA Like '*" & Me.txtsuchUaMA & "*'" _
             & " AND StaAD_7 Like '*" & Me.txtsuchStaAD_7 & "*'" _
             & " AND StaAD_8 Like '*" & Me.txtsuchStaAD_8 & "*'"
    End If
    strSQL = strSQL _
        & " ORDER BY " & strOrderBy
'MsgBox "Liste: " & strSQL
    With Me.Liste106
        .RowSource = strSQL
        .Requery
        .SetFocus
        .Selected(0) = True          'Anzeige des ersten Auftrags in der Liste
    End With
End Sub

Private Sub Bezeichnungsfeld208_Click()
    Dim i As Long

    For i = 214 To 220
        Me("Rechteck" & (i)).Visible = False
    Next i
    Me.Rechteck219.Visible = True
    txtsuchstAD = ""
    txtsuchstInD = ""
    txtsuchstAbr = ""
    txtsuchU > "0"    '<== hier taucht der Fehler im VBA auf #################
    txtsuchUaMA = ""
    txtsuchStaAD_7 = ""
    txtsuchStaAD_8 = ""
    NewRowSourceForListe106 "U"
End Sub
KlausMz
Moderator Access


Verfasst am:
08. Apr 2011, 19:24
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hallo,
das kann nicht funktionieren.
Das > kann ja nicht als Zuweisung dienen.
Wenn, dann versuche es so:
Code:
    txtsuchU ">0"
Dann kannst Du aber nicht mehr Like verwenden und die Joker (*) gehen dann auch nicht.
Daher muss noch die Zeile geändert werden:
Code:
             & " AND U " & Eval(Me.txtsuchU)
Ich bin aber nicht sicher, ob das funktioniert, da ich da keine Erfahrung habe.
_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Apr 2011, 19:37
Rufname:

AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hallo.

Es funktioniert nicht. So bald ich den vorhanden Code einbaue
Code:
             & " AND U " & Eval(Me.txtsuchU)
bei Klick auf das Bez-Feld208: Fehler beim Kompi.... , Unzulässige Verwendung einer Eigenschaft
Bei Klick auf die anderen Bez-Felder ( die funktionierten) :
Zitat:
Laufzeitfehler 2431
Der eingegebene Ausdruck ist Syntaktisch falsch.
KlausMz
Moderator Access


Verfasst am:
08. Apr 2011, 19:52
Rufname:
Wohnort: Irgendwo in der Pfalz

AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hallo,
ich habe noch das Gelichheitszeichen vergessen.
Code:
    Me.txtsuchU = ">0"
Das Eval war auch falsch.
Code:
             & " AND U " & Me.txtsuchU
Habe das mal auf einfache Art getestet, sollte funktionieren.
Ist txtsuchU ein Formularfeld?

_________________
Gruß
Klaus . . . . . Feedback wäre wünschenswert.
Ich möchte bitte keine unaufgeforderten PN. Fragen bitte im Forum.
MatzeDB1
Im Profil kannst Du frei den Rang ändern


Verfasst am:
08. Apr 2011, 20:07
Rufname:

AW: größer oder kleiner als funktioniert nicht - AW: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

es ist ein Feld im Formular, aber wird später nicht sichtbar sein. Der Wert >0 wird durch eine Abfrage bestimmt. Ich habe das Feld mit reingenommen, da zuvor Access bei txtsuchU ohne Me. bereits gemeckert hat.

Es funktioniert nun, aber die anderen Filter Buttons nicht mehr. Es wird nun immer nach dem Wert >0 gefilter und dann den Wert den ich weiterhin auswähle.

Ich habe bereits beim anderen Button die Variable txtsuchU = "" gesetzt aber funktioniert nicht.
Willi Wipp
Moderator


Verfasst am:
09. Apr 2011, 08:34
Rufname:
Wohnort: Raum Wiesbaden


Re: größer oder kleiner als funktioniert nicht - Re: größer oder kleiner als funktioniert nicht

Nach oben
       Version: Office XP (2002)

Hi MatzeDB1,

aus meiner Sicht resultieren alle Deine Themen aus dem gleichen grundlegenden Ansatz-Problem.
Vielleicht klaeren wir das besser in einem Thema Wiederkehrenden Code zentral ablegen?
und verteilen das nicht ueber das ganze Forum!

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
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: Umst. Access DBs auf SQL- Paramterabfrage funktioniert nicht 0 Gast 514 06. Jun 2008, 09:09
Gast Umst. Access DBs auf SQL- Paramterabfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage funktioniert nicht 3 Bernett22 405 08. Apr 2008, 11:40
MAPWARE Löschabfrage funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Umsätze kumulieren - DSUM funktioniert nicht 1 Benicio 3234 10. Sep 2007, 18:11
Shai Umsätze kumulieren - DSUM funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Bound Column funktioniert nicht 6 Smmmile 1200 12. Jul 2007, 17:56
Smmmile Bound Column funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Update-Abfrage funktioniert nicht richtig 2 Kelley1995 507 05. Jul 2007, 16:00
Kelley1995 Update-Abfrage funktioniert nicht richtig
Keine neuen Beiträge Access Tabellen & Abfragen: Größer Kleiner-wert- Abfrage in Listenfeld einbauen 4 toxicman 1707 24. Jun 2007, 19:26
toxicman Größer Kleiner-wert- Abfrage in Listenfeld einbauen
Keine neuen Beiträge Access Tabellen & Abfragen: Warum funktioniert diese Abfrage nicht ? 6 Mirage 804 05. Jun 2007, 12:14
Mirage Warum funktioniert diese Abfrage nicht ?
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage funktioniert nicht...hilfe!!!!! 2 bennie103 603 22. März 2007, 21:14
Gast Abfrage funktioniert nicht...hilfe!!!!!
Keine neuen Beiträge Access Tabellen & Abfragen: SQL In mit mehreren Werten funktioniert nicht 5 lullus 702 30. Jan 2007, 20:53
jens05 SQL In mit mehreren Werten funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterium funktioniert nicht!!! 5 christoph.1982 680 25. Jan 2007, 22:18
Nouba Kriterium funktioniert nicht!!!
Keine neuen Beiträge Access Tabellen & Abfragen: Beziehung mit verknüpfter Tabelle funktioniert nicht 4 Thom@s 680 09. Dez 2006, 16:15
Thom@s Beziehung mit verknüpfter Tabelle funktioniert nicht
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungsabfrage funktioniert nicht. 1 Lady_S 622 18. Sep 2006, 19:10
rita2008 Aktualisierungsabfrage funktioniert nicht.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS