Office: (Office 2019) Übergabe von Variablen

Das hatte ich auch schon gesehen, da deine Defination ja auch Dokument heißt. Um sicherzugehen hatte ich das auch "kopiert" aus deinem Quelltext. Sie jetzt so aus


'String zusammenstellen
str = "winword.exe " & Pfad & "\" & Dokument
'Aufrufen

Aber leider die gleiche Fehlermeldung. Auch nach schließen und neustarten der DB.
Auch
'Dokument aufrufen
Dokument = Nz(DLookup(Dok, "tbl_Dokumente", "dID = " & Dok), "")
in
'Dokument aufrufen
Dokument = Nz(DLookup("Dok", "tbl_Dokumente", "dID = " & Dok), "")

zu ändern bringt nichts. Also habe ich das wieder rausgenommen. nun wieder ohne Anführungszeichen.

Für mein geringes Verständnis bastelt er die Variable nicht richtig zusammen. Selbst wenn ich & Dok durch z.B. 17 ersetze kommt die gleiche Fehlermeldung. Liegeich da mit meiner Vermutung richtig?

 

In Ergänzung dazu: Gebe ich ein Aufruf 22 und es gibt kein Dokument 22 , springt er richtigerweise in die Fehlermeldung und sagt es gibt kein Dokumnet mit der ID 22.

So sieht mein Code nun aus:

Private Sub Aufruf(Dok As Long)
On Error GoTo Fehler
Dim str As String, Pfad As String, Dokument As String

'Pfad aufrufen
Pfad = Nz(DLookup("SysVarDokumentenpfad", "tbl_Systemvariablen", "SysVarNummer = 1"), "")

If Pfad = "" Then
MsgBox "Es wurde keine Pfadangabe gefunden", vbCritical, "Datenfehler"
Exit Sub
End If

'Dokument aufrufen
Dokument = Nz(DLookup(Dok, "tbl_Dokumente", "dID = " & Dok), "")

If Dokument = "" Then
MsgBox "Es wurde kein Dokument mit der ID " & Dok & " gefunden", vbCritical, "Datenfehler"
Exit Sub
End If

'String zusammenstellen
str = "winword.exe " & Pfad & "\" & Dokument
'Aufrufen
Call Shell(str, 1)

Ende:
Exit Sub
Fehler:
MsgBox Err.Number & Err.Description
Resume Ende
End Sub
Private Sub EinleitungVermerk_Click()
Aufruf 1
End Sub

Ja meine tbl haben einen Unterstrich. Fehlermeldung wie bereits oben beschrieben: Leider konnte 'U:\Versich.....\1' nicht gefunden werden. Ist es möglich, dass der Pfad....wurde?

 

Hm,
dann setze doch mal eine Haltemarke auf die Zeile Call Shell(str, 1) und lass Dir Anzeigen, was genau in str steht.
Oder schreibe in der Zeile darüber Debug.Print str, dann wird es ins Direktfenster geschrieben.
Und wie viele Dokumente sind in Deiner tblDokumente? Wenn es keine 22 Dokumente sind, dann kann ein Aufruf
mit der dID nur einen Fehler hervorrufen.

 

Sorry, war einkaufen.
Im Direktfenster steht
winword.exe U:\56\Versicherungsamt\OwiG\Dokumente\1
wie in der Fehlermeldung auch.
Mit der 22 war absichtlich falsch zum Testen.

 

versuche es mal mit Dokument = Nz(DLookup("Dok", "tbl_Dokumente", "dID = " & Dok), "")
und str = "winword.exe '" & Pfad & "\" & Dokument & "'"