Office: Abfr. aus Tabelle mit gleichen Felder in untersch. Datensäte

Hallo Ihr Lieben.
Habe lange ohne Hilfe gewurschtelt, aber jetzt ist es mal wieder soweit:
Ich habe eine Frage:
Also, in einer Grundtabelle habe ich mehrere Datensätze. Im ersten Feld, E-Teil Nr, zweiten Feld Bezeichnung und im dritten Feld ein Datum.
Nun tauchen in verschiedenen Datensätzen die gleichen E-Teil nummern auf, wobei dann auch die Bezeichnung gleich ist, nur das (Bestell)Datum ist anderst.
Ich möchte jetzt mit einer Abfrage Datensätze mit der selben E-Teil Nr anzeigen lassen.
Habe mir eine Abfrage gebastelt, mit der ich einfach nach E-Teil Nr suchekann [E-Teil Nr]. Da aber mehrere Datensätze die gleichen Werte stehen haben, bekomme ich nichts angezeigt.
Wer kann mir sagen, wie meine Abfrage aufzubauen ist???

Danke Euch schon jetzt für Eure Hilfe.

Gruß S.

 

Re: Abfr. aus Tabelle mit gleichen Felder in untersch. Daten

Also entweder ist es so offensichtlich, daß ich es nicht glauben kann, oder da ist noch ein Haken, den ich nicht sehe. Aber grundsätzlich sieht eine Such-Abfrage doch so aus:

Code:

SELECT
  [feld1], [feld2], ...
FROM
  tabelle1
WHERE
  [feld1] = suchwert1
;

Du brauchst doch also nur nach dem gewünschten Wert im Feld [E-Teil Nr] suchen.

Was hab ich jetzt übersehen?

Gruß, Michael

 

Komplizierte Abfrage

Ok, hab es wohl nicht so rübergebracht wie ich wollte.

Also, ich habe ein Hauptformular, aus dem ich mit einer Schaltfläche eine Abfrage (oder Filter oder was auch immer...) in einer entsprechenden Tabelle starten will, die etwa so aufgebaut ist:

ID E-Teil Nr Bezeichnung Menge Datum Lieferdatum Lieferschein

22 123456 Teil1 1 12.12.2008
23 456789 Teil23 5 18.12.2008
24 987654 Teil13 2 02.02.2009
25 654321 Teil11 3 07.03.2009
26 123456 Teil1 3 10.02.2009
.
.

Gesucht werden soll nach der E-Teil Nr um das Lieferdatum und die Lieferscheinnummer einzutragen, was dann in etwa so aussehen soll:

ID E-Teil Nr Bezeichnung Menge Datum Lieferdatum Lieferschein

22 123456 Teil1 1 12.12.2008 13.12.2008 0815
26 123456 Teil1 3 10.02.2009 14.02.2009 4711


So, hoffe jetzt, dass Ihr mir dazu helfen konnt.

Danke schonmal dafür.
Gruß S.

(Sorry, die Leerzeichen werden nicht abgebildet...deshalb hängt alles so dicht aufeinander)

 

Re: Komplizierte Abfrage

Hmmm... Ich seh noch immer nicht den Unterschied.

Code:

SELECT
  *
FROM
  tbl_Lieferungen
WHERE
  [E-Teil Nr] = '123456'
;

Liefert Dir genau die beiden Datensätze, die Du demnach brauchst.

Geht es Dir darum, nur die Datensätze anzuzeigen, wo Lieferdatum und / oder Lieferschein-Nummer noch nicht eingetragen sind? Das wären nur weitere Kriterien, die in der WHERE-Klausel mit AND bzw. OR angehängt werden können.

Wenn Du ein neues Formular öffnest und einen Filter brauchst, um nur die gewünschten Datensätze anzuzeigen, kannst Du die Variable stLinkCriteria (Parameter "Bedingung") mit dem Teil zwischen "WHERE" und ";" belegen. Im VBA sieht das dann irgendwie so ähnlich aus wie:

Code:

stlinkcriteria = "[E-Teil Nr] = '123456'"
docmd.openform frm_Lieferungen, , stlinkcriteria

Im VBA hast Du natürlich auch relativ leicht die Möglichkeit, das '123456' durch andere Werte zu ersetzen:

Code:

suchwert = "123456" '<--- hier gesuchten Wert bestimmen
stlinkcriteria = "[E-Teil Nr] = '" & suchwert & "'"

Ohne neu zu öffnendes Formular hast Du auch die Möglichkeit, mittels docmd.applyfilter / docmd.showallrecords die im aktuellen Formular angezeigten Datensätze einzuschränken.

Wenn Du den Block markierst und als "Code" formatierst (mit dem Button über dem Editor-Feld), dann bleiben Leerzeichen erhalten und durch die Festbreiten-Schrift ist auch spaltenmäßige Formatierung möglich.

Gruß, Michael

 

Komplizierte Abfrage

Hallo.
Danke für Deine Antwort...ist bei mir leider nur Bahnhof. Kann nix damit anfangen, ist wohl zu kompliziert für mich.
Werde wohl die Tabelle mittels Schaltfläche öffnen und mit Filter manuell arbeiten.

Danke nochmal.

Gruß S.

Kannst Du mir das auch so erklären, dass ich das auch umsetzen kann?
Ich hab keine Ahnung, wo ich deine Aufführungen einsetzen soll, hab bisher immer nur Abfragen mit dem Assistenten erstellt.
Möchte doch nur, dass eine Schaltfläche ein Eingabefenster öffnet, in dem ich meine E-Teil Nr eingebe und mit Enter oder OK einen Suchlauf nach den Datensätzen starte, die mir dann in Tabellenform angezeigt werden...
Da hier aber mehrere Datensätze angezeigt werden können, funktioniert das nicht so recht mit dem Assistenten

Weiter hab ich vergessen zu sagen, dass auch Buchstaben und Zahlen in den E-Teil Nr vorkommen...

 

Re: Komplizierte Abfrage

Ah, ok, jetzt wird's etwas konkreter... ;-)

Per Assistent wirst Du da, soweit ich weiß, nicht viel erreichen können. Aber der grobe Ablauf:

Im Haupt-Formular ist also ein Button, mit dem eine simple Input-Box geöffnet wird. Der Rückgabewert wird in einer Variablen strEteilSuche gespeichert. Somit hast Du nach dem Button-Druck in der Variablen die E-Teil-Nr, nach der Du suchen möchtest.

Code:

strEteilSuche = inputbox("Suche nach Nr.:", "Suche")

Dann kommt der 2. Schritt: Ein weiteres Formular wird geöffnet. Das Formular hat die gleiche Datenquelle wie das Erste, aber bevor es geöffnet wird, baust Du Dir noch den Filter zurecht:

Code:

stlinkcriteria = "[E-Teil Nr] = '" & suchwert & "'"

Jetzt wird das Formular B so geöffnet, daß nicht mehr alle Datensätze, sondern nur noch die gesuchten angezeigt werden.

Die vielleicht einfachste Methode, um das ganze zu verwirklichen:

a) Du brauchst zuerst beide Formulare. Das eine hast Du ja schon. Bastel Dir ein 2. für das Such-Ergebnis zusammen, in dem die Datensätze dann untereinander mit den notwendigen Informationen aufgelistet werden.

Im Entwurfs-Modus des Haupt-Formulars pack mal einen Button auf das Formular und geh durch den Assistenten, wähle dabei den Weg des "Formular öffnen", setz da aber noch keine Filter oder so.

Nach dem Assistenten machst Du rechte Maustaste auf dem Button und wählst "Ereignis". Es sollte der VBA-Editor erscheinen, der Cursor in einer Routine platziert sein, die ungefähr so aussieht:

Code:

Private Sub Befehl1_Click()
On Error GoTo Err_Befehl1_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "frm_Suche2"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Befehl1_Click:
    Exit Sub

Err_Befehl1_Click:
    MsgBox Err.Description
    Resume Exit_Befehl1_Click
    
End Sub

Die beiden (naja, ok, 3 insgesamt mit der DIM-Zeile...) Zeilen für den Aufbau des Filters fügst Du dann einfach am Anfang der Routine ein:

Code:

    [...]
    Dim stLinkCriteria As String
    dim steteilsuche as string

    steteilsuche = inputbox("suche nach nr.:", "suche")
    stlinkcriteria = "[E-Teil Nr] = '" & suchwert & "'"

    stDocName = "frm_Suche2"
    [....]

Das ganze ist jetzt zwar aus dem Stegreif und ungetestet, aber ich bin recht zuversichtlich. ;-)

Gruß, Michael