Werte aus Kombifelder auslesen

07/12/2007 - 08:52 von Jürgen Großmann | Report spam
Hi Leute
Folgendes Problem
Ich habe in einem Formular 2 Kombifelder 1 Listenfeld 1 Bild.
Das Listenfeld ist abhàngig vom 2 Kombifeld
Das 2 Kombifeld ist Abhàngig vom 1 Kombifeld
Im Bild soll noch das Cover angezeigt werden. Es wird der Pfad des Bildes
als Text gespeichert.
In einem anderen Form habe ich untenstehend Code verwendet dort klapt's
super. was mache ich falsch?
Der Code wird nach dem Aktualisieren des Listenfeldes aufgerufen.

Gruß Jürgen

Private Sub Bild()
On Error GoTo Err_bild

Me.bldFrontcover.Picture = ""
Me.bldFrontcover.Picture = strPicName

If Not IsNull(Me.[Frontcover]) Then
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
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 Peter Doering
07/12/2007 - 10:19 | Warnen spam
Hallo,

Jürgen Großmann wrote:

Ich habe in einem Formular 2 Kombifelder 1 Listenfeld 1 Bild.
Das Listenfeld ist abhàngig vom 2 Kombifeld
Das 2 Kombifeld ist Abhàngig vom 1 Kombifeld
Im Bild soll noch das Cover angezeigt werden. Es wird der Pfad des Bildes
als Text gespeichert.
In einem anderen Form habe ich untenstehend Code verwendet dort klapt's
super. was mache ich falsch?



Waere vielleicht nicht schlecht, wenn du definieren koenntest, was du unter
"klappt super" bzw. wie sich das ausdrueckt, was hier nicht so super
klappt. Hast du eine Fehlermeldung? Falls ja, welche, wo?

Der Code wird nach dem Aktualisieren des Listenfeldes aufgerufen.



Wie sieht der Aufruf aus?

Private Sub Bild()
On Error GoTo Err_bild

Me.bldFrontcover.Picture = ""
Me.bldFrontcover.Picture = strPicName



Ersetze Me. durch Me! (siehe www.donkarl.com?FAQ6.3 )

If Not IsNull(Me.[Frontcover]) Then



Ist Frontcover der Name des Listenfeldes oder ein Feld der Datenherkunft?
Falls beides, nenne eines von beiden um.

Gruss - Peter

Ich beantworte keine Fragen per Email.
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen