[Access] Waarde uit een rapport halen met VBA

[Wijnbo]

Hallo, heb hier een rappport met image erin. In het rapport staat ook ergens een Id veld.

Na openen van rapport :

code:

On Error Resume Next
Set rst1 = CurrentDb.openrecordset("SELECT foto1 FROM recreatie WHERE Id = " & Id.Text)
Foto1.Picture = rst1!Foto1

Dit werkt dus niet. Waarom? Id.Value gaat ook niet goed. Ik moet gewoon de value van Id hebben!

Select Top1 FROM recreatie geeft overigens wel een resultaat... dus verder is het goed. Waar ga ik de mist in?

[Wijnbo]

code:

On Error Resume Next
Screen.ActiveForm.Id.SetFocus
Set rst1 = CurrentDb.openrecordset("SELECT foto1 FROM recreatie WHERE Id = " & Screen.ActiveForm.Id.Value)
Set rst2 = CurrentDb.openrecordset("SELECT foto2 FROM recreatie WHERE Id = " & Screen.ActiveForm.Id.Value)
Foto1.Picture = rst1!Foto1
Foto2.Picture = rst2!Foto2

Was de oplossing. misschien heeft iemand er nog wat aan