Requery Solved

[sergran]

Hello everyone, I put in a mask (by copying from the internet) a code that allows you to search within the pc to upload a photo in a record. Within the table for each record corresponds to a picture. This all works
My problem is that if I replace the photo, you see the new uploaded photo if I leave the form open. I searched the internet and found the function Me.Requery and Me.refresh but both do not work in my case.
We carry the code


On Error GoTo cmdAddSmall_Err
Dim strFilter As String
As Long Dim lngflags
As Variant Dim varFileName


strFilter = "All Files (*. *)" & vbNullChar & "*. *" _
& VbNullChar & "All Files (*. *)" & VbNullChar & "*. *"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
or tscFNHideReadOnly

varFileName tsGetFileFromUser = (_
fOpenFile: = True, _
strFilter: = strFilter, _


rlngflags: = lngflags, _
strDialogTitle: = "Please choose a file ...")

If IsNull (varFileName) Then
else
Me! [Percorso_foto_front2] = varFileName
end If


cmdAddSmall_End:
On Error GoTo 0
Exit Sub


cmdAddSmall_Err:
Beep
MsgBox Err.Description,, "Error:" & Err.Number _
& "In file"
Resume cmdAddSmall_End
Me.Requery

[amrut]

Me.[YourImagecontrolName].Picture = "PathToThePicture". In your case,use the path stored in the table.

[sergran]

I'm sorry but I did not understand

[amrut]

Within the table for each record corresponds to a picture.

What does the table store ?How do you show the picture on form ?

[sergran]

Sorry but they are not very practical Vba. I attach the database
thank you

Requery.zip

[amrut]

You have a text box which stores the path to picture.

Me.[YourImagecontrolName].Picture = "PathToThePicture"

Use this line after the file is selected.

Me.Cover_front.Picture = Me.Percorso_foto_front

[sergran]

I entered to Event "after update" control "Percorso_foto_front" the code
Me.Cover_front.Picture = Me.Percorso_foto_fron
but does nothing ...
What could be wrong?

[amrut]

If IsNull (varFileName) Then
else
Me! [Percorso_foto_front2] = varFileName
Me.Cover_front.Picture = Me.Percorso_foto_front
end If
When user browses and selects the picture, the path to picture is saved in the text box. The picture needs to be changed as per the changed file path.

[sergran]

Is perfect...fine thanks much!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[amrut]

Glad to help.
Mark the thread as solved.

[sergran]

I changed the title to read solved ... is right or should I do it another way?
thanks

[amrut]

See https://www.accessforums.net/forum-s...lved-1828.html

[sergran]

Thanks much