Archiv
Ansicht:   
Suche   erweiterte Suche

Nachricht aus dem Archiv

Tonisailer schrieb am 07.April.2010, 15:17:24 in der Kategorie pc.sw.office

Access2003 Grafik im Formular aktualisieren

Hallo CaGe,
danke erst einmal für Deinen Beitrag. Aber so wirklich hat der Link nicht geholfen, da in meiner Datenbank die Grafiken erst beim Wechsel des Datensatzes richtig angezeigt wurden. Habe aber zwischenzeitlich im www folgende Routine gefunden, die nach Setzen des Pfades die Grafik sofort aktualisiert. Hier der Code für alle anderen, die mal das Problem haben:

\'******************************************************
\'*** 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

Archiv
Ansicht:   
Suche   erweiterte Suche
Auf unserer Web-Seite werden Cookies eingesetzt, um diverse Funktionalitäten zu gewährleisten. Hier erfährst du alles zum Datenschutz