Office: (Office 2010) "Suchformular" erstellen

Hallo zusammen,

ich fange gerade mit einer einfachen Datenbankanwendung an, wozu ich aber einige Fragen hätte. Ich fang einfach mal an:

Ich habe eine Tabelle Mitarbeiter mit den folgenden Feldern:
- MitarbeiterID (Autowert)
- Personalnummer (Text)
- Vorname (Text)
- Nachname (Text)
- Foto (Anlage)

Daraufhin habe ich eine Abfrage für die Tabelle mit allen Feldern erstellt.

Nun erstelle ich ein Formular mit der Abfrage als Datensatzherkunft. Ich ziehe also Felder in mein Formular und platziere sie irgendwie. Hierzu eine Frage: Das Feld MitarbeiterID ist für den Anwender eher uninteressant. Daher war meine Idee die Breite für das Textfeld auf 0 zu setzen, so dass der Anwender das Feld nicht mehr sieht. Oder kann man auch ganz darauf verzichten, dass Feld in das Formular einzufügen? Und falls ja, warum? Wie wird dann gewährleistet, dass ein neuer Datensatz, der im Formular eingegeben wird, auch eine MitarbeiterID erhält?

Im Formular habe ich außerdem drei Schaltflächen, um einen neuen Datensatz hinzuzufügen, einen Datensatz zu speichern oder zu löschen.

Jetzt kommt die Frage zur "Suchmaschine".

Man könnte ein Listenfeld mit einigen Feldern aus der Tabelle Mitarbeiter erstellen (z.B. MitarbeiterID (Breite 0), Vorname und Nachname), so dass man durch Klicken auf den Vornamen & Nachnamen in der Liste auf den entsprechenden Datensatz springt, wo dann auch die restlichen Felder zum Mitarbeiter stehen (wie z.B. Personalnummer und Foto).

Das geht bei wenigen Mitarbeitern vielleicht noch gut. Könnte man nicht eine "Suchmaschine" erstellen, die so ähnlich wie Google funktioniert?

Ich gebe in die Suche Personalnummer, Vorname und/oder Nachname ein, wodurch die Anzahl der auswählbaren Mitarbeiter verkleinert wird.

Also meine Idee ist ein Listenfeld, wo man durch Klicken einen Datensatz abrufen kann mit einer "Suchmaschine" zu kombinieren.

Vielleicht gibt es ja noch bessere Ideen.


Vielen Dank schon mal für die Antworten!


Viele Grüße,
Stephanjap

:)

 

Moin,

dazu braucht's ein Kombinationsfeld namens Suchfeld und ein wenig Code dahinter:
Code:

Mein Suchfeld ist ungebunden und hat 4 Spalten: Mitglied, Name, Vorname, Geburtsdatum. Die ID Mitglied zeige ich dabei im Suchfeld nicht an.

Auf dem Formular sollte die ID aber zu sehen sein, wenn auch nicht eingabefähig.

Gruß
Ralf

 

Moin,

Lass das Feld drin und stell es in den Eigenschaften (Reiter Format) auf unsichtbar.
Dann kannst du dich bei vielen Aktionen einfach darauf beziehen (Löschen etc.)

Das geht auch, allerdings nur mit etwas mehr Programmierung. Vielleicht reicht dir ja schon ein Kombifeld zur Auswahl/Suche, wenn du da die Mitarbeiter beispielsweise nach Nachname sortiert drin hast, dann springt das Kombi bei Eingabe von "m" automatisch auf den ersten "Maier" ...

maike

 

Danke für die Antworten! Kombibox ist eher unhandlich, weil das sehr viele Datensätze werden sollen. Daher bin ich auf der Suche nach einer anderen Lösung.

Wie viel Programmieraufwand wäre das denn? Leider kenn ich mich mit VBA nicht aus. Gibt es trotzdem eine "einfache" Lösung?

LG, Stephanjap

 

Du hast ein Endlosformular, in dem du alle Datensätze siehst.
Im Kopfteil legst du für jedes Feld in dem du suchen willst ein ungebundenes Feld an, z.b.
fldVorname, fldNachname
dazu einen Button "suchen", bei dem dann folgender Code ist

Code:

So werden dann nur noch die zutreffenden Datensätze angezeigt.
mit dem eingebauten * (Stern) lässt sich auch nach Teilbegriffen suchen, z.b. 'meier' gibt alle Meier und auch z.b. Lachenmeier aus
Geschickterweise machst du dann noch einen Button, der den Filter löscht ...

 

Den von Jean gezeigten Filter kannst du im Prinzip auch für ein Listenfeld erstellen, da würde ich dann die Datenherkunft (Abfrage) neu setzen mit sFilter als WHERE-Teil.
maike

 

>> Kombibox ist eher unhandlich

das sehe ich nicht so, man kann das ja so einstellen, dass es anhand der eingegebenen Buchstaben gleich in die Gegend vorzieht (Autovervollständigen, glaube ich). Mit "Mü" lande ich alo bei Mühsam, Müller, Mürtner ...

 

Funktioniert aber nur für ein Feld auf einmal und nur von vorne beginnend. Gerade bei Personensuchen hat man oft das Problem, dass man die genaue Schreibweise nicht kennt. So kann in einen Filterfeld (wie oben von mir beschrieben) z.b. auch M*er eingegeben werden um Meier, Meyer, Maier und Mayer zu finden ...

 

Hallo

um dein Wunsch richtig zu verstehen:
möchtest Du z.B. in einem Endlos Formular auf den entsprechende DS springen
das heist SUCHEN
oder alle mit den angegebenen Name/vornaben Anzeigen
das währe dan FILTERN

ich habe hier Eini Muster MDB

https://dl.dropboxusercontent.com/u/...erSort2003.zip

alle Fomulare amanfang mit FrmASuche... SUCHEN

die ander FILTERN z.B.: FrmKundenListe03 ist ein Beispiel

 

So werden dann nur noch die zutreffenden Datensätze angezeigt.
mit dem eingebauten * (Stern) lässt sich auch nach Teilbegriffen suchen, z.b. 'meier' gibt alle Meier und auch z.b. Lachenmeier aus
Geschickterweise machst du dann noch einen Button, der den Filter löscht ...

Also ich habe mal den Code eingefügt, aber er funktioniert bei mir noch nicht.

Ich bin wie folgt vorgegangen:

Auf Basis der Tabelle Mitarbeiter habe ich eine Abfrage erstellt mit den Feldern MitarbeiterID, Vorname, Nachname und Personalnummer. Bis auf MitarbeiterID (Autowert) haben alle Felder den Feldtypen Text.

Anschließend hab ich also ein Endlosformular erstellt mit der Abfrage als Datensatzherkunft und habe 3 ungebundene Textfelder sowie 2 Schaltflächen (je eins für "Suchen" und "Filter löschen") erstellt.

Schließlich habe ich den Code von dir übernommen für die Schaltfläche "Suchen" beim Ereignis "beim Klicken".

Bei mir kam dann folgender Fehler:
Dieser Fehler tritt auf, wenn ein Ereignis nicht ausgeführt werden konnte, weil der Speicherort der Logik für das Ereignis nicht ausgewertet werden kann. Falls z. B. die OnOpen-Eigenschaft eines Formulars auf =[Field] festgelegt ist, tritt dieser Fehler auf, weil die Ausführung eines Makros oder Ereignisnamens erwartet wird, wenn das Ereignis auftritt.


Mein Code-Feld sieht so aus..

Edit
Ich habe beim Code das "End Sub" in Zeil 2 entfernt... war das vielleicht für den obigen Fehler verantwortlich?
Jetzt kommt aber der Laufzeitfehler 13 mit Typen unverträglich

 

Hallo
möglich das der Fehler hier ist:

Wenn personalnummer eine Zahl ist
dann muss die nicht in ' stehen also evtl. so
sFilter = sFilter & "personalnummer like *" & fldPersonalnummer & "* "

das End Sub würde ich auch wieder einfühgen

das Du nicht Probleme hast mit Filter und/oder Wehre bedingungen zu erstellen
Lies einmal in der OH (OnlineHilfe) oder in meiner Doc s. Fusszeile unten rechts
zu Buildcriteria
in meiner Doc Seite 73 -76
5.3.13 Where-Bedingung mit BuildCriteria erstellen
Spz. für Datum 297
10.19.26 Kriterien für Datum Vergleich (Filter) mit BuildCriteria erstellen

 

Moin,

Laufzeitfehler 13: Nicht deklarierte Variablen bekommen einen Datentyp, den Du evtl. nicht gebrauchen kannst. In die zweite Zeile gehört Option Explicit, und zwar immer! Damit werden Dir nicht deklarierte Variablen gezeigt.

Anstatt fldbezeichnung fldVorname, vermute ich.

Auf numerische Felder mit LIKE zu Filtern ist übrigens sinnlos.

Gruß
Ralf

 

Die Syntax stimmt auch noch nicht, z.B. hier:
Code:

Setz mal hier ein Debug.Print,
Code:

dann kannst du dir den fertig zusammengebauten Filterstring im Direktfenster ansehen (Strg + g) und ggfls. hier posten.
maike

 

Hallo
im weiteren würde ich Dir entfehlen
eine Fehler Behandlung nach diesem muster in dein Code ein zu bauen:

Code:

Ersetze alle DMuster mit dem namen Deiner Sub/Function

der hinweis von maikek mit debuge.print ist schon einmal Sehr GUT



anstelle von:

If Not IsNull(Me.fldNachname) Then

könntest DU auch das Schreiben :
If Len(Trim$(Nz(Me.fldNachname))) < 1 Then
' Ist NULL oder Leerschlag was bel formular felder nicht das gleiche ist
Else
' ist ok für Filter
EndIf
mehr dazu in meiner Doc
Seite 236
9.1.1 Unterschied zwischen NULL (““) und Leerschlag (“ “)

 

\@Lanz Rudolf:

Ich habe mir deine DB angesehen. Das Formular frmASucheKundenNachKdNr kommt dem nah was ich suche.

Ich erstelle für die Mitarbeiter also einfach ein Endlosformular und filter nach einem Kriterium (bei mir könnte das für unterschiedliche Felder sein, wie z.B. Vorname, Nachname, Personalnummer, was sich ja durch weitere Textfelder problemlos ergänzen lassen sollte... oder?)


Kannst du mir aber nochmal genau erklären, wie ich das ganze, so wie bei deiner DB hinkrieg und worauf ich acht geben muss?
Ich copypaste eure Lösungen immer, aber bei mir klappt das ganze das häufig nicht...


Viele Grüße,
Stephanjap