Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: AccessReport_Close
Autor: ODO
Datum: 05.09.08 16:54
Aber ich arbeite doch mit CreateObject.............und im Task läuft nach dem beenden weiterhin MSACCESS.EXE.......... ' Objekt-Verweis auf Access Private oAccess As Object ' Access-Reportfunktion aus VB heraus aufrufen 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 .DoCmd.OpenReport sReportName, 2 Else .DoCmd.OpenReport sReportName End If End With AccessReport_Start = True Exit Function ErrHandler: ' Fehler! MsgBox "Fehler: " & CStr(Err.Number) & vbCrLf & _ Err.Descritpion AccessReport_Start = False End Function ' Access schließen und ' Objekt-Verweis zerstören Public Sub AccessReport_Close() On Error Resume Next oAccess.Quit Set oAccess = Nothing On Error Goto 0 End Sub Aufruf: ' Report starten AccessReport_Start App.Path & "\MyDB.mdb", "Daten-Liste" ' Und nach getaner Arbeit... AccessReport_Close

AccessReport_Close	871	ODO	03.09.08 17:52
Re: AccessReport_Close	655	Dieter	04.09.08 09:11
Re: AccessReport_Close	585	ODO	05.09.08 16:54
Re: AccessReport_Close	572	ODO	12.09.08 18:30

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

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen