collapse

* Benutzer Info

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

* Wer ist Online

  • Punkt Gäste: 52
  • Punkt Versteckte: 0
  • Punkt Mitglieder: 0

Es sind keine Mitglieder online.

* Forenstatistik

  • stats Mitglieder insgesamt: 13702
  • stats Beiträge insgesamt: 62196
  • stats Themen insgesamt: 8474
  • stats Kategorien insgesamt: 5
  • stats Boards insgesamt: 16
  • stats Am meisten online: 415

Autor Thema: GetOpenFileNameA funktioniert nicht mehr in Access 2013  (Gelesen 71 mal)

Offline compinaut

  • Newbie
  • Beiträge: 42
GetOpenFileNameA funktioniert nicht mehr in Access 2013
« am: September 27, 2017, 15:18:16 »
Hallo,
in der Access Version 2010 benutzte ich die Windowsfunktion GetOpenFileNameA zum Öffnen des Dateidialogs. Dies funktionierte problemlos. Nun benutze ich die Access Version 2013 und die Funktion gibt NULL zurück, obwohl ich die Deklaration um PtrSafe erweitert habe. Die comdlg.dll ist auf dem Rechner auch vorhanden.
Kann mir vielleicht jemand helfen?
Gruß
compinaut
 

Offline Lachtaube

  • Access-Meister
  • ***
  • Beiträge: 728
Re: GetOpenFileNameA funktioniert nicht mehr in Access 2013
« Antwort #1 am: September 27, 2017, 16:04:43 »
aus der Win32API_PtrSafe.txt
Type OPENFILENAME
        lStructSize As Long
        hwndOwner As LongPtr
        hInstance As LongPtr
        lpstrFilter As String
        lpstrCustomFilter As String
        nMaxCustFilter As Long
        nFilterIndex As Long
        lpstrFile As String
        nMaxFile As Long
        lpstrFileTitle As String
        nMaxFileTitle As Long
        lpstrInitialDir As String
        lpstrTitle As String
        flags As Long
        nFileOffset As Integer
        nFileExtension As Integer
        lpstrDefExt As String
        lCustData As LongPtr
        lpfnHook As LongPtr
        lpTemplateName As String
'#if (_WIN32_WINNT >= 0x0500)
        pvReserved As LongPtr
        dwReserved As Long
        FlagsEx As Long
'#endif // (_WIN32_WINNT >= 0x0500)
End Type

Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Grüße von der (⌒▽⌒)
 
Folgende Mitglieder bedankten sich: compinaut