Access-o-Mania

Access-Forum (Deutsch/German) => Access-Hilfe => Thema gestartet von: Protonenjäger am Juni 01, 2011, 10:45:41

Titel: Accesnoob-Lagerverwaltung Suchfeld
Beitrag von: Protonenjäger am Juni 01, 2011, 10:45:41
Hallo
Meine Aufgabe ist eine Lagerliste für Laborchemikalien zu erstellen.
Die DB hab ich eigentlich hingekriegt, eine Haupttabelle (Originalbezeichnung, synonym,Summenformel,Artikelnummer) und 3 untertabellen (Lagerklasse,Lagerort,Lieferant)

Ziel ist es, dass die Mitarbeiter in den Labors ihre Chemikalien zuerst in diesem Lager suchen bevor sie es neu bestellen. Also die user müssen nur nach ihren Substanzen suchen können und sehen wo die Flasche denn steht. nix editieren oder hinzufügen.
Mir schwebt sowas wie eine Seite vor mit Suchfeld.Der Suchbegriff soll in zwei der Felder suchen (Originalbezeichnung,Synonym) und dem User dann eine Liste präsentieren.
Geht das?
Alle Suchbeispiele die gefunden habe, suchen nur pro feld

Danke
Titel: Re: Accesnoob-Lagerverwaltung Suchfeld
Beitrag von: DF6GL am Juni 01, 2011, 11:28:49
Hallo,

sicher geht das, z. B. etwa so:


Filterung des Formulars:

Me.Filter = "Originalbezeichnung  & '|' & Synonym Like '*" & Me!Suchfeld & "*'"
Me.FilterOn = true

Anzeige in einem Listenfeld:

Me!lstListe1. Rowsource= "Select * from Haupttabelle where Originalbezeichnung  & '|' & Synonym Like '*" & Me!Suchfeld & "*'"

Titel: Re: Accesnoob-Lagerverwaltung Suchfeld
Beitrag von: oma am Juni 01, 2011, 11:39:33
Hllo Jäger,

wie (fast) immer gibt es verschiedene Lösungsmöglichkeiten:

Eine Möglichkeit: ein ungebundenes Suchfeld im Formularkopf u. eine Button mt:

Private Sub Suchen_Click()
Dim strSQL As String

    strSQL = "SELECT Artikelnummer, Original, Synonym FROM DeineTabelle"
    strSQL = strSQL & " WHERE Original='" & suchfeld & "'" & " OR Synonym='" & suchfeld & "'"

Me.Form.RecordSource = strSQL

End Sub


Gruß Oma
Titel: Re: Accesnoob-Lagerverwaltung Suchfeld
Beitrag von: Protonenjäger am Juni 01, 2011, 16:26:16
danke leute das ging ja schnell, werd ich nach den festtagen ma testen

schönes wochenende.. ;D