Tonisailer schrieb am 07.April.2010, 15:17:24 in der Kategorie pc.sw.office
\'******************************************************
\'*** Aktualisiert die Grafiken direkt nach Pfadeingabe
\'******************************************************
\'*** Bildpfad = Textelement (PfadUndDateiname der Grafik)
\'*** img_Foto = Bildelement (Grafik)
Private Sub BildAktualisieren()
Dim strBildpfad As String
strBildpfad = Nz(Me!Bildpfad, \"\")
If strBildpfad <> \"\" Then
If Dir(strBildpfad) = \"\" Then
Me!img_Foto.Visible = False
Else
Me.img_Foto.Visible = True
Me.img_Foto.Picture = strBildpfad
End If
Else
Me.img_Foto.Visible = True
End If
End Sub
Die Sub muss nur über eine Command-Button Routine aufgerufen werden, z.B. direkt im Anschluss nach dem Datei-Öffnen-Dialog.
Gruß
Toni