How to remove image from ACCESS FORM

I've had this issue many times ... especially the one where it says the :OLE Server is not registered .... "  I use this code to get rid of the 'stuck' image:


Public Function DXM_zzDeleteImageOLE(sFrmName As String, ctlName As String) As String

    'This will get rid of a stuck OLE image on a form, wherein you get the message "OLE Server not registered ..."

    ' ?APP_zDeleteImageOLE("","")
    DoCmd.OpenForm sFrmName, acDesign
    DeleteControl sFrmName, ctlName
    DoCmd.Close acForm, sFrmName, acSaveYes
    DXM_zzDeleteImageOLE = "Control Deleted"
   

End Function

Pass (or hard code) the name of the Form and the Control Name.

Maybe I was not clear what my problem was.

I do not get "OLD Server not registered..." message.

The path in the form property is correct and vaild in the production environment/network.
Since I took the copy of the database to do some work and tried to open the form on my network, it generates an error complaining that the folder/file don't exist, which makes perfect sense because simply the path don't exist.

The question is how can I remove it so that it does not look for any graphics.

Remove it ... from the Form Property sheet?
Using the code I supplied. Ignore my comment about OLE ....

I created a module where put that function.
Then I created a macro that called that function, but it generated an error when I ran the macro.

You don't need a Macro, and you have to pass the Form Name and Control Name . or . just hard code the Form and Control Names.

You can run the code directly in the Module>>Function by hitting F5

Hard coded  version - just hit F5 to run

Public Function DXM_zzDeleteImage() As String

   Dim sFrmName As String
    sFrmName = "YourFormNameHere"
 
    DoCmd.OpenForm sFrmName, acDesign
    DeleteControl sFrmName, "YourControlNameHere"
    DoCmd.Close acForm, sFrmName, acSaveYes
    DXM_zzDeleteImageOLE = "Control Deleted"
   

End Function

In your code, I just noticed  DeleteControl sFrmName, "YourControlNameHere".
Since it is in the form property, what would be the name of the control for that?

OK ... sorry ... I see it's only for the Form ...
Let me modify the code if I can ...

I ran the code against a couple of forms and it took longer time that I thought it would take, but it ran both times, but when I open those forms, I still get the error about the path not found.

Interesting.
It should only take a second literally. Opens in Design view, removes, closes w/save.
Any chance you can upload a db with this Form ... and be sure it has the issue?

mx

I would love to, but I can't due to confidentiality...

Is there a way to remove this by editing form properties manually?

I have been following this.

I am curious and a few things.

1)  what is the database format( 2000, 2002/2003 .MDB or 2007 .ACCDB)?

2) What version of Access are you running including SP level and bits?

I have run into similar issues with Access 2010 trying to edit a 2002/2003 MDB that uses ULS for user log on tracking only if the correct .mdw is not used.

1) it is mdb. so has to be 2003 or earlier. In fact this database was developed a few years ago. so my guess is probably right.
2) I am using a computer that has office 2003 pro. version simply because I can't get used to 2010 user interface.
3) this is a simply user .mdb database. no mdw is developed.

I keep thinking it is a matter of removing those graphical stuff from the right properties.

"'I would love to, but I can't due to confidentiality..."
Just this Form in an empty db ...

OK ... so, problem solved ?
My code set it to None.

Yes. The problem solved. Thank you.

I suspect the time delay with MX's code was do the the path being invalid.

Glad you got it sorted out.

There are two ways of doing it.
One way was to assign "None" to the picture property of the form using VB. For some reason that did not work out for me.
So I had to manually assign a local picture file from the C drive and set the picture property to None. That worked.
But I think VB code should have worked too.