Hallo!
Habe ein Link-Feld in einer Tabelle und möchte das zugehörige Bild auf einem Formular anzeigen.
- im Formular ist ein Textfeld (genannt "Bild", wie das Link-Feld in der zugrunden liegende Tabelle)
- das Bild-Feld "BildAnzeige" soll im Formular das Bild anzeigen, sofern das Textfeld nicht leer ist
- habe es mit folgendem Code versucht:
Private Sub Form_Load()
Dim BildNam As String
BildNam = Me.Bild.Address
If Nz(Me.Bild, "") > "" Then
Me.BildAnzeige.Picture = BildNam
End If
End Sub[code\]
und "Me.Bild.Adress" ist also nicht das richtige.
Danke für Lösung
Walter
Hallo
Und was genau ist deine Frage?
Vielleicht hilft dir die beiliegende Demo-DB weiter.
Danke für deine Frage.
Es geht darum, dass es mit der Eigenschaft Address ( Me.Bild.Address) nicht geht - ich erhalte ein Kompilationsfehler.
Meine Frage wäre, wie kann ich den Inhalt vom Link-Feld, eben der Pfad zu meinem Bild, aus dem Textfeld extrahieren, um ihn dann beim Bildfeld ("BildAnzeige") zu stellen.
Hallo,
versuch mal folgendes:
Private Sub Form_Current()
If IsNull(Me!Bild) Then
Me!BildAnzeige.Picture = ""
Else
Me!BildAnzeige.Picture = Nz(Split(Me!Bild, "#")(1), "")
End If
End Sub
Von Link_Feldern in Tabellen würde ich abraten. Speicher stattdessen den kompletten PfadDatei-Namen als reinen Text und binde das Bildsteuerelement (Steuerelementinhalt)an dieses Feld
Der Split-Befehl extrahiert tatsächlich den Pfad vom Link-Feld. Danke.
Jetzt stehe ich aber vor einem anderen Problem: "MS kann die Datei 'xxx.jpg' nicht öffnen" (Laufzeitfehler '2220'), obwohl, wenn ich bei der Tabelle auf das LinkFeld klicke ich das Bild erhalte, also der zugang stimmt.
Es hat hier im Forum ähnliche Posts. Werde mich dort zuerst schlau machen.
Danke
Walter
Hallo,
vermutlich enthält der Link nicht den kompletten Pfaddateinamen.
Ich wiederhole meinen Vorschlag, anstelle des Links diesen kompletten Bild-Pfad in der Tabelle zu speichern.