Bilder einfügen

[Youssef]

Hallo,

ich habe Bilder in einem Ordner_XY(1234.jpg,5678.jpg etc...).
und habe dazu in einem  Access-Formular in  Unterformular ID-Nummern in der Form(1234, 5678).

ich will mit einem Click im Unterformular auf ID: zB. 1234 oder 5678, dass das Bild 1234.jpg oder 5678.jpg angezeigt wird.
Danke für die Hilfe
Lg
Youssef

[DF6GL]

Hallo,


weise einem Bild-Steuerelement den Pfad-Dateinamen des Bildes zu:

(prinzipiell und ohne Fehlerbehandlung...)

Code [Auswählen] Erweitern

Sub ID_Click()
Me!bldBild1.Picture ="C:\Verzeichnis_XY\" & Me!Id & ".jpg"
End Sub

[Youssef]

Hallo,
für was steht bldBild1 hier ?

[DF6GL]

Das ist der Name des Bild-Steuerelementes.

[Youssef]

danke :-)

[Youssef]

ich habe  das Code nun :

Code [Auswählen] Erweitern

Me!Bild1.Picture = "\\M-lan-117\tdm\cad\tool\dxfaob" & Me!TOOLID & ".dxf"
bringt mir eine Fehlermeldung :
Microsoft Access kann das in Ihrem Ausdruck angesprochene Feld 'Bild1' nicht finden .
wo ist der Fehler bei mir ?

[MaggieMay]

Hi,

wo befindet sich das Bildsteuerelement und wie heißt es?

[Youssef]

das Bildsteuerelement befindet sich im Hauptformular und heißt Bild1.

[Youssef]

ich will eigentlich durch click auf ID in Unterformular das Bild vom Tool zeigen in Hauptformular können

[DF6GL]

Hallo,

naja, dann musst Du das halt auch Access mitteilen:


Me.Parent!Bild1.Picture = "\\M-lan-117\tdm\cad\tool\dxfaob" & Me!TOOLID & ".dxf"

Wobei es sich hier um ein nicht anzeigbares Dateiformat handelt..

[Youssef]

Hallo,
jetzt funktionniert aber nur mit Bilder Format (.jpg)
Gibts eine möglichkeit DFX format auf jpg zu Konvertieren ?
LG
Youssef

[DF6GL]

Hallo,


z. B.:

http://www.autodwg.com/PDF/?gclid=CNWi6PO1gsYCFY7MtAodV3AAQQ

[Youssef]

hallo,
wie wäre es wenn nachdem anklicken kein Bild findet?
Kann man dann ein text einfügen bzw. zeigen lassen im Bildbereich wie Zb.' Zu den Datensatz gibts kein Foto'?
Danke
Lg
Youssef

[MaggieMay]

Hi,

der Code dazu könnte bspw. so aussehen:

Code [Auswählen] Erweitern

Dim strFileName As String
strFileName = "\\M-lan-117\tdm\cad\tool\dxfaob" & Me!TOOLID & ".jpg"
If Dir(strFileName) = "" Then
    MsgBox "Kein Bild vorhanden!"
    Me.Parent!Bild1.Picture = ""
Else
    Me.Parent.Bild1.Picture = strFileName
End If