Minor Error with Code for Attaching Images to a Form

[Forsi]

Hello

I don't know a thing about writing VBA Codes but this forum I was able thas helped me to finally figure out how to link the pictures to a path etc on a form. Everything works fine on the form - the pictures change with each employee etc, etc. However, when I select the command button "change picture" or "Remove", it opens the dialog box or the folder on the c:\drive etc and I can select a new picture or the one for deletion; BUT I also get a message which says compile error, syntax error and it highlights in yellow the name Private Sub cmdInsertPic_Click(). The name of the form in which the employee data is stored is Employee Profile Form (from the table Employee Profile). The computer highlights the word "Profile" and gives the error (Expected =). It is possible that it is the spacing between the three words in the file name is the problem because if I were to rename the form to a single word, it works. The section with the error is emboldened. The code is listed below. Any assistance you can provide would be appreciated.

Private Sub cmdInsertPic_Click()
 
  Dim OFN As OPENFILENAME
  On Error GoTo Err_cmdInsertPic_Click
 
  ' Set options for dialog box.
  With OFN
    .lpstrTitle = "Images"
    If Not IsNull([ImagePath]) Then .lpstrFile = [ImagePath]
    .flags = &H1804 ' OFN_FileMustExist + OFN_PathMustExist + OFN_HideReadOnly
    .lpstrFilter = MakeFilterString("Image files (*.bmp;*.gif;*.jpg;*.wmf)", "*.bmp;*.gif;*.jpg;*.wmf", _
      "All files (*.*)", "*.*")
  End With
 
  If OpenDialog(OFN) Then
    [ImagePath] = OFN.lpstrFile
    Forms!Employee Profile Form![ImageFrame].Picture = [ImagePath]
    SysCmd acSysCmdSetStatus, "Afbeelding: '" & [ImagePath] & "'."
  End If
  Exit Sub
 
Err_cmdInsertPic_Click:
  MsgBox Err.Description, vbExclamation
End Sub

Thanks
Forsi

[Stewart Ross]

Hi. I added code tags round your code to aid readability. As you may see above, it makes it much easier to differentiate one line from another.

The problem you are experiencing (at what is now line 17 above) results from the spaces in the form name, as you surmised. All such names - of fields, forms, reports, controls and so on - must be enclosed in rectangular brackets '[' and ']' if they contain spaces. A corrected version is shown below.

    Forms![Employee Profile Form]![ImageFrame].Picture = [ImagePath]
    SysCmd acSysCmdSetStatus, "Afbeelding: '" & [ImagePath] & "'."

The error message generated by the compiler arose because without the brackets it considered that the name of the object or variable concerned ended at the space after the word Employee - and it expected an operator such as "=" to follow.

-Stewart