title image


Smiley Hmm...
ehrlich gesagt glaube ich, dass du als Newbie damit wohl leicht überfordert bist - selbst Profis tun sich im Debuggen von Laufzeitversionen schwer.



Was ich meinte, ist:



Setz eine MsgBox in deinen Code rein, die dir den aktuellen Inhalt der Variablen (in diesem Fall z.B. "BilderDatei") in der Laufzeitversion ausgibt.



Konkret also so etwas:



Private Sub Form_Current()

Dim BilderDatei As String, nr As Integer

nr = Me!FzgNr

BilderDatei = DLookup("Ordner", "Bilderpfad", "Fzgnr = " & nr) & DLookup("Dateiname", "Bilderpfad", "Fzgnr = " & nr)

BilderDatei = Nz(BilderDatei, "")

MsgBox ">" & BilderDatei & "<"

Me!Foto.Picture = BilderDatei

End Sub





Alternativ zum Testen:



Private Sub Form_Current()

Me!Foto.Picture = "C:\woauchimmer\test.jpg"

End Sub





Und nimm das gichtige "On Error Resume Next" raus und schreib eine vernünftige Fehlerbehandlung! Eine Laufzeitversion ohne Fehlerbehandlungsroutinen zu verwenden ist tödlich!


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: