MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access - Code Archiv
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 03.12.2003, 09:28   #1
J_Eilers
MOF Guru
MOF Guru
Standard Grundlagen - Suchen und Nachschlagen in Kombi und Textfeldern

Morgen,

hier ist mein zweites Beispiel. In diesem geht es um das Suchen und Nachschlagen entsprechender Einträge eines Kombifeldes und das Suchen in einem Listenfeld anhand eines Textfeldes.

Das angehängte Beispiel wurde in Access 2000 erstellt, funktioniert aber auch in Access 97 (ist konvertiert).
Verwendet wurde die deutsche Version.

frmKombi:

In diesem Formular werden Daten anhand einer Auswahl im Kombifeld gesucht. Hier werden 2 Möglichkeiten aufgezeigt. Column und DLookUp.
In der linken Spalte wird Column verwendet und in der rechten DLookUp.

Column:

Für Column ist es notwendig, dass alle Daten im Kombifeld vorliegen. Hierzu geht man in der Entwurfsansicht auf die Datenherkunft seines Kombifeldes und kann in der zugrunde liegenden Abfrage die entsprechenden Felder einfach hinunterziehen (bei mehreren Tabellen / Abfragen muss eine Verknüpfung bestehen). Danach muss ggf. noch die Spaltenanzahl und die Spaltenbreite korrigiert werden. In meinem Beispiel ist die gebunden Spalte, die ID-Spalte, da hierdurch das Suchen einfacher ist.
Nun erstellt man sich ungebundene Textfelder und schreibt in diese als Steuerelementinhalt:

Code:

=DeinKombinationsfeld.Column(X)
Wobei X die Spaltennummer angibt und bei 0 anfängt.

DLookUp:

Bei DLookUp werden die Daten aus der Tabelle direkt gesucht. Dies kann bei großen Tabellen zu Performanceproblemen führen. Nachdem man sich hier ebenfalls ungebundene Textfelder erstellt hat (die Daten sind ja schon gespeichert und dienen nur zum Anschauen), schreibt man als Ereignis nach Aktualisierung des Kombifeldes:

Code:

Me!DeinTextfeld = DLookUp("[DeinTabellenfeld]", "[DeineTabelle]", "[DeinTabellenIDFeld] = " & Me!DeinKombifeld
Vorraussetzung ist hier wiederum, dass die gebundene Spalte die ID-Spalte ist. Falls das nicht der Fall ist, steht eine weitere Erklärung in meinem anderen Beispiel.

frmKombiContext

Hier wird in einem gebundenem Formular der Datensatz gesucht, der der Auswahl im Kombi entspricht. Danke an TommyK

Als Ereignis nach Aktualisierung:
Code:

If IsNull(Me!Kombinationsfeld0) Then
    MsgBox "Sie haben keine Auswahl getroffen"
Else
    With CodeContextObject
        Me.Text16.SetFocus
        DoCmd.FindRecord .Kombinationsfeld0, acEntire, False, acDown, False, , True
    End With
End If
Hier wird mit FindRecord der entsprechende Datensatz angesprungen.
Mit CodeContextObject wird das Objekt ermittelt, in welchem ein Code ausgeführt wird.
DoCmd.FindRecord ist eine Funktion, die Daten entsprechend eines Kriteriums (.Kombinationsfeld0) herraussucht.

frmSuche

Hier gibt es 2 Listenfelder, die anhand eines Eintrages im Textfeld gefiltert werden.

Im oberen Listenfeld habe ich in der zugrunde liegenden Abfrage einen Verweis auf das Textfeld erstellt und lasse dieses bei Änderung auffrischen.

Code:

Me!Liste16.Reqery
Im unteren Listenfeld wird die Datenherkunft erst bei Änderung mit der RowSource-Funktion zugewiesen (näheres hierzu siehe mein anderes Beispiel)

Zu beachten bei diesem Vorgehen, dass man als Kriterium Me!Textfeld.Text verwendet, um den Eingabetext zu verwerten. Des weiteren habe ich noch ein * vorangestellt und eines nachgestellt, damit wird nach einem Texteil gesucht und man muss nicht das ganze Wort eingeben (ähnlich der Adressleiste im Internet Explorer).

Ich hoffe, dass das Beispiel und die Erklärung verständlich sind und freue mich über Feedback in jeder Art
Angehängte Dateien
Dateityp: zip suchen und nachschlagen.zip (10,4 KB, 1965x aufgerufen)

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.01.2004, 16:18   #2
TommyK
MOF Meister
MOF Meister
Standard

hopp

__________________

Gruss TommyK


TKSoft-Online | Beispiele im MOF Code-Archiv
Meine Software:Windows 10 Pro 64Bit, Windows 7 Ultimate 64Bit, Office 2003 Pro SP3, Office 2007 Pro SP2, Office 2010 Pro, VB6 Pro SP6, VS2008

TommyK ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.01.2004, 16:52   #3
J_Eilers
Threadstarter Threadstarter
MOF Guru
MOF Guru
Standard

@Tommy Schau mal ganz unten in meiner Signatur. So kann man das auch lösen

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.01.2004, 07:51   #4
heini
MOF Koryphäe
MOF Koryphäe
Standard

Guten Morgen Jan!

Ich habe mir mal dein Beispiel angesehen.
Soweit ich das vor dem Kaffee beurteilen kann , sieht das doch sehr gut aus.
Vor allen Dingen Beispiel und Erklärung sind so verfasst, daß doch (fast )
jeder das nachvollziehen kann.

Danke und 5 Points
heini ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.01.2004, 08:02   #5
J_Eilers
Threadstarter Threadstarter
MOF Guru
MOF Guru
Standard

Morgen Heini,

nach 500 Klicks und 90 DL's gibts tatsächlich mal Feedback Mal sehen ob die Erklärung für die Überarbeitung ebenso gut wird

__________________

Bis denn dann
Jan


FAQ | relationale Datenbanken | Grundlagen | DBWIKI | Josef's Access Seite | Meine Homepage und Access | Abhängigkeiten | Suchen und Nachschlagen | Tab2Web |
SQL-Codes bitte formatieren und als Code posten. Danke!

Bitte keine Fragen als PN! Probleme gehören ins Forum und mit Feedback kann man sie auch lösen.
J_Eilers ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 26.01.2004, 08:10   #6
heini
MOF Koryphäe
MOF Koryphäe
Standard

Naja,

wenn jeder fünfhundertste ein Feedback gibt, hast Du 2016 ein repräsentatives Ergebnis
heini ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 23.02.2004, 23:29   #7
acer2k
Neuer Benutzer
Neuer Benutzer
Top Thanx

Danke für die Anleitung.

Hat mir sehr bei einem kleinen Projekt geholfen.
acer2k ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 04.03.2004, 11:41   #8
berndl
MOF User
MOF User
Tipp Re: Suchen und Nachschlagen in Kombi und Textfeldern

Hi Jan,

ich bin leider noch ein schrecklicher Access-DAU und war die ganze Zeit auf der Suche nach einer solchen oder ähnlichen Abfrage.

So ganz habe ich es noch nicht geschnallt, bin aber hoffe ich auf dem besten Wege.

Vielen Dank für Deinen Beitrag.

Mit freundlichen Grüßen
Bernd

__________________

------------------
Gruss Bernd


Stammtisch Frankfurt http://www.ms-office-forum.net/forum...d.php?t=152700
berndl ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2004, 19:18   #9
Franko Mustacho
MOF User
MOF User
Standard

Lieber Jan,

ich hab Dein Beispiel jetzt mal getestet, allerdings tritt folgender Problemfall bei mir auf:

Ich habe ein Formular, welches optional entweder die Wahl aus vorhandenen DS (Dein Beispiel) oder die Eingabe neuer Daten zulassen soll.
Verwende ich nun das Beispiel und stelle ich die Formulareigenschaft DataEntry auf True - meckert er entweder rum das er .Find Record ni findet (logisch) oder sucht mir den richtigen DS raus hängt ihn aber erneut an die Tabelle dran - so das DS mehrfach vorkommen.

Wie kann ich nun realisieren, dass ich mittels eines Kombifeldes ENTWEDER neue DS eingeben kannn oder alte mit entsprechender ID raussuchen kann?

Viele Grüsse Frank
Franko Mustacho ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 17.04.2004, 17:53   #10
omron
MOF Profi
MOF Profi
Standard

Hallo Jan,

Einfach spitze!

Da kann auch ein Anfänger wie ich was damit anfangen.....

Gruß
Omron
omron ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.08.2004, 10:32   #11
VII
MOF User
MOF User
Standard

Hi

habe das Prob, dass wenn ich mehr spalten anfügen möchte mir access in meinen Textfelder anstatt

Code:

=DeinKombinationsfeld.Column(X)
das ausgibt

Code:

=[DeinKombinationsfeld].[Column](X)
auch, wenn ich es so wie oben gecodet eingegeben habe...

[VII]

EDIT: Geht doch...sry...

Geändert von VII (18.08.2004 um 10:48 Uhr).
VII ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.08.2005, 09:58   #12
danchou
MOF User
MOF User
Standard

die anleitung sieht nett aus nur leider kann ich mir das attachment nich laden :/
njo shit happens :P
danchou ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 02.10.2013, 08:45   #13
absi
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Jan

Ich wollte das Beispiel mit AC 07 öffnen, geht aber nicht da die Datei Schreibgeschützt ist.
Gibt es eine andere Möglichkeit?

Danke für die Info

Absi


[Edit] Mof-Team AD: Komplettes Zitat des ersten Beitrags wurde entfernt. [/Edit]

Geändert von Arne Dieckmann (02.10.2013 um 18:52 Uhr).
absi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:22 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.