OpenDocument erzeugt Fehler (Compile error - Sub or function not defined)

[nimora]

Hi,

wie oben beschrieben, bekomme ich einen Fehler bei einem simplen Befehl, ein Dokument aus Access (2016) zu öffnen.
In der Datenbank ist der Pfad und der Name des Dokuments bereits hinterlegt.

Code [Auswählen] Erweitern

OpenDocument Me.Dokumentpfad erzeugt dabei leider den obigen Fehler. ebenso

Code [Auswählen] Erweitern

GetOpenFilename

Ich habe dies aus einer meiner anderer DB's übernommen, in der es tadellos funktioniert.

Für ein paar Denkanstöße wäre ich dankbar.

VG

[DF6GL]

Hallo,

offensichtlich:

Compile error - Sub or function not defined

----> OpenDocument  und GetOpenFilename  existieren nicht.....

Ich habe dies aus einer meiner anderer DB's übernommen

---> offensichtlich ist das falsch. Vermutlich befinden sich die (Public-)Prozeduren in einem Standardmodul der funktionierenden DB.

[nimora]

Besten Dank für die Antwort.

Leider verstehe ich den Inhalt nicht.

was meinst du damit, dass es falsch ist? und ich kann die Aussage "befindet sich die PublicProzedur in einem Standardmodul" nicht einordnen.

Könntest du da noch etwas genauer werden?

Lieben Dank

[nimora]

habe die Lösung gefunden, es fehlte eine Funktion, die in der alten DB vorhanden war:

Code [Auswählen] Erweitern

Public Function OpenDocument(DocumentFile As String) As Long
    Dim ret As Long
    If Len(DocumentFile) > 0 Then
        ret = ShellExecute(Application.hWndAccessApp, "open", DocumentFile, vbNullChar, "", 1)
        If Err Then
            OpenDocument = 0
        ElseIf ret > 32 Then
            OpenDocument = -1
        Else
            OpenDocument = ret
        End If
    Else
        OpenDocument = 0
    End If
End Function