Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Suchen im Unterformular
Gehe zu Seite 1, 2  Weiter
zurück: Kombinationsfelder mit Werten aus einer Tabelle füllen weiter: variable Bezeichnungsfeld beschriftung aus Datensatz... Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Bitte Status wählen ! Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
gippo
Access-Rookie


Verfasst am:
18. Apr 2005, 10:05
Rufname:

Suchen im Unterformular - Suchen im Unterformular

Nach oben
       

Question Hallo, ich habe folgendes Problem Question :

ein Unterformular greift auf mehrere Tabellen und Abfragen in Form von Kombi-Listen zurueck (insgesamt etwa 1500 Datensaetze). Ich moechte durch ein Textfeld mit DoppelClick Ereignis im Hauptformular die Suche nach spezifischen Datensaetzen innerhalb dieses Unterformulars erleichtern. Das Unterformular soll in der Datenblatt-Ansicht vorhanden sein.

Wie kann ich die Suche so modifizieren, dass nur spezifische Datensaetze innerhalb des Unterformulars angezeigt werden, die das im Textfeld angegebene Kriterium mindestens teilweise enthalten?

Ueber eine Antwort wuerde ich mich freuen. Es geht dabei naemlich um die Doktorarbeit meines Chefs Laughing
lothi
c#, .Net


Verfasst am:
18. Apr 2005, 14:59
Rufname:
Wohnort: Birgisch


AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Das Kriterium soll irgend in einer Spalte im Unterformular enthalten sein?

Wie man in Unterformularen sucht wird hier in etlichen Beiträgen gezeigt.

Was du denn schon und was verstehts du unter speziefischen Datensätze.

Du kannst du Suche über eine Abfrage machen oder mit dem Filter-Ereignis
des Unterformulars erledigen.
Suchformular in 10 min

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
18. Apr 2005, 15:32
Rufname:

Suchformular - Suchformular

Nach oben
       

habe ein formular suchen.
darin 4 optionsfelder die ich anklicken kann, um das suchkriterium festzulegen. dann noch ein textfeld, für die eingabe des suchbegriffs.
im formular ist ein unterformular, in das die duchergebnisse ausgegeben werden. momentan zeigt mir dieses alle inhalte an, de momentan gespeichert sind.
such-code:
Code:
Private Sub SchuelerSuchen_Click()
    Select Case Suche
      Case 1
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Name];"
      Case 2:
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Nachname];"
      Case 3:
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Geburtstatum];"
      Case 4:
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Status];"
    End Select
End Sub

Leider funktioniert es nicht und bei den seiten suchformular in 10 hab ich auch nicht so richtig ne antwort gefunden. nicht so wie ich es hier angefangen habe.
kann mir jemand helfen?
lothi
c#, .Net


Verfasst am:
18. Apr 2005, 17:44
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Du musst auch noch ein Kriterium mitgeben:
Code:
Private Sub SchuelerSuchen_Click()
    Select Case Suche
      Case 1
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Name] " & _
            "WHERE Feldname LIKE '" & Me!Suchfeld & "'"""
      Case 2
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Nachname];"
      Case 3
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Geburtstatum];"
      Case 4
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Status];"
    End Select
End Sub
Am besten gleich so:
Code:
Private Sub SchuelerSuchen_Click()
    Dim sKrit As String
   
    Select Case Suche
      Case 1: sKrit = " Feldname1 LIKE '" & Me!txtSuche & "'"
      Case 2: sKrit = " Feldname2 LIKE '" & Me!txtSuche & "'"
      Case 3: sKrit = " Feldname3 LIKE '" & Me!txtSuche & "'"
      Case 4: sKrit = " Feldname4 LIKE '" & Me!txtSuche & "'"
    End Select
    Me![SchuelerUnterformular].Form.RecordSource = _
        "SELECT * FROM [abf_Suche_Geburtstatum] WHERE  " & sKrit
End Sub

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
18. Apr 2005, 18:03
Rufname:


so? - so?

Nach oben
       

Code:
      Case 4:
        Me![SchuelerUnterformular].Form.RecordSource = _
            "SELECT * FROM [abf_Suche_Name] " & _
            "WHERE  Name LIKE '" & Me!Suchfeld & "'"" "
oder wenn ich es nach dem 2ten mache, kommt die Me! anweisung nach jedem sKrit = " Feldname4 LIKE '" & Me!txtSuche & "'"

?? Confused
danke für deine Hilfe
lothi
c#, .Net


Verfasst am:
19. Apr 2005, 09:07
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Also machen wir das mal langsam:

Du hast eine Abfrage:
Code:
SELECT * FROM [abf_Suche_Nachname];
Um die Daten zu Fiiltrieren muss du der Abfrage ein Kriterium übergeben:
Code:
WHERE Feldname LIKE 'a'

In deinem Fall musst du a durch das Textfeld im Formular wo der Suchtext steht ersetzen.
In VBA sieht das so aus:
Code:
    "SELECT * " & _
    "FROM   Tabelle " & _
    "WHERE  Feldname LIKE '" & Me!TextfeldimForm & "'"

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
19. Apr 2005, 18:17
Rufname:

generator ?! - generator ?!

Nach oben
       

über welchen generator(der button zur suche)?:
code-, makro- oder ausdrucksgenerator?
lothi
c#, .Net


Verfasst am:
19. Apr 2005, 20:06
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Reden wir beide vom gleichen? Shock

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
19. Apr 2005, 22:21
Rufname:

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

ach ja... ne scon klar... war net so ganz bei der sache wegen dem button... müsste es so ausehen?
Code:
SELECT * FROM Schueler WHERE Name LIKE " & Me!TextfeldimForm & "
Allerdings muss ich leider zugeben, dass ich nicht weiss was nun mit
TextfeldimForm gemeint ist
lothi
c#, .Net


Verfasst am:
20. Apr 2005, 12:36
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Ist Kirstenf und Grippo eigentlich die gleiche Person?
Kirstenf hat folgendes geschrieben:
...dann noch ein textfeld, für die eingabe des suchbegriffs.

Code:
SELECT * FROM Schueler WHERE Name LIKE " & Me!TextfeldimForm & "

Muss der name vom oben erwänten Textfeld rein.

Wichtig sind die einfachen Anführungszeichen die hab ich nicht so zum Spass
geschrieben. Kriterien vom Typ Text müssen zwischen Anführungszeichen.
In SQL kann man auch die einfachen Anführungszeichen nehmen.
Code:
    "SELECT * " & _
    "FROM   Tabelle " & _
    "WHERE  Feldname LIKE '" & Me!TextfeldimForm & "'"

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
20. Apr 2005, 12:50
Rufname:

makro - makro

Nach oben
       

Smile nein, wir sind nicht die gleiche Person... da würde ich ja net mehr durchblicken... also habe alles so gemacht..
wenn ich jetzt was im textfeld eingebe und auf suchen klicke, kommt folgende meldung:
entweder existiert das makro nicht, oder das makro ist neu und wurde noch nicht gespeichert. beachten sie folgendes: wenn sie in einem argument die syntax makrogruppenname.makroname verwenden, müssen sie den namen angeben, unter dem die makrogruppe des makros zuletzt gespeichert wurde.

ooooooooookay, ich habe gar kein makro Confused
was nun? Crying or Very sad
lothi
c#, .Net


Verfasst am:
20. Apr 2005, 17:21
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

Hallo

Markiere den Button den du jetzt zum Suchen erstellt hast.
Öffne die Eigenschaften dann Register Ereigniss und dort sollte beim klicken [Ereignisprozedur] drinstehen.
Wenn nicht lösche den Inhalt und lese aus der Liste [Ereignisprozedur] aus.
Klicke jetzt hinten aûf den Button mit den 3... und kopiere den Code hir
ins Forum.
Sag uns wie das Textfeld zum Suchen heisst.

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
21. Apr 2005, 12:25
Rufname:

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

ok, habe beim klicken ereignisproz. ausgewählt. wenn ich auf die 3 ... gehe kommt dann der code:
Code:
Private Sub ProjektSuchen_Click()
    Select Case Suche
      Case 1:
        Me![ProjektstammdatenUnterformular].Form.RecordSource = _
            "SELECT * FROM [Projektbezeichnung] " & _
            "WHERE Projektbezeichnung Like " & Me!Suchkriterium & " "
      Case 2:
        Me![ProjektstammdatenUnterformular].Form.RecordSource = _
            "SELECT * FROM [Projektbezeichnung] " & _
            "WHERE Projektleiter Like " & Me!Suchkriterium & " "
      Case 3:
        Me![ProjektstammdatenUnterformular].Form.RecordSource = _
            "SELECT * FROM [Projektbezeichnung] " & _
            "WHERE Mitarbeiter Like " & Me!Suchkriterium & " "
      Case 4:
        Me![ProjektstammdatenUnterformular].Form.RecordSource = _
            "SELECT * FROM [Projektbezeichnung] " & _
            "WHERE Status Like " & Me!Suchkriterium & " "
    End Select
End Sub

Das Textfeld, wo ich das Kriterium eingebe, wonach gesucht werden soll heisst "Suchkriterium"
(habe mal was anderes genommen als die schueler...)
lothi
c#, .Net


Verfasst am:
21. Apr 2005, 12:33
Rufname:
Wohnort: Birgisch

AW: Suchen im Unterformular - AW: Suchen im Unterformular

Nach oben
       

So:
Code:
Private Sub ProjektSuchen_Click()
    Dim sSQL As String
    Dim SKrit As String

    sSQL = "SELECT * FROM [Projektbezeichnung] "
    Select Case Suche
      Case 1: SKrit = " Projektbezeichnung Like '" & Me!Suchkriterium & "'"
      Case 2: SKrit = " Projektleiter Like '" & Me!Suchkriterium & "'"
      Case 3: SKrit = " Mitarbeiter Like '" & Me!Suchkriterium & "'"
      Case 4: SKrit = " Status Like '" & Me!Suchkriterium & "'"
    End Select
    sSQL = SQL & " WHERE " & SKrit 'Edit by Willi Wipp
    Me![ProjektstammdatenUnterformular].Form.RecordSource = sSQL
End Sub

_________________
Gruss Lothi, der Bastler
Feedback ist die beste Möglichkeit mir zu sagen ob die Antwort geholfen hat!
AC2002, WinXP, Office XP
kirstenF
Gast


Verfasst am:
21. Apr 2005, 19:20
Rufname:


Fehlermeldung - Fehlermeldung

Nach oben
       

Dann bekomme ich folgende Fehlermeldung:

Fehler beim Kompilieren:
Variable nicht definiert

Er makiert das "Suche" von "Selecht Case Suche"
Hier nochmal der Code wie er bei mir steht:
Code:
Option Compare Database
Option Explicit

Private Sub ProjektSuchen_Click()
    Dim sSQL As String
    Dim SKrit As String
   
    sSQL = "SELECT * FROM [Projektbezeichnung] "
    Select Case Suche
      Case 1: SKrit = " Projektbezeichnung Like '" & Me!Suchkriterium & "'"
      Case 2: SKrit = " Projektleiter Like '" & Me!Suchkriterium & "'"
      Case 3: SKrit = " Mitarbeiter Like '" & Me!Suchkriterium & "'"
      Case 4: SKrit = " Status Like '" & Me!Suchkriterium & "'"
    End Select
    sSQL = sSQL & " WHERE " & SKrit 'Edit by Willi Wipp
    Me![ProjektstammdatenUnterformular].Form.RecordSource = sSQL
End Sub
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: im Access nach Zeilenumbruch suchen 5 karin_office 5139 15. März 2007, 14:35
Thomas2007 im Access nach Zeilenumbruch suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Datensätze suchen und anzeigen 7 Bimsinator 888 13. März 2007, 22:00
Nouba Datensätze suchen und anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Nach Kriterien suchen und anzahl ausgeben 3 romu2000 603 11. Feb 2007, 23:43
Willi Wipp Nach Kriterien suchen und anzahl ausgeben
Keine neuen Beiträge Access Tabellen & Abfragen: nächst höheren Wert suchen 7 alex123 782 05. Jan 2007, 12:47
Gast nächst höheren Wert suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Suchen und Ersetzen 2 Gast 801 19. Dez 2006, 08:51
Gast Suchen und Ersetzen
Keine neuen Beiträge Access Tabellen & Abfragen: Im Formular Wert in Tabelle suchen (Wertebereich) und Übertr 4 Kläuschen 4031 14. Nov 2006, 18:44
Kläuschen Im Formular Wert in Tabelle suchen (Wertebereich) und Übertr
Keine neuen Beiträge Access Tabellen & Abfragen: Wert in einer Tabelle mittels eines Eingabefeldes suchen 2 Gast1 784 27. Jul 2006, 11:16
Gast Wert in einer Tabelle mittels eines Eingabefeldes suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Problem: Parameter-Abfrage aus einem Unterformular ausführen 3 bettina_vt 3428 12. Mai 2006, 15:44
bettina_vt Problem: Parameter-Abfrage aus einem Unterformular ausführen
Keine neuen Beiträge Access Tabellen & Abfragen: NULL suchen und ersetzen [VBA] 2 theindeed21 1915 03. Mai 2006, 10:23
theindeed21 NULL suchen und ersetzen [VBA]
Keine neuen Beiträge Access Tabellen & Abfragen: Duplikate suchen 1 erwing 806 21. Jan 2006, 13:35
Wollibär Duplikate suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Warengruppen suchen 0 umbroboy 582 07. Nov 2005, 18:03
umbroboy Warengruppen suchen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameterabfrage in Unterformular 2 kassandra 1210 09. März 2005, 11:15
kassandra Parameterabfrage in Unterformular
 

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