Hey hallo, hab mal ne Frage!
Wäre schön, wenn mir jemand helfen kann!
Will vonn VB auf bestehende Access Reports zugreifen!
das klappt auch mit dem folgenden Funktion:
Jetzt meinde Frage: Wie kann ich meine Funktion mit einer sql Abfrage erweitern wenn er
nur bestimmte datensätze drucken soll? ( wie übergebe ich SQL abfrage zum report)
aufrufen tue ich die funktion so :
wobei ausgewählter_Pfad mein Pfad ist : Z.b: "C:\test\1.mdb"
Sammeldruck so heißt der reportAccessReport_Start ausgewählter_Pfad, "SammelDruck"
Public Function AccessReport_Start( _
ByVal sDBFile As String, _
ByVal sReportName As String, _
Optional ByVal bPreview As Boolean = True) As Boolean
' Fehlerbehandlung einschalten
' (z.B. falls Access nicht installiert)
' On Error GoTo ErrHandler
' Access-Objekt erstsllen
Set oAccess = CreateObject("Access.Application")
With oAccess
' Datenbank öffen
.OpenCurrentDatabase filepath:=sDBFile
' Report drucken (bzw. Vorschau erstellen)
If bPreview Then
.Visible = True
sql = "Select * from scanverlauf where [Name]=1"
.DoCmd.OpenReport sReportName, 2
Else
sql = "Select * from scanverlauf where [Name]=1"
.DoCmd.OpenReport sReportName
End If
End With
AccessReport_Start = True
Exit Function
End Function
Zum Seitenanfang