Solved VBA Run Time Error 2465

[smtazulislam]

Hi, Last 1 yrs using this app. Yesterday someone using this app but he is not ADMIN then get this error.

EDIT :

 

[Minty]

What is the exact error message, that error number is quite a vague one without the rest of the message.

What is the value of Text2 (a terrible control name by the way...)

 

[arnelgp]

can you try:

[Forms]![frmEmployeeEdit]![FacilitiesSubformEdit].Form![Items] = Me!Text2 & ""

 

[smtazulislam]

can you try:

[Forms]![frmEmployeeEdit]![FacilitiesSubformEdit].Form![Items] = Me!Text2 & ""

Thank you very much. Work...

 

[smtazulislam]

Dear @arnelgp can you more one help please.

when I try to upload picture then open c: dialogue box.
and if any update some photo is not display, should I again upload.
Photo field : OLE Object


Code Is...

Public Function PicturePicker() As String
    Dim fd As Office.FileDialog

    'Set fd = Application.FileDialog(msoFileDialogFolderPicker)
    Set fd = Application.FileDialog(msoFileDialogFilePicker)

    With fd
        .Title = "Select a Picture"
        .Filters.Clear
        .Filters.Add "Image file", "*.ani;*.bmp;*.gif;*.ico;*.jpe;*.jpeg;*.jpg;*.pcx;*.png;*.psd;*.tga;*.tif;*.tiff;*.webp;*.wmf, 1"
        .Filters.Add "All files", "*.*", 2
        .AllowMultiSelect = False
        If .Show = -1 Then
            PicturePicker = (.SelectedItems(1))
        End If
    End With
    Set fd = Nothing
End Function

Private Sub CmdAddPicture_Click()

Dim strPicture As String

strPicture = PicturePicker
    Me.CmdAddPicture.Caption = "Upload Picture"
    If Len(strPicture) > 0 Then
        With Me
            Me.txtImagEmployee = strPicture
            Me.Dirty = False
            Me.EmpImage.Requery
        End With
    End If
End Sub

What I need :
1) OPEN directly IMAGE folder. PATH : D:\3. EMPLOYEES Department\HUMAN_MANAGEMENT_SOFTWARE_2020\Employee Folders\Image
2) any update dont lost uploaded any photo...

Thank you very much...