There is an option with the name of (insert image) in Form Design Tab. If you insert one or more images, by clicking on (insert image) it shows a title (image gallery) and when you right click on an image and select update you can change the image and all before image that you used in forms and reports will update.Can you provide more detail. I have no idea what that means.
Hi, (insert image) in form Design Tab. when inserting some image it shows a title with the name of (Image Gallery)Same here. What image gallery where?
As I said in your other thread, ACCDE files are designed to be locked down.
You cannot open forms in Design view in an ACCDE file nor do you have access to the Design ribbon so therefore the Image Gallery is also unavailable.
See my answer in your other thread for a better solution
It is clear that the ACCDE file is not editable and I don't want to edit an ACCDE file. I have an ACCDB file and I am making a Settings form. My Setting form can change the font, font size, color and ... and I want to add another options like changing logo of all forms and reports by one click. When all done I will save my DB as ACCDE.I missed the .ACCDE part earlier.
Once the .ACCDE is locked down, your problem is that you cannot make this change.
Private Sub cmdChangeImage_Click()
Dim strPath As String
Dim frm As Access.Form
Dim ctrl As Access.Image
strPath = mdlBrowseForFile.GetOpenFile
DoCmd.OpenForm "frmEmployees", acDesign, , , , acHidden
Set frm = Forms("frmEmployees")
Set ctrl = frm.ImageEmployee
mdlLoadImage.LoadImage strPath, ctrl
DoCmd.Close acForm, frm.Name, acSaveYes
'Next form
DoCmd.OpenForm "frmCustomers", acDesign, , , , acHidden
Set frm = Forms("frmCustomers")
Set ctrl = frm.ImageCustomers
mdlLoadImage.LoadImage strPath, ctrl
DoCmd.Close acForm, frm.Name, acSaveYes
End Sub
Public Sub LoadImage(strImagePathAndFile, mImageControl As Access.Image)
Dim objFileSystem As Object
Dim connection As String
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
On Error GoTo PictureNotAvailable
mImageControl.Visible = True
If objFileSystem.FileExists(strImagePathAndFile) Then
mImageControl.Picture = strImagePathAndFile
mImageControl.Visible = True
Else
mImageControl.Picture = ""
mImageControl.Visible = False
End If
Exit Sub
PictureNotAvailable:
MsgBox Err.Number & " " & Err.Description & Chr(13) & "In PictureFromFile Class"
End Sub