Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Formular Suche-bei mehrfachen Einträgen nur ein Ausgabewert
zurück: Tabellenwert als Standard für Formular weiter: Optionsfeld abfragen Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
r0x0r
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Aug 2008, 15:44
Rufname:

Formular Suche-bei mehrfachen Einträgen nur ein Ausgabewert - Formular Suche-bei mehrfachen Einträgen nur ein Ausgabewert

Nach oben
       Version: Office 2003

Moin Leute,

erstmal generelles Kompliment zum Forum. Habe schon zu vielen von meinen Problemen Lösungen hier im Forum gefunden. Nun stellt sich mir allerdings ein Problem, was ich noch nicht finden konnte.

Also es handelt sich um folgendes:

Ich habe mir eine Formular in Access 2003 mit Suchfunktion nach folgendem Tutorial erstellt:

Suchmaske für Access-Datenbank

Das funktioniert auch alles wunderbar, doch es gibt zu einem Partner mehrere Einträge, das ist auch richtig so. Dennoch wird egal auf welchen Eintrag ich klicke mir immer nur der Eintrag, der als erster Record bei mir in der Tabelle auftaucht angezeigt. Woran kann das liegen? Und wie kann ich das verändern?

Das ist der Row Source Code im meinem Listenfeld, wo ich mir die gefunden Einträge anzeigen lassen:
Code:
SELECT   Partner, ID
FROM     Product_table
WHERE    Partner Like "*" & Forms!Product_table!Text34 & "*"
ORDER BY Partner;
Dieser Code steht als Code im VBA, warum auch immer, und bezieht sich auch noch auf das Listenfeld:
Code:
Private Sub List37_AfterUpdate()
    ' Find the record that matches the control.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[Partner] = '" & Me![List37] & "'"
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
Leider kann ich noch keine Dateien an mein Thread anhängen, sonst hätte ich ein Screenshot zur Verdeutlichung angehängt.

Hat Jemand eine Idee?
Danke im Voraus.
JörgG
Access-Team


Verfasst am:
04. Aug 2008, 15:55
Rufname:
Wohnort: b. Dresden


AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew - AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew

Nach oben
       Version: Office 2003

Hallo,

ja das ist richtig, diesen Code hat Dir der Listenfeld-Assistent geschrieben und er springt zum ersten DS der das Kriterium erfüllt.

Ändere ihn in:
Code:
Private Sub List37_AfterUpdate()
    Me.Filter = "Partner = '" & Me!List37 & "'"
    Me.FilterOn = True
End Sub

Vielleicht noch einen Button der den Filter wieder löscht:
Code:
Private Sub Button_Click()
    Me.Filter = ""
    Me.FilterOn = False
End Sub

Idea Alternativ geht's auch ohne die Liste, im Ereignis "nach Aktualisierung" des Suchfeldes Text34:
Code:
Private Sub Text34_AfterUpdate()
    Me.Filter = "Partner Like '*" & Me!Text34 & "*'"
    Me.FilterOn = True
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
r0x0r
Im Profil kannst Du frei den Rang ändern


Verfasst am:
04. Aug 2008, 16:07
Rufname:

Re: AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausg - Re: AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausg

Nach oben
       Version: Office 2003

Hi JörgG,

danke für die schnelle Antwort. Also, wenn ich das jetzt richtig bemerkt habe, ist die Liste der Records deutlich kleiner geworden (von 197 auf 5 geschrumpft).
Leider bleibt das Problem das Gleiche:
Wenn ich einen anderen Einträg in der ListBox auswähle, ändern sich die Daten in den Textfeldern leider nicht.

Hättest du noch eine andere Idee?

Gruß

PS: Danke für die Anregung mit dem Filter lösche, habe ich gleich eingebaut!
JörgG
Access-Team


Verfasst am:
04. Aug 2008, 16:40
Rufname:
Wohnort: b. Dresden

AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew - AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew

Nach oben
       Version: Office 2003

Hallo,

kann ja auch nicht, da die Liste nur DS anzeigt die mit dem Wert aus Text34 übereinstimmen, somit haben alle Listeneinträge den gleichen Partner! Du musst also erst den Wert in Text34 ändern, bevor sich etwas tut. Im Ereignis Text34 "nach Aktualisierung" hast Du das stehen?
Code:
Private Sub Text34_AfterUpdate()
    Me!List37.Requery
End Sub

Erweitere mal den Buttoncode:
Code:
Private Sub Button_Click()
    Me.Filter = ""
    Me.FilterOn = False
    Me!Text34 = ""
    Me!List37.Requery
End Sub

Question Sind die verwendeten Namen Text34, List37 korrekt?

Edit: Wenn Du jedoch mit klick in die Liste zu einem bestimmten Partner willst, dann ändere hier in:
Code:
Private Sub List37_AfterUpdate()
    Me.Filter = "ID = " & Me!List37.Column(1)
    Me.FilterOn = True
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
r0x0r
Im Profil kannst Du frei den Rang ändern


Verfasst am:
05. Aug 2008, 10:04
Rufname:


AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew - AW: Formular Suche-bei mehrfachen Einträgen nur ein Ausgabew

Nach oben
       Version: Office 2003

Perfekt. Danke jetzt funktioniert es. Very Happy

Danke für deine Mühen.
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: Aus Abfrage auf ein Feld im Formular zugreifen 5 Olsen 1646 11. Jul 2005, 12:34
Willi Wipp Aus Abfrage auf ein Feld im Formular zugreifen
Keine neuen Beiträge Access Tabellen & Abfragen: Parameter fuer SQL-Statement aus Formular 1 kuni 824 04. Jul 2005, 10:22
jens05 Parameter fuer SQL-Statement aus Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage von Formular zu mehreren Tabellen gleichzeitig 5 Friedel 1237 22. Mai 2005, 11:06
jens05 Abfrage von Formular zu mehreren Tabellen gleichzeitig
Keine neuen Beiträge Access Tabellen & Abfragen: Formular --> Tabelle ? 6 AlexisM 835 27. Apr 2005, 10:56
AlexisM Formular --> Tabelle ?
Keine neuen Beiträge Access Tabellen & Abfragen: Anzahl der Datensätze zählen (im Formular oder Bericht) ? 3 anna-bolika 3756 31. März 2005, 12:50
Dalmatinchen Anzahl der Datensätze zählen (im Formular oder Bericht) ?
Keine neuen Beiträge Access Tabellen & Abfragen: Formular: Groesse? 1 Gast 732 24. März 2005, 13:35
Sanne Formular: Groesse?
Keine neuen Beiträge Access Tabellen & Abfragen: Feld wird nicht in Formular angezeigt 1 Chef_1 528 12. März 2005, 21:27
stpimi Feld wird nicht in Formular angezeigt
Keine neuen Beiträge Access Tabellen & Abfragen: Automatische Aktualisierung von generiertem Wert im Formular 9 GandalfTCM 1041 09. Feb 2005, 17:40
lothi Automatische Aktualisierung von generiertem Wert im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: Wert übernehmen von einem Formular in das andere 2 mactoolz 1244 03. Feb 2005, 17:46
ralphkr Wert übernehmen von einem Formular in das andere
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Formular gestalten 3 HBurmei 1977 03. Dez 2004, 22:17
mapet Abfrage mit Formular gestalten
Keine neuen Beiträge Access Tabellen & Abfragen: Formular für mehrere Abfragen benutzen 2 Oli aus Bonn 1262 21. Nov 2004, 01:30
Oli aus Bonn Formular für mehrere Abfragen benutzen
Keine neuen Beiträge Access Tabellen & Abfragen: Standardwert in Formular aus einer Abfrage? 3 Gast 1777 04. Okt 2004, 12:53
Pfobeman Standardwert in Formular aus einer Abfrage?
 

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