Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Textfeld filtert Listenfeld, kleiner Fehler?!
zurück: Formular - Design Vorlage Access 2007 weiter: Daten in ein formular eingeben und in 2 dbs speichern 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
Forrest05
eher zum fragen hier...


Verfasst am:
18. März 2010, 10:41
Rufname:

Textfeld filtert Listenfeld, kleiner Fehler?! - Textfeld filtert Listenfeld, kleiner Fehler?!

Nach oben
       Version: Office 2007

Hallo,

Wenn ich im frm_Lagerstatus in das Textfeld einen Eintrag mache sollte er danach im Listenfeld filtern....

jedoch kann ich anscheinend keine Eingabe machen.

im Anhang findet ihr die kleine DB

Bitte um rasche Hilfe!

Vielen Dank!



Filter_Problem.rar
 Beschreibung:

Download
 Dateiname:  Filter_Problem.rar
 Dateigröße:  62.8 KB
 Heruntergeladen:  18 mal

jens05
Moderator


Verfasst am:
24. März 2010, 22:38
Rufname:
Wohnort: ~~~~~


AW: Textfeld filtert Listenfeld, kleiner Fehler?! - AW: Textfeld filtert Listenfeld, kleiner Fehler?!

Nach oben
       Version: Office 2007

Hallo,
teste mal folgende Anpassung für dein Bsp.
In dem SQL-String war 2x FROM enthalten, und am Kriterium war ein angehangenes AND.
Das Leeren des Suchfeldes war bestimmt auch nicht geplant Smile
Code:
Option Compare Database
Option Explicit
Const vbFilter = 0

Private Sub Status(Status As Integer)
    Select Case Status
      Case vbFilter
        'Eingabeelemente
        Me.txtSucheArtikel.Enabled = True
        Me.txtSucheArtikel = Null
        'Liste
        Me.lstArtikel.Enabled = True
        Me.lstArtikel.Locked = False
        Me.lstArtikel = Null
    End Select
End Sub

Sub Req()
    Dim Kriterium1 As String
    Dim Artikel As String

    'Die verschiedenen Kriterien werden hier erstellt für den Filter
    If Me.ActiveControl.Name = "txtSucheArtikel" Then
        If Not IsNull(Me.txtSucheArtikel.Text) Then
            Artikel = Me.txtSucheArtikel.Text
          Else
            Artikel = ""
        End If
      Else
        If Not IsNull(Me.txtSucheArtikel.Value) Then
            Artikel = Me.txtSucheArtikel.Value
          Else
            Artikel = ""
        End If
    End If
    'Bedingungen basteln
    If Artikel = "" Then
        Kriterium1 = "([Artikel] LIKE '" & Artikel & "*' OR VarType([Artikel]) = 1)"
      Else
        Kriterium1 = "[Artikel] LIKE '" & Artikel & "*'  "
    End If
    Me.lstArtikel.RowSource = "SELECT ArtikelID, Artikel, Dimension," _
                                  & " Lagerplatz, Meldebestand," _
                                  & " Sicherheitsbestand" _
                             & " FROM tbl_Artikel" _
                            & " WHERE " & Kriterium1 _
                         & " ORDER BY Artikel, Dimension"
    Me.lstArtikel.Requery
End Sub

Private Sub btnFloesch_Click()
'Beschreibung: Setzt den Filter zurück damit werden alle Datensätze sichtbar
    Me.txtSucheArtikel = Null
    Me.lstArtikel = Null
    Status vbFilter
    Call Req
End Sub

Private Sub txtSucheArtikel_Change()
    Call Req
    'Status (vbFilter) 'Bei dieser übergabe wird das Suchfeld geleert????
End Sub

_________________
mfg jens05 Wink
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: in SQL-Abfrage Daten aus Textfeld einbeziehen 2 kloe 736 27. Feb 2006, 17:41
kloe in SQL-Abfrage Daten aus Textfeld einbeziehen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem Listenfeld bei Lagerverwaltung 1 christof.m 1054 05. Jan 2006, 20:54
stpimi Problem Listenfeld bei Lagerverwaltung
Keine neuen Beiträge Access Tabellen & Abfragen: Wo ist mein Fehler? 5 Werkzeugfuzzy 642 19. Nov 2005, 12:53
DF6GL Wo ist mein Fehler?
Keine neuen Beiträge Access Tabellen & Abfragen: Deutsche Abfrage OK, englische AF macht Fehler! 3 mirco 864 06. Nov 2005, 09:18
Gast Deutsche Abfrage OK, englische AF macht Fehler!
Keine neuen Beiträge Access Tabellen & Abfragen: SQL-String Fehler 6 maristein 845 06. Aug 2005, 09:57
maristein SQL-String Fehler
Keine neuen Beiträge Access Tabellen & Abfragen: Fehler nach DB Abfrage 1 Cracko 426 21. Jul 2005, 18:21
rita2008 Fehler nach DB Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: bei einer abfrage den Fehler abfragen 0 hiboris 612 07. Jul 2005, 10:31
hiboris bei einer abfrage den Fehler abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Reservierter Fehler (-1517); es gibt keine Meldung für ... 1 Matthiasmms 2719 27. Apr 2005, 19:08
romu Reservierter Fehler (-1517); es gibt keine Meldung für ...
Keine neuen Beiträge Access Tabellen & Abfragen: =Wenn([Feld1]="";0;[Feld1]) ???? fehler 1 sandrobz 833 06. März 2005, 17:22
snurb =Wenn([Feld1]="";0;[Feld1]) ???? fehler
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld in Access 2000 3 Gast 1033 17. Feb 2005, 18:16
Willi Wipp Listenfeld in Access 2000
Keine neuen Beiträge Access Tabellen & Abfragen: Bei COUNT-befehl kommt ein Fehler mit AGGREGATFUNKTION 3 al-d82 879 17. Jan 2005, 17:11
Spoldo Bei COUNT-befehl kommt ein Fehler mit AGGREGATFUNKTION
Keine neuen Beiträge Access Tabellen & Abfragen: Kriterium in Abfrage, WENN Wert kleiner DANN 2 nomade 1037 15. Jan 2005, 16:11
nomade Kriterium in Abfrage, WENN Wert kleiner DANN
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA