Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suche Unterformular
zurück: Endlosformular - Kombinationsfelder sperren weiter: Textfeld richtig füllen , aber wie ? Steuerelementeinhalte? Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
abeser
Gast


Verfasst am:
23. Aug 2012, 10:33
Rufname:


Suche Unterformular - Suche Unterformular

Nach oben
       Version: Office 2003

Hallo
Ich brauche hilfe für diese Code ein Unterformular nutzen kann.
Code:
Private Sub Suchf_Change()
    Dim Suchf2 As Variant, LC As String
    Dim I As Integer, Zch As String
   
    On Error Resume Next
    Suchf1 = Me.Suchf.Text
    If InStr(Suchf1, "&") > 0 Then
        Suchf2 = ""
        For I = 1 To Len(Suchf1)
            Zch = Mid(Suchf1, I, 1)
            If Zch <> "&" Then
                Suchf2 = Trim(Suchf2) & Zch
              Else
                Suchf2 = Trim(Suchf2) & "*' And [Produktnr] Like '*"
            End If
        Next I
        LC = "[Produktnr] Like '*" & Suchf2 & "*'"
      Else
        If InStr(Suchf1, "*") > 0 Then
            LC = "[Produktnr] Like '" & Suchf1 & "'"
          Else
            LC = "[Produktnr] Like '*" & Suchf1 & "*'"
        End If
    End If
    If Right(LC, 3) = "&*'" Then Exit Sub
Debug.Print "suchf2 "; Suchf1; " / "; Me.Suchf.Text
    DoCmd.ApplyFilter , LC
    Me.Suchf.SetFocus
    If M_G_IstLeer(Suchf1) = False Then Me.Suchf = Suchf1
    If M_G_IstLeer(Me.Suchf) = False Then Me.Suchf.SelStart = Len(Me.Suchf)
End Sub
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: M:N Beziehung, DS inkl. Autowert im Unterformular einfügen 5 wolfsmilch 2624 10. Feb 2008, 20:08
KlausMz M:N Beziehung, DS inkl. Autowert im Unterformular einfügen
Keine neuen Beiträge Access Tabellen & Abfragen: Access 2000 Auswahlabfrage - Suche Kriterien 1 Huje 3122 07. Feb 2008, 17:29
Marmeladenglas Access 2000 Auswahlabfrage - Suche Kriterien
Keine neuen Beiträge Access Tabellen & Abfragen: Suche und Ausgabe 2 jan2303 482 02. Feb 2008, 14:21
jens05 Suche und Ausgabe
Keine neuen Beiträge Access Tabellen & Abfragen: Access - Fehler bei Unterformular und SQL LEFT JOIN 1 kontextfrei 1526 01. Okt 2007, 18:03
kontextfrei Access - Fehler bei Unterformular und SQL LEFT JOIN
Keine neuen Beiträge Access Tabellen & Abfragen: Befehlsschaltläche bezieht sich auf Unterformular! 12 seppel27 808 15. Aug 2007, 13:07
seppel27 Befehlsschaltläche bezieht sich auf Unterformular!
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei Suche in einem Feld + Teil kopieren 1 evil1 615 30. März 2007, 15:11
derArb Problem bei Suche in einem Feld + Teil kopieren
Keine neuen Beiträge Access Tabellen & Abfragen: kombinierte Suche für access, excel UND powerpoint? 1 mariechen80 699 05. Jan 2007, 20:08
Nouba kombinierte Suche für access, excel UND powerpoint?
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze mit zig Variationen (Suche Denkanstoß!) 4 ee547 788 01. Nov 2006, 21:13
Nouba Datensätze mit zig Variationen (Suche Denkanstoß!)
Keine neuen Beiträge Access Tabellen & Abfragen: Suche Wert in Formular übernehmen 12 Oreo 922 19. Sep 2006, 00:50
Oreo Suche Wert in Formular übernehmen
Keine neuen Beiträge Access Tabellen & Abfragen: Suche nach dem Stern (*) in einem Textfeld? 3 Lueghi 2370 26. Jun 2006, 16:46
Lueghi Suche nach dem Stern (*) in einem Textfeld?
Keine neuen Beiträge Access Tabellen & Abfragen: Änderung der Datenquelle für ein Unterformular 6 turbochris 4720 06. Mai 2006, 10:56
Willi Wipp Änderung der Datenquelle für ein Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Suche nach einer Eingabevariablen in der Select-Zeile 1 neuer Gast 496 21. Feb 2006, 16:17
rita2008 Suche nach einer Eingabevariablen in der Select-Zeile
 

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