Aus Excel heraus Bericht in Access drucken?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Test() 'unter Verwendung von Verweis auf 'Microsoft Access 11.0 Object Library Dim accAPP As Access.Application Dim T Set accAPP = New Access.Application accAPP.OpenCurrentDatabase "C:\Test.mdb" For Each T In accAPP.CurrentDb.TableDefs Debug.Print T.Name Next T accAPP.CloseCurrentDatabase End Sub

Hallo Ihr beiden!
Danke Euch für die Hilfe und sorry, dass ich erst jetzt reagiere, aber ich war den ganzen Tag beschäftigt und kann mich erst jetzt wieder der Sache widmen.
Ich habe mich erst einmal für den Vorschlag von @Case entschieden. Der Funktioniert auch. Allerdings ergeben sich nun noch zwei Dinge, die ich vorher vergessen habe.
1. Die Datenbank ist mit einem Passwort gesichert. Wo muss ich nun das Passwort eintragen, damit die Datenbank geöffnet wird, ohne dass ich das Passwort eingeben muss?
2. Für den Bericht muss ich angeben von welcher ID bis zu welcher ID ich Daten in dem Bericht haben möchte. Im Moment geht jeweils nacheinander ein Dialogfenster auf, in dem ich diese Zahlen, also von und bis, eintragen muss. Meine Frage nun: Kann ich diese beiden Zahlen auch noch über den VBA-Code aus Excel mit übergeben?
Hier noch die beiden Dialogfenster zur Eingabe der ID-Nummern
Userbild

Ich hoffe, Ihr habt dafür auch noch einen Lösungsweg? Nochmal danke und Gruß,
Kasimir

Sub ParamAbfrage() Dim Datenbank As Database, Datensaetze As Recordset Dim von, bis von = 1 bis = 10 Set Datenbank = DBEngine.Workspaces(0).OpenDatabase("H:\DB\Lager.mdb") Datenbank.QueryDefs("Lagereingang Etikett").Parameters("von") = von Datenbank.QueryDefs("Lagereingang Etikett").Parameters("bis") = bis Set Datensaetze = Datenbank.QueryDefs("Lagereingang Etikett").OpenRecordset Sheets(1).[a1].CurrentRegion.Clear Sheets(1).[a1].CopyFromRecordset Datensaetze Worksheets(1).Activate End Sub

Hallo, :-)
Code in der Accessdatei:


Option Compare Database
Option Explicit
Sub Print_Bericht_Lagereingang(ByVal intStart As Integer, ByVal intEnde As Integer)
DoCmd.OpenReport "Etiketten Lagereingang", , , _
"[ID]>=" & intStart & _
" And [ID]

Code in der Exceldatei:


Option Explicit
' Pfad- und Dateiname anpassen
Const strFile As String = "C:\Temp\Lager_Dummy.mdb"
Dim blnTMP As Boolean
Public Sub Test()
Dim objApp As Object
On Error GoTo Fin
Set objApp = OffApp("ACCESS", False)
If Not objApp Is Nothing Then
With objApp
If Dir(strFile)  "" Then
.OpenCurrentDatabase strFile
' "Print_Bericht" gegebenenfalls anpassen
.Run "Print_Bericht_Lagereingang", 1, 20
Else
MsgBox "Datenbank " & strFile & "nicht vorhanden!"
End If
End With
Else
MsgBox "Applikation nicht installiert!"
End If
Fin:
If Not objApp Is Nothing Then
If blnTMP = True Then
objApp.Quit
blnTMP = False
End If
End If
Set objApp = Nothing
If Err.Number  0 Then MsgBox "Fehler: " & _
Err.Number & " " & Err.Description
End Sub
Private Function OffApp(ByVal strApp As String, _
Optional blnVisible As Boolean = True) As Object
Dim objApp As Object
On Error Resume Next
Set objApp = GetObject(, strApp & ".Application")
Select Case Err.Number
Case 429
Err.Clear
Set objApp = CreateObject(strApp & ".Application")
blnTMP = True
If blnVisible = True Then
On Error Resume Next
objApp.Visible = True
Err.Clear
End If
End Select
On Error GoTo 0
Set OffApp = objApp
Set objApp = Nothing
End Function

Wie Du die IDs übergibst ".Run "Print_Bericht_Lagereingang", 1, 20", also die 1 und die 20 bleibt Dir überlassen - entweder mit Range aus zwei Zellen oder Inputbox, oder....
Servus
Case

Beliebteste Forumthreads (12 Monate)

Aus Excel heraus Bericht in Access drucken?

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Excel heraus Bericht in Access drucken?

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

299 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread