Hallo !
Meine Kollegin und ich arbeiten an einem Access-Projekt.
Das ist das erstemal, wo wir „richtig“ damit zu tun bekommen.
Mein Problemstellung ist relativ schwierig; also:
Wir haben eine Datenbank, in welcher Links zu Bildern auf nem
Laufwerk hinterlegt sind. Wir möchten nun über Buttons in einem
Formular die Bilder aufrufen. (via Mime-Type wird dann ein Viewer
gestartet). Dazu rufen wir via VBA wie gefolgt die datenbank ab, und lesen die links und die beschreibung in ein array vom typ VARIANT ein:
[…]
Dim link as variant
link = array („1“,„2“,„3“,„4“)
[…]
DoCmd.OpenForm „Hauptformular“
Set frm = Forms!Hauptformular
frm.GS_Kürzel.SetFocus
kuerzel = frm.GS_Kürzel.Text
Set db = CurrentDb
Set rs = db.OpenRecordset(„Tabelle3“)
rs.MoveFirst
Do Until rs.EOF = True
If rs![GS_Kuerzel] = kuerzel Then
N = N + 1
link(N) = rs![Bild]
bezeichnung(N) = rs![beschreibung]
Debug.Print link(N)
Debug.Print bezeichnung(N)
End If
rs.MoveNext
Loop
in der folgenden Schleife werden dann schon vorhandene, aber versteckte Buttons hinsichtlich hyperlinkaddress, visible und caption bearbeitet:
For X = 1 To anzrueck
Me(„Befehl“ & X).Visible = (X \bild.jpg" folgen.
die Ausgabe \bild.jpg ist aber korrekt. Wir haben dies
mit dem DB-Eintrag verglichen. Wenn man dort drauf klickt, öffnet sich der Viewer. Ebenso funktioniert es auch wenn man speziel nur einen schon vorhandenen Button programmiert:
test = „\bild.jpg“
befehl1.hyperlinkaddress = test
Wenn jemand dieser Ausführung folgen kann und mir dann noch helfen kann, dem wär ich super riesig dankbar.
Ein entnervter Markus Schwaab
