تعديل على كود في حقل بنموذج رئيسي كي يعمل في حقل في نموذج فرعي

ضع هذا الكود فى النموذج الفرعى

Private Sub PIC_Click()

 Dim Path As String
    Path = GetImageFolder
 If IsEmpty(Me!PIC) Or IsNull(Me!PIC) Then
      Me.Parent.DBPixMain.ImageViewBlob (Null)
   Else
     Me.Parent.DBPixMain.ImageViewFile (Path & Me!PIC)
  End If
               
End Sub

Private Function GetImageFolder() As String
    Dim DBFullPath As String
    Dim I As Integer
    DBFullPath = CurrentDb().Name
    For I = 1 To Len(DBFullPath)
       If Mid(DBFullPath, I, 1) = "\" Then
           GetImageFolder = Left(DBFullPath, I) & "archive\" & Me.archiveid
       End If
    Next
     
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

If Not fso.FolderExists(GetImageFolder) Then
    MsgBox " هذا المجلد " & Chr(13) & GetImageFolder & Chr(13) & "غير موجود لذلك سيتم انشاء مجلد جديد . ", vbInformation, "Invalid Path"
    fso.CreateFolder (GetImageFolder)
End If
             
GetImageFolder = GetImageFolder & "\"

End Function