Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Stichwortsuche um Parameter erweitern
zurück: gefunden Datensätze speichern weiter: Eine Cystal Reports Datei (rtp) aus Access öffnen 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
Gina911
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Jun 2007, 16:19
Rufname:
Wohnort: Dresden

Stichwortsuche um Parameter erweitern - Stichwortsuche um Parameter erweitern

Nach oben
       Version: Office 2003

Hallo Leute,
da bin ich wieder....

Ich habe für mein HF ein Textfeld mit Stichwortsuche und einen Suchbutton.
Mein Code ist folgender:
Code:
Private Sub Command249_Click()
    Dim strsuche As String, Rst As DAO.Recordset
           
    Me![Aufgabenstellung].SetFocus
    strsuche = "*" & Me![Suchfeld] & "*"
    Me.Filter = "[Aufgabenstellung] Like '" & strsuche & "'"
    If Not IsNull(Me!Suche) Then
        Me.Filter = Me.Filter & " AND Maske = '" & Me!Suche & "'"
    End If
    Me.FilterOn = True
    Me![Suchfeld].SetFocus
    If intkeyascii = 32 Then
        Me![Suchfeld] = Me![Suchfeld] & Chr(32)
    End If
    If Me.RecordsetClone.RecordCount <> 0 Then
        Me![Suchfeld].SelStart = Len("" & Me![Suchfeld])
    End If
    Set Rst = CurrentDb.OpenRecordset("TblSucheworte", dbOpenDynaset)
    Rst.FindFirst "Suchwort = '" & Me!Suchfeld & "'"
    If Rst.NoMatch Then  'noch nicht vorhanden
        Rst.AddNew
        Rst!Suchwort = Me!Suchfeld
        Rst!Anzahl = 1
      Else               'vorhanden
        Rst.Edit
        Rst!Anzahl = Rst!Anzahl + 1
    End If
    Rst.Update
    Rst.Close: Set Rst = Nothing
End Sub
Zum Verständnis im letzten Teil des Codes wird das eingegebene Stichwort in einer Tabelle gezählt und eine Topliste erstellt.

Nun zu meinem Problem:

In dem Suchfeld kann man immer nur ein Wort eingeben und suchen lassen.
Das ist bei der Masse an Daten zwar recht aber schlecht.

Kann man den Code so erweitern, das ich nach mehreren Stichwörtern suchen kann?

Zum Beispiel mit folgenden Parametern:
Leerzeichen zwischen den Suchbegriffen: Wenigstens einer der Suchbegriffe muss vorhanden sein.
‘+’ -Zeichen ohne Leerzeichen vor einem Suchbegriff: Wort muss vorhanden sein.
‘-’ -Zeichen ohne Leerzeichen vor einem Suchbegriff: Wort soll NICHT vorhanden sein.
‘*’ -Zeichen am Ende eines Suchbegriffen: Suche nach Begriffen, die das Teilwort enthalten.

Kann mir da jemand helfen?
Vielen, vielen Dank im Vorraus....
derArb
getting better


Verfasst am:
09. Jun 2007, 03:31
Rufname: derArb
Wohnort: Berlin


AW: Stichwortsuche um Parameter erweitern - AW: Stichwortsuche um Parameter erweitern

Nach oben
       Version: Office 2003

hallo,
ich kann da nur theoretisch antworten.
Man baut oder sucht sich die Funktionen hier im Forum
Über Optionsbuttons kann man diese dann steuern.

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Willi Wipp
Moderator


Verfasst am:
09. Jun 2007, 18:45
Rufname:
Wohnort: Raum Wiesbaden

Re: Stichwortsuche um Parameter erweitern - Re: Stichwortsuche um Parameter erweitern

Nach oben
       Version: Office 2003

Hi Gina911,

mal einige Stichpunkte dazu:
Mit Split kann man einen String in seine Teilstrings zerlegen.
Mit Instr kann man nach bestimmten Zeichen im String suchen.
Mit AND bzw. OR kann man einzelne Kriterien verbinden.

_________________
Eine kurze Rueckmeldung waere nett
SL Willi Wipp

(Anleitung fuer das Anhaengen von Dateien: Klicke links auf [www], Gaeste muessen sich dafuer anmelden)
Gina911
Im Profil kannst Du frei den Rang ändern


Verfasst am:
09. Jun 2007, 22:31
Rufname:
Wohnort: Dresden

AW: Stichwortsuche um Parameter erweitern - AW: Stichwortsuche um Parameter erweitern

Nach oben
       Version: Office 2003

Danke erstmal....

Hey Willi Wipp,
danke für deinen Hinweis, aber leider bin ich nicht so fit im Programmieren. Kannst du mir vielleicht ein paar Beispiele zu deinen Stichpunkten geben, damit ich sie auf meinen Code anwenden kann.

Das wär super lieb von dir - würdest mir echt helfen!!

Danke dir schonmal...
Willi Wipp
Moderator


Verfasst am:
03. Okt 2007, 01:17
Rufname:
Wohnort: Raum Wiesbaden


Re: Stichwortsuche um Parameter erweitern (II) - Re: Stichwortsuche um Parameter erweitern (II)

Nach oben
       Version: Office 2003

Hi Gina911,

hier mal eine moegliche Loesung.
Code:
Function FnstrBuildWHERE(strFeld As String, strWert As String) As String
    Dim varArr      As Variant
    Dim lngI        As Long
    Dim strSuchen   As String
   
    varArr = Split(strWert, " ")
    For lngI = LBound(varArr) To UBound(varArr)
        If Left$(varArr(lngI), 1) = "+" Then
            strSuchen = strSuchen & " AND " & _
                        strFeld & " = '" & Mid$(varArr(lngI), 2) & "'"
          ElseIf Left$(varArr(lngI), 1) = "-" Then
            strSuchen = strSuchen & " AND " & _
                        strFeld & " <> '" & Mid$(varArr(lngI), 2) & "'"
          ElseIf InStr(varArr(lngI), "*") Then
            strSuchen = strSuchen & "  OR " & _
                        strFeld & " Like '" & varArr(lngI) & "'"
          Else
            strSuchen = strSuchen & "  OR " & _
                        strFeld & " = '" & varArr(lngI) & "'"
        End If
'        Debug.Print varArr(lngI)
    Next lngI
    FnstrBuildWHERE = Mid$(strSuchen, 6)
End Function
'Zum testen im Direktbereich (Strg+G; Testfenster)
'?FnstrBuildWHERE("[Testfeld]","+ABC -DEF ghi* *jkl *mno* pqr")
Du musst Dir aber noch ueber die Prioritaeten von AND und OR klar werden!
_________________
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: A97 Abfrage from Tabelle Tabellenname als parameter 3 Gast_access97 914 23. Aug 2008, 18:54
Willi Wipp A97 Abfrage from Tabelle Tabellenname als parameter
Keine neuen Beiträge Access Tabellen & Abfragen: Wie werden mehrere Parameter in SQL angegeben? 0 AgentScully 913 25. Feb 2008, 23:37
AgentScully Wie werden mehrere Parameter in SQL angegeben?
Keine neuen Beiträge Access Tabellen & Abfragen: Droppdown erweitern 10 mkaufm 498 08. Jan 2008, 17:27
Nouba Droppdown erweitern
Keine neuen Beiträge Access Tabellen & Abfragen: Textdatei in Access importieren+aktualisieren+erweitern 5 maku 804 03. Nov 2007, 14:57
Willi Wipp Textdatei in Access importieren+aktualisieren+erweitern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Parameter auf zwei Feldern 2 @nicky 387 15. Okt 2007, 12:33
@nicky Abfrage mit Parameter auf zwei Feldern
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter einzeln abfragen 5 tomkoe 585 02. Okt 2007, 16:39
KlausMz Parameter einzeln abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern? 6 Zamp 802 25. Jun 2007, 19:13
Zamp Tabelle per INSERT INTO m. Werten o. Quelltabelle erweitern?
Keine neuen Beiträge Access Tabellen & Abfragen: Ergebnisse einer Abfrage, als neuen Parameter verwenden... 1 pilango 691 30. Dez 2006, 01:43
Nouba Ergebnisse einer Abfrage, als neuen Parameter verwenden...
Keine neuen Beiträge Access Tabellen & Abfragen: Was will Access den jetzt noch fürn Parameter? 2 Zamp 591 17. Dez 2006, 21:50
Zamp Was will Access den jetzt noch fürn Parameter?
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter für abfrage aus kombinationsfeld eines formulars 1 Juergen_190 1314 17. Dez 2006, 10:13
Juergen_190 Parameter für abfrage aus kombinationsfeld eines formulars
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfte Tabelle erweitern 2 Fredi1 893 19. Sep 2006, 09:58
Gast Verknüpfte Tabelle erweitern
Keine neuen Beiträge Access Tabellen & Abfragen: Abgefragter Parameter soll mit ausgegeben werden 2 stargazer01 789 13. Feb 2006, 09:39
stargazer01 Abgefragter Parameter soll mit ausgegeben werden
 

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