[Access] Access bleibt hängen bei Hyperlink einfügen

[Anojo]

Hi alle,

hab das Problem wenn ich folgenden Befehl nutze, dass es ewig braucht um ein Ordner weiter zu kommen...

   Me!Ordner.SetFocus
    DoCmd.RunCommand acCmdInsertHyperlink

Das Fenster öffnet sich zwar aber wenn ich mich durch die Ordnerstruktur durchklicke, muss ich pro Ordner min 3 Minuten warte bis Access wieder reagiert.

Das ganze ging bis Anfang vom Jahr ohne Probleme aber jetzt auf einmal nicht mehr...
Hat jemand eine Idee woran es liegen könnte?

Gruß, Toni

 

[Yaslaw]

Was ist denn Me!Ordner für ein Feld?

Und willst du ein Hyperlink oder einfach eine Dateiadresse einfügen?

 

[Anojo]

Ordner ist das Feld wo er es rein schreibt.

Ich möchte ein Ordner verlinken

 

[Yaslaw]

Ich habe noch nie mit dem acCmdInsertHyperlink gearbeitet.
Ich arbeite jeweils mit Application.FileDialog(msoFileDialogFolderPicker)

Ich habe vor einiger Zeit diese FUnktion gekapselt, um sie bedinungsfreudnlicher zu machen: VBA getFolderDialog()
Und so würde ich die Funktion anwenden

Me!Ordenr = getFolderDialog()

 

[Anojo]

Danke schon mal...

Bekomm aber bei dem Teil ein Fehler.

Dim fldR As FileDialog

Hab ich was vergessen?

 

[Yaslaw]

SOrry, hab vergessen dazuzuschreiben.
Du musst noch eine Referenz auf "Microsoft Office.. Object Library" setzen

 

[Anojo]

Ok und wie mach ich sowas?

Bin nicht so der VBA experte

 

[Yaslaw]

Keine AHnung wie das auf deutsch heisst. Im englischen:

Im Code-Editor auf Menu Tools->References.
Dort scrollst du auf die oben genannte Object Library und setzt an Hacken davor

 

[Anojo]

Cool Danke das funktioniert schon mal...

Kann ich da auch ein absoluten Pfad angeben?

 

[Yaslaw]

Probieren geht über studieren...

Ansonsten setzt du eine Referenz auf "Microsoft Scripting Runtime". Dann kannst du mit dem FileSystemObject arbeiten

Set fso = new FIleSystemObject

absolutePath = fso.GetAbsolutePathName(relatviePath)