Hyperlink Problem bei access

Computer: Software & Programmierung Visual Basic
#1

Hallo ihr alle da draussen!

ich bin ein access-newbie :frowning:

mein Problem:

ich habe eine tabelle mit einem hyperlinkfeld, so in dieses feld möchte ich absolute pfadangaben eintragen das sind so 200 excel-files.
und um das nicht jeden monat von hand zu tun habe ich etwas vb geschrieben und dies tut aber nicht.

FileServerScanner = False
With Application.FileSearch
.NewSearch
.LookIn = Pfad
.SearchSubFolders = True
.FileName = „*.tif“
.FileType = msoFileTypeAllFiles
If .Execute() > 0 Then
FileServerScanner = True
'--------Ausgabe in ACSII-File ----------------------
Open „C:\output.txt“ For Output As #1
For i = 1 To .FoundFiles.Count
Write #1, .FoundFiles(i)
Next i
Close #1
'--------Ausgabe in ScanMan Tabelle -----------------
Set TableOutput = CurrentDb.OpenRecordset(„T ScanMan“,
dbOpenDynaset)
For i = 1 To .FoundFiles.Count
TableOutput.AddNew
'hlk(acDisplayedValue) = .FoundFiles(i)
'hlk(acDisplayText) = .FoundFiles(i)
'hlk(acAddress) = .FoundFiles(i) funktioniert so nicht !
TableOutput!Bezeichnung = .FoundFiles(i)
'TableOutput!Z_Hyperlink = hlk
TableOutput.Update
Next i
TableOutput.Close
End If
End With

der letzte teil des codes tut nicht. ich kriegs zwar einen pfad in die tabelle reingeschrieben doch dies ist dann nur der anzeigetext für den hyperlink, die adresse ist leer.

schon mal danke

mfg
alarm

#2

Hier ist nicht Access… Aber trotzdem:

Schreib mal:

TableOutput!Bezeichnung = .FoundFiles(i)
TableOutput!Z\_Hyperlink = .FoundFiles(i) & "#" & .FoundFiles(i)
TableOutput.Update

Ansonsten hat es sich bewährt, bei so etwas nicht mit Hyperlinkfeldern zu arbeiten, sondern mit normalen Textfeldern - dann kann man mit relativen Pfadangaben arbeiten und die Pfade (in der Anwendung) entsprechend ergänzen.

Gruß aus dem Norden
Reinhard Kraasch
(http://www.kraasch.de - VB(A) Tipps & Tricks)

#3

Vielen dank Reinhard :smile:

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]