| |

Allgemeine DiskussionenBericht in Access von VB aus öffnen | |  | Autor: Azrael24 | Datum: 02.07.02 07:21 |
| Servus!
Ich versuche gerade einen Bericht den ich bereits in Access erstellt habe von VB aus zu öffnen.
ich habs mit folgendem Code versucht,aber da druckt er mir nur immer den Bericht sofort aus und das will ich aber net, ich will ihn nur mal anschauen und dann bei Bedarf ausdrucken.
Dim acapp As New Access.Application
Dim name As String
acapp.Visible = True
acapp.OpenCurrentDatabase "d:Projektlks.mdb"
name = "Bericht1"
acapp.DoCmd.OpenReport name, acViewNormal
acViewDesign zeigt er mir ca für ne Sekunde den Bericht und macht dann gleich wieder alles zu. Wie kann ich den Bericht sonst öffnen?
Und gibt es noch ne Möglichkeit das ich dem Bericht nen neue Datenherkunft zuweise(die gleichen Daten - das Design bleibt also komplett gleich, nur zb ein anderes Kriterium - eine bestimmte Re-Nr oder so)
Das ist derzeit der SQL-Code für alle Rechnungen anzeigen, wie kann ich den weitergeben an den Bericht und dann öffnen erstmal nur zum anschauen.
SELECT tblKundendaten.Firma1, tblKundendaten.Firma2, tblKundendaten.Strasse, tblKundendaten.Land, tblKundendaten.PLZ, tblKundendaten.Ort, tblKundendaten.KdNr, tblRechnungen.ReNr, tblRechnungen.Datum, tblRechnungen.Netto, tblRechnungen.UST, tblRechnungen.Brutto, tblRePositionen.LFNr, tblRePositionen.Positionsnr, tblRePositionen.Datum, tblRePositionen.Preis, tblRePositionen.ReNr, tblFahrzeuge.FZNr, tblFahrzeuge.FZID
FROM tblFahrzeuge, (tblKundendaten INNER JOIN tblRechnungen ON tblKundendaten.KdNr = tblRechnungen.KDID) INNER JOIN tblRePositionen ON tblRechnungen.ReNr = tblRePositionen.ReNr
WHERE (((tblKundendaten.KdNr)=[tblRechnungen.KDID]) AND ((tblRePositionen.ReNr)=[tblRechnungen.ReNr]) AND ((tblFahrzeuge.FZID)=[tblRePositionen.FahrzeugID]))
ORDER BY tblRechnungen.ReNr, tblRePositionen.Datum;
Vielen Dank für Tipps!!!
Greetings
Azrael |  |
 | Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
Einloggen | Neu registrieren |
  |
|
sevWizard für VB5/6 
Professionelle Assistenten im Handumdrehen
Erstellen Sie eigene Assistenten (Wizards) im Look & Feel von Windows 2000/XP - mit allem Komfort und zwar in Windeseile :-) Weitere InfosTipp des Monats Oktober 2025 Matthias KozlowskiUmlaute konvertierenErsetzt die Umlaute in einer Zeichenkette durch die entsprechenden Doppelbuchstaben (aus ä wird ae, usw.) TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 EURWeitere Infos
|
|
|
Copyright ©2000-2025 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|