Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchfunktion im Unterformular
Gehe zu Seite 1, 2  Weiter
zurück: Tabellenwert in andere tabelle übertragen weiter: einschränkung daten unterformular 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
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
20. Jul 2009, 17:29
Rufname:
Wohnort: Hamburg

Suchfunktion im Unterformular - Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Hallo Leute,

habe mal wieder ein Problem.

Ich möchte über ein Textfeld und einen Button in einem Unterformular suchen und sortieren.
Im Unterformular sind Keywords I bis III gegeben, auf diese möchte kommen.
Habe momentan folgenden Code gebaut, aber da stimmt nochwas nicht.
Code:
Private Sub cmd_search_Click()
    Forms![APPROVAL]![Approval_Add_comment].Form.RecordSource = _
      "SELECT * " & _
        "FROM Spec_Relevant_Request " & _
       "WHERE [Keyword I] And [Keyword II] And [Keyword III] = Parent!keyword"
Exit_cmd_search_Click:
    Exit Sub
Err_cmd_search_Click:
    MsgBox "Please Input Keyword"
    Resume Exit_cmd_search_Click
End Sub
Könnt ihr mir helfen?
Danke
Gruß Thomas
MissPh!
Office-VBA-Programmiererin


Verfasst am:
20. Jul 2009, 18:59
Rufname:
Wohnort: NRW


AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Hallo Thomas,

du musst das einzeln abfragen und außerdem das Formularfeld mit dem Code verknüpfen:
Code:
       "WHERE [Keyword I] = " & Me.Parent!keyword & " " & _
         "AND [Keyword II] = " & Me.Parent!keyword & " " & _
         "AND [Keyword III] = " & Me.Parent!keyword
Ob hier AND oder OR eingesetzt wird, musst du entscheiden.
Wenn es sich um Textfelder handelt, müssen noch Hochkommata gesetzt werden.

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
20. Jul 2009, 19:52
Rufname:
Wohnort: Hamburg

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

also so gehts leider nicht:
Code:
Private Sub cmd_search_Click()
    Forms![APPROVAL]![Approval_Add_comment].Form.RecordSource = _
                        "SELECT * " & _
                          "FROM Spec_Relevant_Request " & _
                         "WHERE [Keyword I] = " & Me.Parent!Keyword & " " & _
                           "AND [Keyword II] = " & Me.Parent!Keyword & " " & _
                           "AND [Keyword III] = " & Me.Parent!Keyword
Exit_cmd_search_Click:
    Exit Sub
Err_cmd_search_Click:
    MsgBox "Please Input Keyword"
    Resume Exit_cmd_search_Click
End Sub
Ist aber auch glaube ich vom Prinzip her falsch, oder,... ich suche Keyword I im Unterformular und Keyword ist das Textfeld auf dem Hauptformular.

Gruß Thomas
MissPh!
Office-VBA-Programmiererin


Verfasst am:
20. Jul 2009, 20:27
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Wenn der Such-Button und das Suchfeld im HF liegen, ist es natürlich nicht richtig, die Parent-Eigenschaft zu benutzen.

Und wie läuft's ohne Parent?

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 09:12
Rufname:
Wohnort: Hamburg


AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Hallo und guten Morgen,

also jetzt gibt er zwar keine Fehlermeldung mehr aus, aber es gibt ein Popup in dem ich KEYWORD I, dann KEYWORD II etc eintragen muss....

und den/die gewünschten Kommentar(e) zeigt er auch nicht an, leider....

(Ohne Parent)
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2009, 10:51
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Daraus kann man eigentlich nur schließen, dass die Datenfelder "Keyword I" bis "Keyword III"
nicht in der Tabelle oder Abfrage "Spec_Relevant_Request" enthalten sind.

Vielleicht musst du einfach nur "den Spieß umdrehen":
Code:
    Forms![APPROVAL]![Approval_Add_comment].Form.RecordSource = _
                        "SELECT * " & _
                          "FROM Spec_Relevant_Request " & _
                         "WHERE Keyword = " & Me![Keyword I] & " " & _
                           "OR Keyword = " & Me![Keyword II] & " " & _
                           "OR Keyword = " & Me![Keyword III]
oder so, falls Text:
Code:
Forms![APPROVAL]![Approval_Add_comment].Form.RecordSource = _
                        "SELECT * " & _
                          "FROM Spec_Relevant_Request " & _
                         "WHERE Keyword = '" & Me![Keyword I] & "' " & _
                           "OR Keyword = '" & Me![Keyword II] & "' " & _
                           "OR Keyword = '" & Me![Keyword III] & "'"

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 11:14
Rufname:
Wohnort: Hamburg

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

hallo,

Punkt 1 richtig, Felder waren nicht in der Abfrage,... dumm. Smile

Punkt 2 leider geht es nicht, egal welche Variante ich nehme, folgende Fehlermeldungen:

Variante 1:
Zitat:
Laufzeitfehler 2465
OSM NEwbuilding Database kann das in Ihrem Ausdruck angesprochene Feld KEYWORD I nicht finden.
Varainte 2: die gleiche Fehlermeldung.....

Ich versuche nochmal zu erklären:

In ein Textfeld im HF (Name Keyword) soll ein "Wort" eingegeben werden.
Ein Button soll mit Hilfe dieses Wortes in einem Unterformular Textfelder durchsuchen (Namen: Keyword I, KeywordII, Keyword III)

Wenn der Button geklickt wird und kein Wort im Textfeld steht dann soll eine Fehlermeldung erscheinen, das ist kein Problem,.... Wink

Vielleicht habt ihr noch eine Idee

DAnke

Gruß Thomas
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2009, 11:44
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Wie lautet denn die Datenherkunft des Unterformulars und der drei KEYWORDs dort?
_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 11:52
Rufname:
Wohnort: Hamburg

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Die Datenherkunf ist aus einer Abfrage Namens Spec_Relevant_Request

Die Daten der Keywordfelder KEYWORD I - III sind in der Abfrage über die Tabelle Tab_Drawing_Comments integriert.

Reicht Dir das, sonst mache ich eine Screenshot
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2009, 12:10
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Nein, das reicht mir nicht, beschreibe es bitte genauer:
- Datenherkunft des UF (SQL-Code der Abfrage)
- Steuerelementinhalt der KEYWORDs (Name der Datenfelder)

_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 12:29
Rufname:
Wohnort: Hamburg

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

hier der Code der Abfrage
Code:
SELECT C.Comments, C.[Relevant till], C.[Relevant for Spec],
       Q.Drawing_OSM_ID, Q.Comment_ID, O.Drawing_OSM_ID,
       O.Drawing_Number_OSM, O.Drawingname_OSM, S.Shiptype,
       C.[Relevant for ML], C.[Relevant for Contract],
       C.[According Rules and Regulations], C.[Shipping Company Standard],
       C.[Good Seamenship], C.[Nice to have], C.[Take it or leave it],
       C.[Keyword I], C.[Keyword II], C.[Keyword III]
FROM   Tab_Drawings_OSM AS O
       INNER JOIN ((Shiptype AS S
                    INNER JOIN Tab_Drawing_Comments AS C
                    ON S.Shiptype_ID = C.Shiptype_ID)
                   INNER JOIN Drawing_Comments AS Q
                   ON C.Comment_ID = Q.Comment_ID)
       ON O.Drawing_OSM_ID = Q.Drawing_OSM_ID;
Name der Datenfelder Keyword I, Keyword II und Keyword III
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2009, 13:27
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Und was bitte ist Spec_Relevant_Request?
_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 13:47
Rufname:
Wohnort: Hamburg

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

so heißt die Abfrage deren Code du oben siehst.
MissPh!
Office-VBA-Programmiererin


Verfasst am:
21. Jul 2009, 13:51
Rufname:
Wohnort: NRW

AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

dann verstehe ich aber nicht, warum das hier nicht läuft:
Code:
    Forms![APPROVAL]![Approval_Add_comment].Form.RecordSource = _
                        "SELECT * " & _
                          "FROM Spec_Relevant_Request " & _
                         "WHERE [Keyword I] = " & Me!Keyword & " " & _
                            "OR [Keyword II] = " & Me!Keyword & " " & _
                            "OR [Keyword III] = " & Me!Keyword
oder eben mit Hochkommata - zum Datentyp hattest du dich glaub ich noch nicht geäußert, oder?
_________________
Gruß MissPh!
Tom_hh
Verzweifelt gezwungener DB-Ersteller


Verfasst am:
21. Jul 2009, 15:37
Rufname:
Wohnort: Hamburg


AW: Suchfunktion im Unterformular - AW: Suchfunktion im Unterformular

Nach oben
       Version: Office 2003

Tom_hh am 21. Jul 2009 um 14:03 hat folgendes geschrieben:
Sorry vergessen Datentyp ist Text

keyword hat format Text das ist richtig,... also in ' ' klappen tuts aber leider immer noch nicht, er spricht das Textfeld nicht an.... also es kommt die Fehlermeldung
Zitat:
Please input Keyword
der Code ist nun folgender:
Code:
Private Sub cmd_search_Click()
On Error GoTo Err_cmd_search_Click
     Forms!APPROVAL!Approval_Add_comment.Form.RecordSource = _
                             "SELECT * " & _
                               "FROM Spec_Relevant_Request " & _
                              "WHERE Keyword = '" & Me![Keyword I] & "' " & _
                                 "OR Keyword = '" & Me![Keyword II] & "' " & _
                                 "OR Keyword = '" & Me![Keyword III] & "'"
Exit_cmd_search_Click:
    Exit Sub
Err_cmd_search_Click:
    MsgBox "Please Input Keyword"
    Resume Exit_cmd_search_Click
End Sub
Gleich noch ein weiteres Problem...
Folgender Code,... könnt ihr mir da auch bei helfen? Die Filterung geht nicht Sad
Code:
Private Sub cmd_Fltr_shiptype_Click()
    Forms!APPROVAL!Approval_Add_comment.Form.RecordSource = _
                                           "SELECT * " & _
                                             "FROM Spec_Relevant_Request " & _
                                            "WHERE Shiptype_ID = Shiptype_ID"
End Sub
Danke euch

Thomas
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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: Berechnung in Unterformular 1 Bollerkohl 100 09. Okt 2012, 08:19
kyron9000 Berechnung in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Laufende Uhrzeit im Unterformular 3 Iron70 305 23. Sep 2012, 07:57
Iron70 Laufende Uhrzeit im Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei Suchfunktion 3 Mr. Sommer 105 21. Aug 2012, 16:46
Mr. Sommer Problem bei Suchfunktion
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular Neuer Datensatz nicht am Schluss 1 chris374 389 03. März 2012, 10:56
KlausMz Unterformular Neuer Datensatz nicht am Schluss
Keine neuen Beiträge Access Tabellen & Abfragen: Auf Unterformular zugreifen 1 Vermillion 181 12. Jan 2012, 18:38
MiLie Auf Unterformular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Unterformular für Artikelbestellung 5 JochenGAST 304 01. März 2011, 20:10
KlausMz Unterformular für Artikelbestellung
Keine neuen Beiträge Access Tabellen & Abfragen: Variabler Wert in einem Abhängigem Unterformular 7 Ogni 589 07. Feb 2011, 18:45
Bitsqueezer Variabler Wert in einem Abhängigem Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Leere Abfrage wenn kein Wert im Unterformular??? 5 Gast 588 23. Dez 2010, 15:02
Willi Wipp Leere Abfrage wenn kein Wert im Unterformular???
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in Unterformular 3 Hundshamer 302 25. Mai 2010, 11:22
blackoutNO Abfrage in Unterformular
Keine neuen Beiträge Access Tabellen & Abfragen: Suchfunktion über alle Felder 2 stephan0607 482 13. Feb 2008, 22:24
stephan0607 Suchfunktion über alle Felder
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: Suchfunktion mit VBA Access 1 Subara 1318 31. Okt 2007, 23:32
rita2008 Suchfunktion mit VBA Access
 

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