VBA, Access Reports, einen Bericht mit WHERE abfra

Computer: Software & Programmierung Microsoft Access
#1

Hallo liebe VBA und Access FAN’s,

ich benötige Informationen für ein Problem das ich derzeit habe.

Ich habe mir eine kleine Datenbank erstellt die mir eine Stückliste ausgeben soll. Den Stücklisten Bericht habe ich auch schon erstellt. Nun habe ich in der Tabelle „Bestellungen“ verschiedene Fabrik-Nummern, Lieferanten, und halt Artikel_ID’s.

Das Problem:
Ich kann EIN Bericht mit einer WHERE Abfrage oeffnen. Der zeigt mir dann einen Lieferanten und die dazugehörigen Artikel an.

„Wie stelle ich es an einen Bericht mehrmals auf’s neue mit unterschiedlichen WHERE Abfragen zu öffnen“

Weshalb notwendig?
Für jede Fabrik-Nr. gibt es Lieferanten und für jeden Lieferanten soll ein Blatt ausgedruckt werden, welche Waren er liefern kann.

Vielen Dank im voraus

#2

Hallo,

Ich habe mir eine kleine Datenbank erstellt die mir eine
Stückliste ausgeben soll. Den Stücklisten Bericht habe ich
auch schon erstellt. Nun habe ich in der Tabelle
„Bestellungen“ verschiedene Fabrik-Nummern, Lieferanten, und
halt Artikel_ID’s.

Das Problem:
Ich kann EIN Bericht mit einer WHERE Abfrage oeffnen.

DAS ist das eigentliche Problem :wink:

Der Bericht zeigt mir dann einen Lieferanten und die dazugehörigen Artikel an.

„Wie stelle ich es an einen Bericht mehrmals auf’s neue mit
unterschiedlichen WHERE Abfragen zu öffnen“

Wie oben angedeutet, die Where-Condition (alle Kriterien) aus der Abfrage entfernen und den Bericht so erstellen, dass er strukturell ALLE Daten richtig anzeigt (Gruppierungen, Sortierungen, Seitenwechsel etc)

Sodann wird der Bericht aus einem Formular heraus geöffnet, indem in der Klick-Ereignisprozedur einer Schaltfläche die OpenReport-Methode mit Übergabe der Kriterien (Where-Condition) benutzt wird:

Sub btnDrucken_Click()
Docmd.OpenReport „rptStueckliste“,acpreview,"[Tabellenfeld] = " & Me!Textfeld1 '„Tabellenfeld“ hat den Datentyp „Long“
End Sub

Dabei steht in „Textfeld1“ im Formular der (numerische) Wert, nach dem der Bericht gefiltert werden soll.

Ist das Tabellenfeld von Datentyp Text, muß es so lauten:

Docmd.OpenReport „rptStueckliste“,acpreview,"[Tabellenfeld] = ‚" & Me!Textfeld1 & "‘"