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
Hallo,
weise einem Bild-Steuerelement den Pfad-Dateinamen des Bildes zu:
(prinzipiell und ohne Fehlerbehandlung...)
Sub ID_Click()
Me!bldBild1.Picture ="C:\Verzeichnis_XY\" & Me!Id & ".jpg"
End Sub
Hallo,
für was steht bldBild1 hier ?
Das ist der Name des Bild-Steuerelementes.
danke :-)
ich habe das Code nun :
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 ?
Hi,
wo befindet sich das Bildsteuerelement und wie heißt es?
das Bildsteuerelement befindet sich im Hauptformular und heißt Bild1.
ich will eigentlich durch click auf ID in Unterformular das Bild vom Tool zeigen in Hauptformular können
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..
Hallo,
jetzt funktionniert aber nur mit Bilder Format (.jpg)
Gibts eine möglichkeit DFX format auf jpg zu Konvertieren ?
LG
Youssef
Hallo,
z. B.:
http://www.autodwg.com/PDF/?gclid=CNWi6PO1gsYCFY7MtAodV3AAQQ
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
Hi,
der Code dazu könnte bspw. so aussehen:
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