Automatisk billedvisning i formular

You may get some help from this article
http://www.eksperten.dk/artikler/197

Indsæt et billede på formularen, kald den billedramme og slet controlsourcen. Så indsæt kode på OnCurrent eventen!~)

private sub form_OnCurrent()
me.billedramme.ControlSource = "c:\mappe\" & me.FeltMedNavn & ".jpg"
end sub

Lidt små problemer:

Jeg opretter en ny formular og indsætter et billede element -> Jeg sletter stien til billedet i feltet Billede og sætter Billedtypen til Sammenkædet -> jeg angiver navnet på billed elementet til BilledRamme.

Herefter kan jeg ikke finde VedAktuel/OnCurrent eventen der omtales (jeg sidder med en Access 2003 på dansk)? Jeg synes kun jeg kan finde VedKlik, VedDobbeltklik, VedMusKnapNed, VedMusFlyttet, VedMusKnapOp.

VedAktuel

Det er når du højreklikker uden for formularens område!~)

Nej, desværre. :o( . spg´s kodestump er endt med at se sådan ud...:

Private Sub form_OnCurrent()
Me.BilledRamme.ControlSource = "c:\temp\" & Me.billede & ".jpg"
End Sub

...men billed vises ikke på formularen.

do you get an error?
First try with a bmp file, and if that works then it may b enecessary to install other graphic fileters from the isnatllation disks

Using spg's code example I get no errors (changed .jpg to .bmp), and no picture. I am sure (100%) that .bmp are placed in folder c:\temp\ on local harddisk.

if you like I can take a look at your db and see if I can see the problem
ekspertenATsanthell.dk
change AT to AT

Have you looked at the article I refered to?
http://www.eksperten.dk/artikler/197

Hi Terry,

Yep, read trhough the article and tried that example first, but couldn't get it to work. Also tried with spg's example, but that fails too. I must be doing something wrong still...

I will email you both examples, and I would very much appreciate if you would help me a little. ;o)

Så andre kan få glæde af det, så blev løsningen artiklens exempel (ellers tak for buddet spg), og hændelsesproceduren kom til at se sådan ud:

Private Sub Form_Current()

On Error GoTo ProcErr

    If IsNull(Me.Filsti) Then
        Me.BilledRamme.Picture = ""
    Else
        Me.BilledRamme.Picture = Me.Filsti
    End If

ProcErr:
    If Err.Number = 2220 Then MsgBox "Picture not Found"

End Sub

Private Sub FilSti_AfterUpdate()
    Dim Rec As Long
    Rec = Me.CurrentRecord
    Me.Requery
    DoCmd.GoToRecord , , acGoTo, Rec
End Sub

/G