Blid anzeigen lassen

30/03/2008 - 17:56 von Jürgen | Report spam
Hallo Leute
Ich möchte anhand eines Pfades welcher in einem Textfeld abgelegt ist ein
Bild anzeigenlassen. Den Untenstehenden Code habe ich aus irgend einem Buch.
Ich wàhle den Datensatz über mehre Kombifelder aus. Wenn ich ein Datensatz
in einem Formular erstelle und mit dem Datensatzmarkierer den Datensatz
wechsle funktioniert alles super. Was mache ich falsch.
Danke Gruß Jürgen

Private Sub Bild()
On Error GoTo Err_bild

Me.bldFrontcover.Picture = ""
Me.bldFrontcover.Picture = strPicName
Me.Frontcover = ""
'strPicName = Frontcover
If Not IsNull(Me.[Frontcover]) Then
'If IsNull(Me.[Frontcover]) Then ' test
strPicName = Me.[Frontcover]
If Dir$(strPicName) <> "" Then
Me.[bldFrontcover].Picture = strPicName
Else
DoCmd.Hourglass False
Me.[bldFrontcover].Picture = ""
DoEvents
Beep
MsgBox "Front Cover nicht gefunden!"
'End If
End If
Else
Me.[bldFrontcover].Picture = ""
End If

exit_bild:
Exit Sub

Err_bild:
MsgBox Err.Description
Resume exit_bild
End Sub
 

Lesen sie die antworten

#1 Jens Schilling
30/03/2008 - 18:12 | Warnen spam
Hallo, Jürgen

Jürgen wrote:
Ich möchte anhand eines Pfades welcher in einem Textfeld abgelegt ist
ein Bild anzeigenlassen. Den Untenstehenden Code habe ich aus irgend
einem Buch.



Bis hierhin ist noch alles klar,...

Ich wàhle den Datensatz über mehre Kombifelder aus. Wenn
ich ein Datensatz in einem Formular erstelle und mit dem
Datensatzmarkierer den Datensatz wechsle funktioniert alles super.



.. dann aber verstehe ich nicht, ob Du nun einen Datensatz wàhlst, oder
einen neuen erstellst.

Vielleicht hilft Dir ja aber dieser KB-Artikel:

http://support.microsoft.com/?kbid8463

Gruss
Jens

Ähnliche fragen