Office: (Office 2016) VBA 2010 funktioniert / 2016 leider nicht

Helfe beim Thema VBA 2010 funktioniert / 2016 leider nicht in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo, ich nutze seit Jahren meine Datenbank. Nun muss ich dienstlich auf Access 2016 umsteigen und mein VBA-Tool läuft nicht mehr. Das Teil soll den... Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von pinie_pinie, 21. Mai 2019.

Seite 1 von 2

PINIE_PINIE

pinie_pinie

VBA 2010 funktioniert / 2016 leider nicht

Hallo,

ich nutze seit Jahren meine Datenbank. Nun muss ich dienstlich auf Access 2016
umsteigen und mein VBA-Tool läuft nicht mehr.
Das Teil soll den Pfad von Dokumenten in meine Datenbank einbinden. Mit dem Button "Dokument einfügen" wird der Pfad in das Formular abgelegt. Nun kann man sich mit dem Button "Ansicht" die Formulare ansehen. Es gibt sicher bessere Lösungen, aber ich bin kein Fachmann und möchte diese Lösung einfach weiter nutzen.
In Access 2016 passiert nach dem Klick auf "Dokument einfügen" nichts.
Kann jemand auf den ersten Blick erkennen woran es liegen könnte?

Ich habe ein Bild und den VBA-Code mit angefügt. Ich hoffe das ist so richtig.
Vielen Dank!!!!

Thoralf

:)

pinie_pinie, 21. Mai 2019

#1
JOSEF P.

Josef P.

Hallo!

Dein Code aus der Textdatei:
Code:

Private Sub Befehl2_Click()

On Error GoTo Fehler

Dim db As Database
Dim rs As Recordset
Dim DocPfad As String
Dim a As Variant

Set db = CurrentDb()
Set rs = db.OpenRecordset("Dokumente", dbOpenDynaset)

a = DateiOeffnen("C:", "Bitte Dokument auswählen:", "ALLE")
If IsNull(a) Or a = "" Then
Else
DocPfad = a
rs.AddNew
rs!DocPfad = DocPfad
rs!KndNr = Me.KndNr
rs.Update
End If
Me.UForm.Requery

rs.Close
db.Close

ende:
Exit Sub

Fehler:
MsgBox Err.Description, 16, "http://www.access-home.de"
Resume ende

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie weit wird der Code richtig ausgeführt, wenn du im Code einen Haltepunkt setzt und im Einzelschritt den Code abarbeiten lässt.
Falls der Code gar nicht anläuft: ist eventuell der Makroschutz aktiviert, und somit die Ausführung des Code nicht erlaubt?

mfg
Josef

Josef P., 23. Mai 2019

#2
KNOBBI38

knobbi38

Hallo,

möglicherweise an der Funktion DateiÖffnen(). Prüfe den den Inhalt der Variablen a nach dem Aufruf.

Ulrich

knobbi38, 23. Mai 2019

#3
PINIE_PINIE

pinie_pinie

VBA 2010 funktioniert / 2016 leider nicht

Hallo,

vielen Dank für Eure Hinweise.
Die Sicherheitseinstellungen für Makros sind ok.
In Access 2010 kommt nach klicken auf Button "Dokument einfügen" das Bild aus
der Anlage. In Access 2016 kommt nichts. Unten links wechselt nur das Feld "Formularansicht" in "Berechnung läuft". Dann steht wieder "Formularansicht".
Scheinbar kann der Code nicht auf die "Exploreranzeige" zugreifen, oder im Code ist was falsch.
Wie schon gesagt, da ich nicht der Fachmann bin, seht mir meine dürftigen Informationen nach.

Vielen Dank.

Thoralf

pinie_pinie, 23. Mai 2019

#4
REGINAR

ReginaR

Hi,
was genau steht denn in der Prozedur "DateiOeffnen"?
Poste doch mal den Code, sonst kann man das nicht nachstellen.
Gruß
Regina

ReginaR, 23. Mai 2019

#5
PINIE_PINIE

pinie_pinie

Hallo,

hoffentlich verstehe ich dich richtig.
Der gesamte Code steht doch oben (komplett) Post von Josef. Ich denke, die Zeile
a = DateiOeffnen("C:", "Bitte Dokument auswählen:", "ALLE")

erzeugt die Auswahl des Pfades. Da klicke ich die gewünschte Datei an und
der Pfad wird übernommen.

Thoralf

pinie_pinie, 23. Mai 2019

#6
REGINAR

ReginaR

... vielleicht ticke ich auch falsch, aber:
DateiOeffnen ist doch eine Sub der Parameterwerte übergeben werden. Diese Sub muss doch irgendwo mit ihrem Code stehen.
Such doch mal über "Bearbeiten" "Suchen" im gesamten Projekt nach DateiOeffnen. Da müsstest Du eigentlich auf eine Zeile stoßen:

Sub Dateioeffnen(....) as string

Gruß
Regina

ReginaR, 24. Mai 2019

#7
DRAMBELDIER

drambeldier

VBA 2010 funktioniert / 2016 leider nicht

Moin,

mit Verlaub: DateiÖffnen ist keine Sub, sondern eine Function - sie steht rechts vom Gleichheitszeichen ;-)

drambeldier, 24. Mai 2019

#8
ELMAR

elmar

Nun muss ich dienstlich auf Access 2016
umsteigen und mein VBA-Tool läuft nicht mehr.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur mal so gefragt: Handelt es sich eventuell um die neue 2016er Version um eine 64-Bit Variante?
Zitat aus der Seite von MS über Office 2016:
Die 64-Bit-Version von Office wird automatisch installiert, es sei denn, Sie wählen vor der Installation explizit die 32-Bit-Version aus.

elmar, 24. Mai 2019

#9
REGINAR

ReginaR

\@Ralf: Hast natürlich Recht, so viel zum Thema "Schnellschuss"*Smilie

ReginaR, 24. Mai 2019

#10
DERHOEPP

derHoepp

Was natürlich nix daran ändert, dass wir besagte Function immernoch nicht kennen.

derHoepp, 24. Mai 2019

#11
DRAMBELDIER

drambeldier

Hi Thoralf,

falls DateiÖffnen nicht mehr zu reparieren ist (könnte Uralt-Quark benutzen), dann steht heutzutage FileDialog bereit.

drambeldier, 24. Mai 2019

#12
PINIE_PINIE

pinie_pinie

VBA 2010 funktioniert / 2016 leider nicht

Hallo,

da ich wie schon erwähnt keine Ahnung von Codes usw. habe, musste ich anders testen.
Ich habe zwei Rechner mit Access 2016 ausprobiert. Beim Access 32bit funktioniert alles. Die 64 bit-Version geht nicht.

Ich habe gelesen, da soll es wohl Unterschiede geben. Ich füge noch einmal ein Code an. Diese Modul (M_Dialog) gehört wohl auch noch mit zur Funktion.
Kann es sein, dass es nicht funktioniert weil nur 32bit Befehle verwendet werden bzw. die 64 bit Version diese nicht versteht????

Vielen Dank.

Thoralf

Code:

Option Compare Database
Option Explicit

' Für Farbauswahl (einfache Variante, hier wird nur diese Deklaration benötigt)
Declare PtrSafe Sub wlib_AccChooseColor Lib "msaccess.exe" Alias "#53" (ByVal Hwnd As Long, rgb As Long)

' Datentyp definieren
Public Type BROWSEINFO
hOwner As Long
pidlRoot As Long
pszDisplayName As String
lpszTitle As String
ulFlags As Long
lpfn As Long
lParam As Long
iImage As Long
End Type

' Konstanten für "ulFlags"
Public Const BIF_RETURNONLYFSDIRS = &H1
Public Const BIF_DONTGOBELOWDOMAN = &H2
Public Const BIF_STATUSTEXT = &H4
Public Const BIF_RETURNFSANCESTORS = &H8
Public Const BIF_BROWSEFORCOMPUTER = &H1000
Public Const BIF_BROWSEFORPRINTER = &H2000

' API-Funktionen deklarieren
Declare PtrSafe Function SHGetPathFromIDList Lib "shell32.dll" _
Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Declare PtrSafe Function SHBrowseForFolder Lib "shell32.dll" _
Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long

Type ACB_OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
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 Long
lpfnHook As Long
lpTemplateName As String
End Type

Declare PtrSafe Function API_DateiOeffnen Lib "comdlg32.dll" Alias _
"GetOpenFileNameA" (pOpenfilename As ACB_OPENFILENAME) As Long

Declare PtrSafe Function API_DateiSpeichern Lib "comdlg32.dll" Alias _
"GetSaveFileNameA" (pOpenfilename As ACB_OPENFILENAME) As Long

Public Const OFN_ALLOWMULTISELECT = &H200
Public Const OFN_CREATEPROMPT = &H2000
Public Const OFN_ENABLEHOOK = &H20
Public Const OFN_ENABLETEMPLATE = &H40
Public Const OFN_ENABLETEMPLATEHANDLE = &H80
Public Const OFN_EXPLORER = &H80000 ' new look commdlg
Public Const OFN_EXTENSIONDIFFERENT = &H400
Public Const OFN_FILEMUSTEXIST = &H1000
Public Const OFN_HIDEREADONLY = &H4
Public Const OFN_LONGNAMES = &H200000 ' force long names for 3.x modules
Public Const OFN_NOCHANGEDIR = &H8
Public Const OFN_NODEREFERENCELINKS = &H100000
Public Const OFN_NOLONGNAMES = &H40000 ' force no long names for 4.x modules
Public Const OFN_NONETWORKBUTTON = &H20000
Public Const OFN_NOREADONLYRETURN = &H8000
Public Const OFN_NOTESTFILECREATE = &H10000
Public Const OFN_NOVALIDATE = &H100
Public Const OFN_OVERWRITEPROMPT = &H2
Public Const OFN_PATHMUSTEXIST = &H800
Public Const OFN_READONLY = &H1
Public Const OFN_SHAREAWARE = &H4000
Public Const OFN_SHAREFALLTHROUGH = 2
Public Const OFN_SHARENOWARN = 1
Public Const OFN_SHAREWARN = 0
Public Const OFN_SHOWHELP = &H10

Dim pOpenfilename As ACB_OPENFILENAME

Function DateiOeffnen(strVerzeichnis As String, strTitel As String, FilterArt As String) As String

Dim strFilter As String
Dim strDateinameUndPfad As String
Dim strDateiname As String
Dim lngErgebnis As Long

' Angebotene Dateifilter in der Dropdownliste "Dateityp"
Select Case FilterArt
Case "Access"
strFilter = "Access-DB (*.mdb; *.mde)" & Chr$(0) & "*.MDB; *.MDE" & Chr$(0)
Case "Wave"
strFilter = "Wav-File (*.wav)" & Chr$(0) & "*.wav" & Chr$(0)
Case "Wordvorlage"
strFilter = "Wordvorlage (*.dot)" & Chr$(0) & "*.dot" & Chr$(0)
Case "ALLE"
strFilter = "Alle Dateien (*.*)" & Chr$(0) & "*.*" & Chr$(0)
strFilter = strFilter & "Worddokument (*.doc)" & Chr$(0) & "*.doc" & Chr$(0)
strFilter = strFilter & "Exceltabelle (*.xls)" & Chr$(0) & "*.xls" & Chr$(0)
strFilter = strFilter & "Textdatei (*.txt)" & Chr$(0) & "*.txt" & Chr$(0)
strFilter = strFilter & "Acrobatdatei (*.pdf)" & Chr$(0) & "*.pdf" & Chr$(0)
strFilter = strFilter & "Bitmap (*.bmp)" & Chr$(0) & "*.bmp" & Chr$(0)
strFilter = strFilter & "GIF-Bild (*.gif)" & Chr$(0) & "*.gif" & Chr$(0)
strFilter = strFilter & "JPG-Bild (*.jpg)" & Chr$(0) & "*.jpg" & Chr$(0)
End Select

' Vorgegebenes Verzeichnis
If strVerzeichnis = "" Then
strVerzeichnis = CurDir$ & Chr$(0) ' Wenn leer, dann das aktuelle Verzeichnis verwenden
Else
strVerzeichnis = strVerzeichnis & Chr$(0) ' ANSI "0" an übergebenes Verzeichnis anhängen
End If

If strTitel = "" Then
strTitel = "Datei-Öffnen" ' Wenn kein Titel übergeben, Standardtitel festlegen
Else
strTitel = strTitel & Chr$(0) ' ANSI "0" an übergebenen Titel anhängen
End If

' Speicherplatz für Dateinamen & Pfad reservieren
strDateinameUndPfad = Space$(255) & Chr$(0)

' Speicherplatz für Dateinamen ohne Pfad reservieren
strDateiname = Space$(255) & Chr$(0)

'Datenstruktur von pOPENFILENAME festlegen

pOpenfilename.lStructSize = Len(pOpenfilename)
pOpenfilename.hwndOwner = 0&
'pOpenfilename.hwndOwner = Application.hWndAccessApp
pOpenfilename.lpstrFilter = strFilter
pOpenfilename.nFilterIndex = 1
pOpenfilename.lpstrFile = strDateinameUndPfad
pOpenfilename.nMaxFile = Len(strDateinameUndPfad)
pOpenfilename.lpstrFileTitle = strDateiname
pOpenfilename.nMaxFileTitle = Len(strDateiname)
pOpenfilename.lpstrInitialDir = strVerzeichnis
pOpenfilename.lpstrTitle = strTitel
pOpenfilename.flags = OFN_FILEMUSTEXIST Or OFN_PATHMUSTEXIST Or OFN_HIDEREADONLY
pOpenfilename.nFileOffset = 0
pOpenfilename.nFileExtension = 0
pOpenfilename.lCustData = 0
pOpenfilename.lpfnHook = 0
pOpenfilename.lpTemplateName = ""

lngErgebnis = API_DateiOeffnen(pOpenfilename)

If lngErgebnis 0 Then
DateiOeffnen = Left(pOpenfilename.lpstrFile, InStr(pOpenfilename.lpstrFile, Chr$(0)) - 1)
Else
DateiOeffnen = ""
End If

' If lngErgebnis 0 Then
' DateiOeffnen = Left(pOpenfilename.lpstrFile, pOpenfilename.nFileOffset - 1) & _
' "*" & Mid$(pOpenfilename.lpstrFile, pOpenfilename.nFileOffset + 1, _
' pOpenfilename.nFileExtension - pOpenfilename.nFileOffset - 1) & "*" & _
' Mid$(pOpenfilename.lpstrFile, pOpenfilename.nFileExtension + 1, Len(pOpenfilename.lpstrFile) - pOpenfilename.nFileExtension)
' Else
' DateiOeffnen = ""
' End If

End Function

Function DateiSpeichern(strVerzeichnis As String, strTitel As String, FilterArt As String) As String

Dim strFilter As String
Dim strDateinameUndPfad As String
Dim strDateiname As String
Dim lngErgebnis As Long

' Angebotene Dateifilter in der Dropdownliste "Dateityp"
Select Case FilterArt
Case "Access"
strFilter = "Access-DB (*.mdb; *.mde)" & Chr$(0) & "*.MDB; *.MDE" & Chr$(0)
Case "Wave"
strFilter = "Wav-File" & Chr$(0) & "*.wav" & Chr$(0) & Chr$(0)
Case "Wordvorlage"
strFilter = "Wordvorlage (*.dot)" & Chr$(0) & "*.dot" & Chr$(0)
End Select

' Vorgegebenes Verzeichnis
If strVerzeichnis = "" Then
strVerzeichnis = CurDir$ & Chr$(0) ' Wenn leer, dann das aktuelle Verzeichnis verwenden
Else
strVerzeichnis = strVerzeichnis & Chr$(0) ' ANSI "0" an übergebenes Verzeichnis anhängen
End If

If strTitel = "" Then
strTitel = "Datei-Speichern" ' Wenn kein Titel übergeben, Standardtitel festlegen
Else
strTitel = strTitel & Chr$(0) ' ANSI "0" an übergebenen Titel anhängen
End If

' Speicherplatz für Dateinamen & Pfad reservieren
strDateinameUndPfad = Space$(255) & Chr$(0)

' Speicherplatz für Dateinamen ohne Pfad reservieren
strDateiname = Space$(255) & Chr$(0)

'Datenstruktur von pOPENFILENAME festlegen

pOpenfilename.lStructSize = Len(pOpenfilename)
pOpenfilename.hwndOwner = 0&
'pOpenfilename.hwndOwner = Application.hWndAccessApp
pOpenfilename.lpstrFilter = strFilter
pOpenfilename.nFilterIndex = 1
pOpenfilename.lpstrFile = strDateinameUndPfad
pOpenfilename.nMaxFile = Len(strDateinameUndPfad)
pOpenfilename.lpstrFileTitle = strDateiname
pOpenfilename.nMaxFileTitle = Len(strDateiname)
pOpenfilename.lpstrInitialDir = strVerzeichnis
pOpenfilename.lpstrTitle = strTitel
pOpenfilename.flags = OFN_HIDEREADONLY Or OFN_OVERWRITEPROMPT
pOpenfilename.nFileOffset = 0
pOpenfilename.nFileExtension = 0
pOpenfilename.lCustData = 0
pOpenfilename.lpfnHook = 0
pOpenfilename.lpTemplateName = ""

lngErgebnis = API_DateiSpeichern(pOpenfilename)

If lngErgebnis 0 Then
DateiSpeichern = Left(pOpenfilename.lpstrFile, InStr(pOpenfilename.lpstrFile, Chr$(0)) - 1)
Else
DateiSpeichern = ""
End If

' If lngErgebnis 0 Then
' Speichern = Left(pOpenfilename.lpstrFile, pOpenfilename.nFileOffset - 1) & _
' "*" & Mid$(pOpenfilename.lpstrFile, pOpenfilename.nFileOffset + 1, _
' pOpenfilename.nFileExtension - pOpenfilename.nFileOffset - 1) & "*" & _
' Mid$(pOpenfilename.lpstrFile, pOpenfilename.nFileExtension + 1, Len(pOpenfilename.lpstrFile) - pOpenfilename.nFileExtension)
' Else
' Speichern = ""
' End If

End Function

Function VerzeichnisDialog(Optional strMeldung) As String

' -------------------------------------------------------------------
' Dialogfeld zur Verzeichnisauswahl anzeigen und
' gewählten Pfad zurückgeben
' -------------------------------------------------------------------

Dim bInfo As BROWSEINFO
Dim strPath As String
Dim lngRueckgabe As Long
Dim lngItemID As Long
Dim intPos As Integer

' "Desktop" als oberste Ebene
bInfo.pidlRoot = 0&

' Die gewünschte Meldung einsetzen oder Standard verwenden
If IsMissing(strMeldung) Then
bInfo.lpszTitle = "Bitte wählen Sie einen Ordner aus:"
Else
bInfo.lpszTitle = strMeldung
End If

' Flag setzen
bInfo.ulFlags = BIF_RETURNONLYFSDIRS

' Auswahl-Dialog anzeigen
lngItemID = SHBrowseForFolder(bInfo)

' Ergebnis in Pfad umwandeln
strPath = Space$(512)
lngRueckgabe = SHGetPathFromIDList(ByVal lngItemID, ByVal strPath)
If lngRueckgabe Then
intPos = InStr(strPath, Chr$(0))
VerzeichnisDialog = Left(strPath, intPos - 1)
Else
VerzeichnisDialog = ""
End If

End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

pinie_pinie, 24. Mai 2019

#13
ELMAR

elmar

Beim Access 32bit funktioniert alles. Die 64 bit-Version geht nicht.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Kann auch nicht klappen, 64-Bit Versionen erfordern Änderungen im Code. Wie hier nachzulesen ist.

elmar, 24. Mai 2019

#14
PINIE_PINIE

pinie_pinie

Hallo,

da habe ich endlich einen Ansatzpunkt.
Wäre es vermessen zu fragen, ob mir einer den Code auf 64bit umschreiben kann? Oder kann man den Code so anpassen, dass er für beide Varianten geht?

Ich verstehe die Sache zwar, weiss aber nicht welche Befehle konkret geändert werden müssen.

Auf alle Fälle vielen Dank für Eure Hinweise.

Thoralf

pinie_pinie, 24. Mai 2019

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 2

Thema:

VBA 2010 funktioniert / 2016 leider nicht

Die Seite wird geladen...

VBA 2010 funktioniert / 2016 leider nicht - Similar Threads - VBA 2010 funktioniert
Schließen von mehreren Datein
in Microsoft Excel Hilfe
Schließen von mehreren Datein: Hallo Zusammen! Ich bin gerade dabei via VBA einen Code zu erstellen um beim öffnen eines Excel (MainDatei) immer ein weiteres (zweite Datei) zu öffnen. Sowie beim schließen der "MainDatei" ein...
Teams-Gruppen-Call/Chat per VBA
in Microsoft Excel Hilfe
Teams-Gruppen-Call/Chat per VBA: Hallo VBA-Profis, aus einer XLS/VBA-Anwendung zur Verwaltung von Projektbeteiligten, will ich per Button die Kommunikation mit selektierten Kontakten starten (Call/Chat). Für einzeln selektierte...
Excel-Adressliste mit Bild
in Microsoft Excel Hilfe
Excel-Adressliste mit Bild: Halten Sie die Adressliste mit den Bildern der Kontakte für hilfreich? Ich habe ein Benutzerformular erstellt, um Informationen wie Name, Telefonnummer und Adresse von Personen zu speichern....
Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen
in Microsoft Excel Hilfe
Excel 2010/VBA: Dateinamen auslesen & von beiden Seiten kürzen: Hallo zusammen, mein Chef hat mich gebeten, eine Excel Datei zu erstellen, in der sämtliche Dateinamen ohne überflüssige Komponenten (sämtliche Namensteile vor dem letzten "_") sowie ohne...
Excel VBA Ferien und Feiertage aus dem Netz laden und darstellen
in Microsoft Excel Hilfe
Excel VBA Ferien und Feiertage aus dem Netz laden und darstellen: Hallo Mitstreiter, erst mal guten morgen und noch kann man es ja sagen, "Ich hoffe ihr seid gut reingerutscht" :-) Ich habe mal wieder ein VBA Problem (und VBA wahrscheinlich auch langsam...
Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren
in Microsoft Excel Hilfe
Textboxeingabe mit dem Wert in der dazugehörigen Zelle addieren: Guten Abend, ich bin VBA Neuling und habe mir durch goggeln das ein oder andere Skript zusammengestellt. Jetzt komme ich aber an meine Grenzen. Ich habe in einer Userform eine Listbox, die aus...
VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change)
in Microsoft Excel Hilfe
VBA - Fehler beim Kompilieren (Mehrdeutiger Name - Worksheet_Change): Hallo Zusammen, wer kann mir helfen? Ich möchte/muss die nachfolgenden Codes irgendwie Zusammenführen weil die Prüfung augenscheinlich so nicht funktioniert. Ansich der selbe Code mit...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden