collapse

* Benutzer Info

 
 
Willkommen Gast. Bitte einloggen oder registrieren. Haben Sie Ihre Aktivierungs E-Mail übersehen?

* Wer ist Online

  • Punkt Gäste: 86
  • Punkt Versteckte: 1
  • Punkt Mitglieder: 2
  • Punkt Benutzer Online:

* Forenstatistik

  • stats Mitglieder insgesamt: 13972
  • stats Beiträge insgesamt: 66528
  • stats Themen insgesamt: 8970
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 17
  • stats Am meisten online: 415

Autor Thema: OpenDocument erzeugt Fehler (Compile error - Sub or function not defined)  (Gelesen 69 mal)

Offline nimora

  • Access-Profi
  • **
  • Beiträge: 138
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.

OpenDocument Me.Dokumentpfad erzeugt dabei leider den obigen Fehler. ebenso 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
 

Online DF6GL

  • Global Moderator
  • Access-Oberguru
  • *****
  • Beiträge: 23340
Hallo,

offensichtlich:

Zitat
Compile error - Sub or function not defined
  ----> OpenDocument  und GetOpenFilename  existieren nicht..... ::)


Zitat
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.

Offline nimora

  • Access-Profi
  • **
  • Beiträge: 138
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
 

Offline nimora

  • Access-Profi
  • **
  • Beiträge: 138
habe die Lösung gefunden, es fehlte eine Funktion, die in der alten DB vorhanden war:

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